delphi通用验证码生成_delphi随机验证码

原理

将a..z,A..Z,1..9 放到数组里，

随机从数组中抽出n位，画在image控件上，

字体大小，颜色，随机变化

最后在字上画一条线

返回参数为正确的字符验证码

如图

代码

源码来自网络，稍加改造

procedure TForm1.Button2Click(Sender: TObject);
var
  ss: string;
begin
 ss := CreateVerticode(Image1,14,True) ;
 ShowMessage(ss);
end;

function RandomColor: Integer;
/// <summary>
///  img 图片控件;
///  fontsize 字体大小 默认9 ;
///  bCase 是否区分大小写  默认否
/// </summary>
function CreateVerticode(img: Timage;fontsize:Integer = 9;bCase: Boolean = false): string;
 
 
implementation
 
function RandomColor: Integer;
begin
  Result := Random(150) + 60;
e