么意思博客

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

提取所有连接到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;