【结】shangxy同志，需要验证码功能~

op+

在平台里，怎么做个验证码功能 ？？谢谢~

shangxy

static procedure TSYSTEMLOGINDIALOG.PwdImg(img:Timage);
var
  I,j,k:   Integer;
  vPoint:   TPoint;
  vLeft:   Integer;
  arrStr:array of string ;
begin
  setlength(arrstr,36);
  pwdimgstr:='';
  arrStr[1]:='0';  arrStr[2]:='1';  arrStr[3]:='2';  arrStr[4]:='3';
  arrStr[5]:='4';  arrStr[6]:='5';  arrStr[7]:='6';  arrStr[8]:='7';
  arrStr[9]:='8';  arrStr[10]:='9'; arrStr[11]:='A'; arrStr[12]:='B';
  arrStr[13]:='C'; arrStr[14]:='D'; arrStr[15]:='E'; arrStr[16]:='F';
  arrStr[17]:='G'; arrStr[18]:='H'; arrStr[19]:='I'; arrStr[20]:='J';
  arrStr[21]:='K'; arrStr[22]:='L'; arrStr[23]:='M'; arrStr[24]:='N';
  arrStr[25]:='O'; arrStr[26]:='P'; arrStr[27]:='Q'; arrStr[28]:='R';
  arrStr[29]:='S'; arrStr[30]:='T'; arrStr[31]:='U'; arrStr[32]:='V';
  arrStr[33]:='W'; arrStr[34]:='X'; arrStr[35]:='Y'; arrStr[0]:='Z';
    Randomize;
  for j:=1 to 4  do
  begin

  k:=sysutils.strtoint(sysutils.Format('%.1d',[Random(36)]));
  pwdimgstr:=pwdimgstr+sysutils.trim(arrStr[k])
  end;
  vLeft:=10;
  img.picture:=nil;
  for I:= 1 to Length(pwdimgstr) do
  begin
  with Img do
  begin
    Canvas.Font.Size := Random(8)+ 12;

    Canvas.Font.Color := Borland.Delphi.Windows.RGB(Random(256) and $C0,
    Random(256) and $C0,Random(256) and $C0);
      if Random(2)=1 then
        Canvas.Font.Style := [TFontStyle.fsBold]
      else Canvas.Font.Style := [];
      begin
        Canvas.Font.Name := Business.Forms.Forms.Screen.Fonts[10];
        vPoint.X := Random(4)+ vLeft;
        vPoint.Y := Random(3);
        Canvas.TextOut(vPoint.X,vPoint.Y,pwdimgstr[I]);
        vLeft := vPoint.X + Canvas.TextWidth(pwdimgstr[I]);
      end;
    end;
  end;
end;

op+

怎么用啊，是不是在功能上放上个image，然后给这个image赋值啊？？

shangxy

恩，把窗体的的image做参数传进来，然后调用这个函数就可以了

op+

OK.谢谢shangxy了。。结贴