Delphi 获取网站验证码的图片

时间:2021-10-23 17:23:20
  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