Delphi 获取网站验证码的图片

本文整理自网络，侵删。

 uses
  ActiveX,ComObj;
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  OleInitialize(nil);
end;

procedure TfrmMain.DomImg2Image(wb:TWebBrowser);
var
  i:Integer;
  rang:IHTMLControlRange;
  s:string;
begin
  try
  //pic是图片的节点(层)名称，你打开源代码看一下，替换成你的就行了
  s := (IHTMLDocument2(wb.Document).images.item('pic',EmptyParam) as IHTMLElement).getAttribute('src',0);
  //showmessage(s);
      rang:=((IHTMLDocument2(wb.Document).body as HTMLBody).createControlRange)as
        IHTMLControlRange;
      rang.add(IHTMLDocument2(wb.Document).images.item('pic',EmptyParam)as
        IHTMLControlElement);
      rang.execCommand('Copy',False,0);
      image1.Picture.Assign(ClipBoard);
  except
  end;
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  OleUninitialize;
end; 

相关阅读 >>

Delphi unigui hyperserver

Delphi android 关闭应用程序对话框询问

Delphi 移除u盘的两种方法

Delphi 如何知道鼠标点击的statusbar的位置

Delphi 检测url地址是否有效

Delphi 合并两个 wav 文件流的函数

Delphi 无类型文件读写

Delphi ioutils单元查找文件夹高级功能

Delphi dcc64.exe Delphi64位命令行编译器揭秘

Delphi shellexecute多种用法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 获取网站验证码的图片