Delphi 获取网站验证码的图片

Posted 2020-06-22 朝闻道

 

[delphi] view plain copy

 

 print?

1. uses  
2.   ActiveX,ComObj;  
3. procedure TfrmMain.FormCreate(Sender: TObject);  
4. begin  
5.   OleInitialize(nil);  
6. end;  
7.   
8. procedure TfrmMain.DomImg2Image(wb:TWebBrowser);  
9. var  
10.   i:Integer;  
11.   rang:IhtmlControlRange;  
12.   s:string;  
13. begin  
14.   try  
15.   //pic是图片的节点(层)名称，你打开源代码看一下，替换成你的就行了  
16.   s := (IHTMLDocument2(wb.Document).images.item(‘pic‘,EmptyParam) as IHTMLElement).getAttribute(‘src‘,0);  
17.   //showmessage(s);  
18.       rang:=((IHTMLDocument2(wb.Document).body as HTMLBody).createControlRange)as  
19.         IHTMLControlRange;  
20.       rang.add(IHTMLDocument2(wb.Document).images.item(‘pic‘,EmptyParam)as  
21.         IHTMLControlElement);  
22.       rang.execCommand(‘Copy‘,False,0);  
23.       image1.Picture.Assign(ClipBoard);  
24.   except  
25.   end;  
26. end;  
27.   
28. procedure TfrmMain.FormDestroy(Sender: TObject);  
29. begin  
30.   OleUninitialize;  
31. end;  

http://blog.csdn.net/yanjiaye520/article/details/7955671