delphi验证码.zip

Delphi生成的汉字验证码图片代码。 for i := 1 to 4 do begin Randomize; strResult := strResult + trim(CodeChar[Random(563)]); end; vLeft := 10; img.picture := nil; //画随机直线 for i := 0 to 360 do begin Randomize; img.Canvas.Pen.Color := MakeColor(Random(256) and $C0, 200); img.Canvas.MoveTo(Random(177), Random(505)); img.Canvas.LineTo(Random(505), Random(177)); end;