如題，謝謝

uses ActiveX;    procedure TForm1.Button1Click(Sender: TObject);
begin
  (WebBrowser1.Document as IPersistFile).Save('C:\test.htm', False);
end;

--- Everything I say is a lie. @>---

我試了一下，這行程式碼好像只是將網頁的源始碼存下來，並不會像ie那樣把整頁所用的的物件，如頁面上的圖片，*.JS等物件都存下來，特別是遇到有frameset的網頁，例如http://dye.mychat.to/

不過還沒找到如何不經對話方塊提示, 直接儲存的 :(

begin
  WebBrowser1.ExecWB(OLECMDID_SAVEAS,
                     OLECMDEXECOPT_DODEFAULT,
                     EmptyParam,
                     EmptyParam);
end;

有興趣的話, 參考: http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&oe=UTF-8&th=878502bb87a888e6&rnum=11 --- Everything I say is a lie. @>--- 發表人 - hagar 於 2003/12/24 21:26:35

嗯嗯，就是這個啦，這就是我要的了，謝啦。 想順便再請問hager 大大一個問題， 如http://dye.mychat.to/gif/game/game-01.htm 不知要下載這網頁上的圖片，有沒有不用開啟網頁就下載網頁上連結的圖片的方法呢 我目前的直接想法是用webbrowser開啟網頁，然後利用其屬性去取得網頁中圖片的連結，最後再去下載，不過我怕有更簡單的方法能取得圖片連結，那我就虧大了，呵。所以想請教你一下有沒有不用開啟網頁，就能取得網頁中圖片連結的方法呢，謝謝

小弟想應該是沒有吧, 以下是取得 WebBrowser 內所有的連結 資料來源: http://www.swissdelphicenter.ch/en/showcode.php?id=479

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i: Integer; 
begin 
  for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do 
    Listbox1.Items.Add(Webbrowser1.OleObject.Document.Links.Item(i)); 
end;     {*****************}     { if there are frames }     procedure TForm1.Button2Click(Sender: TObject); 
var 
  u : variant; 
  v : IDispatch; 
  s : string;       procedure RecurseLinks(htmlDoc: variant); 
  var 
    BodyElement : variant; 
    ElementCo: variant; 
    HTMLFrames: variant; 
    HTMLWnd : variant; 
    j, i : integer; 
  begin 
    if VarIsEmpty(htmlDoc) then 
      exit; 
    BodyElement := htmlDoc.body; 
    if BodyElement.tagName = 'BODY' then 
    begin 
      ElementCo := htmlDoc.links; 
      j := ElementCo.Length - 1; 
      for i := 0 to j do 
      begin 
        u := ElementCo.item(i); 
        s := u.href; 
        listLinks.Items.Add(s); 
      end; 
    end; 
    HTMLFrames := htmlDoc.Frames; 
    j := HTMLFrames.length - 1; 
    for i := 0 to j do 
    begin 
      HTMLWnd := HTMLFrames.Item(i); 
      RecurseLinks(HTMLWnd.Document); 
    end; 
  end; // RecurseLinks 
begin 
  v := WebBrowser1.document; 
  listLinks.Clear; 
  RecurseLinks(v); 
end; 

--- Everything I say is a lie. @>---

hagar 版主您好:    您所提供的 http://www.swissdelphicenter.ch/en/showcode.php?id=479 雖然可以取的 WebBrowser 內所有的連結, 但是對於 pop-up menu 的 URL 就無法取得, 不知是否就此程式修改後, 可以有解?        

提問者您好:


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


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


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

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