delphi webbrowser获取图片地址
答案:2 悬赏:30
解决时间 2021-01-11 18:30
- 提问者网友：不要迷恋哥
- 2021-01-10 20:14
delphi webbrowser获取图片地址
最佳答案
- 二级知识专家网友：患得患失的劫
- 2021-01-10 21:07
(wb1.Document as IHtmlDocument2).body.innerHTML 获得html源码.
然后对这个源码(也就是字符串)中的提取出来就可以了,你可以用正则表达式 也可以直接用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;
然后对这个源码(也就是字符串)中的提取出来就可以了,你可以用正则表达式 也可以直接用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;
全部回答
- 1楼网友：老鼠爱大米
- 2021-01-10 22:01
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;
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;
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息