一个成功获取百度注册页面验证码图片的源代码

最新推荐文章于 2022-12-14 14:02:47 发布

苏生米沿

最新推荐文章于 2022-12-14 14:02:47 发布

阅读量8.2k

点赞数

分类专栏： Delphi 文章标签：百度 buffer url delphi string integer

本文链接：https://blog.csdn.net/sushengmiyan/article/details/8064089

版权

本文分享了如何使用Delphi成功获取百度注册页面的验证码图片。代码实现仅关注获取图片部分，验证码识别留待后续研究。实现过程中，依赖了两个DLL包，详细连接在文章中给出。

摘要由CSDN通过智能技术生成

成功实现使用delphi获取百度的验证码图片(只获得图片，不进行识别，识别之后再研究吧O(∩_∩)O)

procedure TForm1.btn1Click(Sender: TObject);

  procedure doSomething(ms: TMemoryStream);
  var
    Buffer:Word;
    AjpgFile: TJPEGImage;
  begin
    ms.Position := 0;
    if ms.Size = 0 then
      Exit;
    ms.ReadBuffer(Buffer,2); //读取文件的前２个字节，放到Buffer里面
    if Buffer=$4D42 then //如果前两个字节是以4D42[低位到高位]
    begin
      ShowMessage('BMP'); //那么这个是BMP格式的文件
    end
    else if Buffer=$D8FF then //如果前两个字节是以D8FF[低位到高位]
     begin
      ShowMessage('JPEG'); //........一样　下面不注释了
      ms.Position := 0;
      AjpgFile := TJPEGImage.Create;
      AjpgFile.LoadFromStream(ms);
      Image1.Picture.Graphic := AjpgFile;
     end
    else if Buffer=$4947 then
    begin
      ShowMessage('GIF');
    end
    else if Buffer=$5089 then
    begin
      ShowMessage('PNG');
    end;
  end;
var