Delphi 获取网站验证码的图片

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

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