delphi 获取Webbrowser中的图片

本文整理自网络，侵删。

 
procedure TfrmMain.DomImg2Image(wb:TWebBrowser);var  i:Integer;  rang:IHTMLControlRange;  s:string;begin  try  s := (IHTMLDocument2(wb.Document).images.item('pic',EmptyParam) as IHTMLElement).getAttribute('src',0);      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;
 

相关阅读 >>

Delphi 文件路径相关的字符串操作

Delphi 两字符串之间添加分隔符

Delphi sysutils.isdelimiter - 判断字符串的某个位置是不是指定的字符串

Delphi 获取网卡信息

Delphi中datetimepicker组件介绍

Delphi with do和for do语句

Delphi console程序中一种定时方法

Delphi tms web core webmemo 横竖滚动条

Delphi自动以管理员身份在vista 和 windows7 下运行程序

Delphi richedit中插入带背景色文本的一种思路

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

转载请注明出处：木庄网络博客 » delphi 获取Webbrowser中的图片