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)