請教各位先進： 我用一個webbrowser載入一個擁有約1000個超連結的母頁 我如何控制webbrowser 可以自動由第一個超連結開始 先載入第一個超連結子頁 並將子頁內容 存入memo中 再回原母頁 進行連結第二個超連結子頁 再將子頁內容存入memo中 依此類推至1000多個連結跑完? 我們站內似乎沒人問過這類問題，可有解決之道嗎?

由於前面有類似問題,版主hagar答過.    PS:當然此法要用WebBrowser元件,仍無法解析透過JavaScript開啟的網頁, 如果是Hard code網址,就可以用.    您可以改寫以下程式.    來源: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=60052    

uses MsHtml;
procedure TForm2.btnNavigateClick(Sender: TObject);
begin
  WebBrowser1.Navigate('您的網頁位址);
end;    procedure TForm2.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  ShowMessage('Webbroswer document complete');
end;    procedure TForm2.btnGetLinksClick(Sender: TObject);
var
  i: integer;
  htmlDoc: IHTMLDocument2;
  allLinks: IHTMLElementCollection;
  Link: IHTMLElement;
  url: String;
begin
  htmlDoc := WebBrowser1.Document as IHTMLDocument2;
  allLinks := htmlDoc.Links;
  for i := 0 to allLinks.Length -1 do
  begin
    Link := allLinks.Item(i, '') as IHTMLElement;
    Memo.Lines.Add(IntToStr(i)   ': '   Link.toString);
  end;
end;

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.