Question

delphi webbrowser获取图片地址

有一个webbrowser1控件,访问了一个页面,有很多图片的,
请问怎么把图片地址全部显示在memo1的控件上,谢谢!!

Answer 1

(wb1.Document  as IHtmlDocument2).body.innerHTML 获得html源码.

然后对这个源码(也就是字符串)中的<img src="地址">提取出来就可以了,你可以用正则表达式 也可以直接用Pos函数这些,方法很多.

或者用如下代码:

var

  I:Integer;

begin

  for I:=0 to Wb1.OleObject.document.images.length-1 do

    lst1.Items.Add(wb1.OleObject.document.images.item(i).href);

end;

Answer 2

var
img: OleVariant;
i: Integer;
begin
img := WebBrowser1.OleObject.document.getElementsByTagName('img');
for i := 0 to img.length - 1 do
if Memo1.Lines.IndexOf(img.item(i).src) = -1 then
Memo1.Lines.Add(img.item(i).src);
end;