码迷,mamicode.com
首页 > 其他好文 > 详细

unigui图形验证码

时间:2019-05-18 09:20:42      阅读:402      评论:0      收藏:0      [点我收藏+]

标签:mic   str   png   ESS   rom   adf   try   mem   char   

unigui图形验证码

技术图片

procedure TMainForm.UniButton1Click(Sender: TObject);
var
  url: SockString;
  serial: TynSerial;
  i: Integer;
  ms: TMemoryStream;
begin
  serial := TynSerial.Create;
  ms := TMemoryStream.Create;
  try
    url := ‘verifycode‘;
    i := FHttp.Post(url, ‘‘, ‘text/plain; charset=UTF-8‘);
    if i = 200 then
    begin
      serial.Text := FHttp.Content;
      UniEdit1.Text := serial.ReadString(‘code‘);
      serial.ReadStream(‘image‘, ms);
      ms.Position := 0;
      UniImage1.LoadFromStream(ms);
    end
    else
      ShowMessage(i.ToString + ‘ error‘);
  finally
    serial.Free;
    ms.Free;
  end;
end;

  

unigui图形验证码

标签:mic   str   png   ESS   rom   adf   try   mem   char   

原文地址:https://www.cnblogs.com/hnxxcxg/p/10884619.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!