有一个包含基本验证码图像的网页,我解决了验证码从网站下载图像并使用 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/”,谢谢提前。抱歉英语不好