当前位置: 首页 > 技术文档 > 正文
avatar

提取所有连接到memo1中: 提取网页标题: 提取所有图片:

b8389b504fc2d562f274e9c3e41190ef76c66c9b
提取所有连接到memo1中:

procedure TForm1.Button1Click(Sender: TObject);
var
  i :Integer;
begin
  for i := 0 to WebBrowser1.OleObject.document.links.length - 1 do
  memo1.Lines.Add(WebBrowser1.OleObject.document.links.item(i).href);

end;

提取网页标题:

procedure TForm1.Button1Click(Sender: TObject);
var
  i :Integer;
begin
  Memo1.Lines.Add(WebBrowser1.OleObject.document.title);
end;

提取所有图片:

procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
begin

  for i := 0 to WebBrowser1.OleObject.document.images.length-1 - 1 do
  memo2.Lines.Add(WebBrowser1.OleObject.document.images.item(i).src);

end;
本文固定链接: https://blog.yanhualou.com/jishu/704.html | 烟花楼博客
标签:

delphi WebBrowser 提取标题和链接及图片:目前有2 条评论

  1. avatar
    板凳
    zengda

    不错,不错,看看了!

    2016-04-06 11:08 [回复]
  2. avatar
    沙发
    648297890

    看看!

    2016-04-19 15:46 [回复]

发表评论

快捷键:Ctrl+Enter