可以自動產生TWebBrowser 但是刪除時 卻有錯誤訊息 用的刪除方法有 .destory .free 以上兩項方法都會產生錯誤訊息 Project tncar2.exe raised exeception class EAccessViolation with message 'Access violation at address 772A8C5E in module 'SHLWAPI.dll'. Read of address 00000018'.Process stopped. Use Step or Run to Continue. 煩請解惑

通當自動 Create 的東東都是自動刪除的，手動 Create 的東東都是手動刪除的 你若手動刪除自動 Create 的東西，到它自動刪除時便會 AV (AccessViolation, 不是用來看的那種)了。

web.create(self); . . . . web是個自定webbrowser物件 請問我該如合刪除web呢 (對不起了 問詳細點) 謝謝了

你自己Create 的你自己 Free 應沒問題 亦即是問題出再其他地方 (但到 Free 時才引發錯誤) 那你應貼由 Create 到 Free 的 Code 才能看到問題出在那裡 有可能是你 Free 了 TWebBrowser 內它自動 Free 的子物件，所以到你叫它Free而它去Free它的子物件時出錯

procedure TForm1.anasubdata( att1,att2,att3 : string); var subadd:string; begin web:=TWebBrowser.Create(self); web.Top:=130*(totalrun mod 5) 20; web.Left:=75*(totalrun div 5) 20; web.Width:=75; web.Height:=75; web.Align :=alNone; web.Visible:=true; TOleControl(web).Name:='gigi' inttostr(totalrun); TOleControl(web).Parent :=form1; totalrun:=totalrun 1; web.OnDocumentComplete:=WebBrowserDocumentComplete; subadd:=''; if att3='T' then subadd:='http://www.tncar.com.tw/store/post/Show_Cardata.asp?Carno=' att1 '&Storeno=' att2 else subadd:='http://www.tncar.com.tw/store/post/Show_Cardata.asp?code=' att1; web.Navigate(subadd); end; procedure TForm1.WebBrowserDocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin (sender as TWebBrowser).Free; end; 就是(sender as TWebBrowser).Free;這一行執行時出錯的 錯誤訊息就是上面的訊息 麻煩大大解惑 感激不進

//修改如下：    unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, OleCtrls, SHDocVw, StdCtrls;    type   TForm1 = class(TForm)     WebBrowser: TWebBrowser;     Button1: TButton;     Button2: TButton;     procedure anasubdata( att1,att2,att3 : string);     procedure WebBrowserDocumentComplete(Sender: TObject;       const pDisp: IDispatch; var URL: OleVariant);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;    var   Form1: TForm1;   totalrun:integer=5;   //定义   web:TWebBrowser; implementation    {$R *.dfm}    procedure TForm1.anasubdata(att1,att2,att3 : string); var subadd:string;    begin web:=TWebBrowser.Create(self); web.Top:=130*(totalrun mod 5)+20; web.Left:=75*(totalrun div 5)+20; web.Width:=75; web.Height:=75; web.Align :=alNone; web.Visible:=true; TOleControl(web).Name:='gigi'+inttostr(totalrun); TOleControl(web).Parent :=form1; totalrun:=totalrun+1; web.OnDocumentComplete:=WebBrowserDocumentComplete; subadd:=''; if att3='T' then subadd:='http://www.tncar.com.tw/store/post/Show_Cardata.asp?Carno='+att1+'&Storeno='+att2 else subadd:='http://www.tncar.com.tw/store/post/Show_Cardata.asp?code='+att1; web.Navigate(subadd);    end;    procedure TForm1.WebBrowserDocumentComplete(Sender: TObject;   const pDisp: IDispatch; var URL: OleVariant); begin IF WEB<> NIL THEN ( web as TWebBrowser).Free; end;    procedure TForm1.Button1Click(Sender: TObject); begin anasubdata('12','13','T'); end;    end.    供参考！！！    风花雪月 e梦情缘

------
风花雪月 e梦情缘

From Help file Write an OnDocumentComplete event handler to take specific action when a frame or document is fully loaded into the Web browser .For a document without frames, this event occurs once when the document finishes loading. On a document containing multiple frames, this event occurs once for each frame. When the multiple-frame document finishes loading, the Web browser fires the event one final time. 若果你的網頁是有 Frame 的 OnDocumentComplete 會被呼叫數次，頭一次你便 Free 了但程序未完繼續運作時一讀 web 便 AV 了。 可試試 : procedure TForm1.WebBrowserDocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin if TWebBrowser(sender).ReadyState = READYSTATE_COMPLETE then TWebBrowser(Sender).Free; end; 不過你這樣設定當網頁一下載完成便立即關閉，是使用者不用看的嗎 ?

每次回應的DocumentComplete的sender都是不同的 所以把他free了 會有錯誤嗎 以上兩位大大的範例也有相同的問題 錯誤訊息也都我第一次所post一樣 第一個物件可以刪除 但是刪除第二個就會產生錯誤了 或許樓上的大大是對的 但是依然會有錯誤耶 請大大們再幫幫我吧 感激不盡

TWebBrowser 元件小弟也不是很熟，看來你是想自動到網頁上抓資料罷，可否考慮不用不繼 Create Free 而重開 WebBrowser 只改變 Link 呢? 站長大大有個抓資料的大作你可作參考 : http://delphi.ktop.com.tw/topic.php?topic_id=21505

//上此POST的代码，是动态创建多个。 我试验过多次了，很好用的。 这次是就是你想要的方法：    unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, OleCtrls, SHDocVw, StdCtrls, Mask, DBCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure anasubdata( att1,att2,att3 : string);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   totalrun:integer=5;   //定义   web:TWebBrowser; implementation    {$R *.dfm}    procedure TForm1.anasubdata(att1,att2,att3 : string); var subadd:string;    begin web:=TWebBrowser.Create(self); web.Top:=130*(totalrun mod 5)+20; web.Left:=75*(totalrun div 5)+20; web.Width:=75; web.Height:=75; web.Align :=alNone; web.Visible:=true; TOleControl(web).Name:='gigi'+inttostr(totalrun); TOleControl(web).Parent :=form1; totalrun:=totalrun+1; //去掉 //web.OnDocumentComplete:=WebBrowserDocumentComplete; subadd:=''; if att3='T' then subadd:=att1 else subadd:=att2; web.Navigate(subadd); end; procedure TForm1.Button1Click(Sender: TObject); begin //单击时发生 IF WEB<> NIL THEN ( web as TWebBrowser).Free; anasubdata('HTTP://WWW.YAHOO.COM','HTTP://CN.YAHOO.COM','T'); end; end. 风花雪月 e梦情缘

------
风花雪月 e梦情缘

謝謝各位先進 我的問題解決了 主要是在ondocumentcomplete裡面執行free或者destory 就會產生av錯誤了 所以只要在ondocumentcomplete外 執行就好了 謝謝諸位先進

提問者您好:


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


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


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

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