unigui图形验证码

Posted 2021-12-01 hnxxcxg

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了unigui图形验证码相关的知识，希望对你有一定的参考价值。

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图形验证码的主要内容，如果未能解决你的问题，请参考以下文章

python web框架Flask——图形验证码及验证码的动态刷新