0

有一个包含基本验证码图像的网页,我解决了验证码从网站下载图像并使用 Tesaract。我正在使用此功能在 Timage 对象中显示图像而无需下载;

FUNCTION DownloadImage(CONST URL : STRING ; ImageType : TGraphicClass = NIL) : TBitMap;
  VAR
    HTTP        : TIdHttp;
    S           : TStream;
    IMG         : TGraphic;
    STR         : AnsiString;
    LHandler: TIdSSLIOHandlerSocketOpenSSL;

  BEGIN
    HTTP:=TIdHttp.Create(NIL);
    LHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    TRY
      HTTP.IOHandler:=LHandler;
      S:=TMemoryStream.Create;
      TRY
        HTTP.Get(URL,S);
        IF NOT Assigned(ImageType) THEN BEGIN
          S.Position:=0;
          SetLength(STR,5);
          S.Read(STR[1],LENGTH(STR));
          IF COPY(STR,1,2)='BM' THEN
            ImageType:=TBitMap
          ELSE IF COPY(STR,1,3)='GIF' THEN
            ImageType:=TGIFImage
          ELSE IF COPY(STR,2,3)='PNG' THEN
            ImageType:=TPngImage
          ELSE IF (ORD(STR[1])=$FF) AND (ORD(STR[2])=$D8) THEN
            ImageType:=TJPEGImage
        END;
        IF NOT Assigned(ImageType) THEN RAISE EInvalidImage.Create('Unrecognized file format!');
        IMG:=ImageType.Create;
        TRY
          S.Position:=0;
          IMG.LoadFromStream(S);
          Result:=TBitMap.Create;
          TRY
            Result.Assign(IMG)
          EXCEPT
            Result.Free;
            RAISE
          END
        FINALLY
          IMG.Free
        END
      FINALLY
        S.Free
      END
    FINALLY
      HTTP.Free
    END
  END;

或下载图片

function DownLoadInternetFile(Source, Dest : String): Boolean;
begin
  try
    Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
  except
    Result := False;
  end;
end;

问题是这两个功能都连接到网站以获取图像,因此,当我在表单上使用 webbrowser 导航页面时,下载的验证码图片和浏览页面的验证码图片不同,我想做的是得到文档完成后直接来自 Embeddedwb 或 webbrowser 对象的图片,我也尝试在运行时获取 webbrowser 的屏幕截图,但我失败了,网页是:“https://esgm.sgk.gov.tr/Esgm/”,谢谢提前。抱歉英语不好

4

1 回答 1

1

如果那是您表单上的 TWebBrowser,您也许可以修改该文档。您可以将画布添加到文档,将图像绘制到画布上,然后使用 canvas.toDataURL 获取图像的 base64 编码表示。

在这个问题中做了类似的事情,只在 Javascript 中。 在 JavaScript 中获取图像数据?

这应该会在 Delphi 中产生类似的结果。

function GetBase64Image(WebBrowser: TWebBrowser; ImageId: string): string;
var
  Document, Image, Canvas, Context: OleVariant;
begin
  Document := WebBrowser.Document;
  Image := Document.getElementById(ImageId);
  Canvas := Document.createElement('canvas');
  Canvas.Width := Image.Width;
  Canvas.Height := Image.Height;

  Context := Canvas.getContext('2d');
  Context.drawImage(Image, 0, 0);

  Result := Canvas.toDataURL('image/png');
  // Have to fix this. No time, sorry.
  //return dataURL.replace(/^data:image\/(png|jpg);base64,/, "");
end;
于 2012-11-20T13:12:35.460 回答