webbrowser识别码

 三個文件，兩句話就完成了！自己去下載：'AspriseOCR.dll'

 implementation

 {$R *.dfm}  function OCR(ImgFileName:PChar;imgType:Integer):PChar; cdecl; external 'AspriseOCR.dll';

接上面    copyfile(pchar(str),pchar('4.PNG'),false);     SLEEP(5000);     EDIT1.Text:=(StrPas(OCR(PChar('4.PNG'),-1)));

 

 下载ocr:  {$R *.dfm}  procedure TForm1.Button1Click(Sender: TObject);  begin  WB.Go('http://reg.xcar.com.cn/');  end;

procedure TForm1.Button2Click(Sender: TObject);

 VAR  JPG,STR:STRING;  

begin    

JPG:= WB.OleObject.DOCUMENT.ALL.ITEM('chk_img').SRC;    

wb.GetCachedFileFromURL(JPG, str);    

copyfile(pchar(str),pchar('4.PNG'),false); 

 end;