如何能把谷歌或者百度搜索到的网页地址获取出来？》

Question

把百度或者谷歌搜索到的网页全部点击一次。
如果想实现这个，大家有什么思路？

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    GetUrl: TButton;
    Search: TButton;
    Edit1: TEdit;
    ListView1: TListView;
    procedure GetUrlClick(Sender: TObject);
    procedure SearchClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}const
  QryStr = 'http://www.google.com.hk/search?hl=zh-CN&q=';procedure TForm1.SearchClick(Sender: TObject);
begin
  WebBrowser1.Navigate(QryStr+Edit1.Text);
end;procedure TForm1.GetUrlClick(Sender: TObject);
var
  i: integer;
  sl: tstringlist;
  innertext: string;
  item: tlistitem;
begin
  sl:= tstringlist.Create;
  sl.Append('网页快照');   // 加上去除的
  sl.Append('类似结果');
  sl.Append('翻译此页');
  listview1.Clear;
  for i := 0 to WebBrowser1.OleObject.document.links.Length - 1 do
  begin
    innertext:= WebBrowser1.OleObject.document.links.item(i).innertext;
    if sl.IndexOf(innertext) = -1 then
    begin
      item:= listview1.Items.Add;
      item.Caption:= innertext;
      item.SubItems.Add(WebBrowser1.OleObject.document.links.item(i).href);
    end;
  end;
  sl.Free;
end;end.

Answer 2

以前写了一个谷歌的搜索API的函数类库的，具体代码可以到我博客去下载
Google的搜索API的Delphi封装

Answer 3

使用GOOGLEAPI受限制，搜索出来的记录条数有限的 很。

Answer 4

看这里
http://topic.csdn.net/u/20110411/08/977a1068-a30c-4d11-8e21-e9c142a38779.html?seed=1760853286&r=72684890#r_72684890

Answer 5

用正则表达式，看这里：
http://topic.csdn.net/u/20110402/14/02d47c57-1209-47b7-a476-34737eca313a.html