我透過 TWebBrowser 瀏覽網頁時, 可以使用以下的一段程式取得網頁中的所有 Frame 資料：

procedure TForm1.Button1Click(Sender: TObject);
begin
   NavigateFrameset((WebBrowser1.Document as IHTMLDocument2));
end;    procedure TForm1.NavigateFrameset(document: IHTMLDocument2);
var
    index: Integer;
    ole_index: OleVariant;
    frame_dispatch: IDispatch;
    framed: IHTMLWindow2;
begin
   if document = nil then exit;
   try
      Memo1.Lines.Add('URL : ' String(document.URL));
      for index := 1 to document.Frames.Length do begin
         try
             ole_index := index-1;
             frame_dispatch := document.Frames.Item(ole_index);
             if frame_dispatch <> nil then begin
                 framed := frame_dispatch as IHTMLWindow2;
                 if Assigned(framed.document) then NavigateFrameset(framed.document);
             end;
         except
             on E: Exception do MessageDlg(E.Message,mtError,[mbOk],0);
         end;
      end;
   except
       on E: Exception do MessageDlg(E.Message,mtError,[mbOk],0);
   end;
end;

這段程式碼對絕大多數網頁都可以正常執行, 可是在少數網頁中, 卻會發生錯誤 例如: http://www.imfong.com 就無法使用 請大家幫忙測試一下, 問題出在哪邊好嗎 ? 謝謝 ! (必須 uses MSHTML_TLB 才能編譯以上程式碼, 而 MSHTML_TLB 必須經由 import Type Library 取得)

這個問題應該是無解了！ 原因在於： 最初，瀏覽器的開發商、開發團體出於安全性的考慮，默認情況下是不允許在分屬於不同域的頁面之間進行數據交換和方法調用的，當遇到這種情況時瀏覽器就會返回「拒絕訪問(Access Denied)」的錯誤。 也就是說該網頁的Frames 各別為不同領域的IP 位置。 基於安全性的考量，因此就...... 可以看一下這篇報導。 http://www.cryer.co.uk/brian/delphi/error_twb_eoleexception.htm