請問為何WebBrowser1DocumentComplete不會被執行呢 |
|
答題得分者是：max5020
|
|
conchih
一般會員   發表：41 回覆：33 積分：14 註冊：2003-06-07 發送簡訊給我 |
各位前輩
我想抓網頁的原始碼 但為何WebBrowser1DocumentComplete不會被執行呢 讓我無法順利讀取 請問是我少了什麼嗎? 謝謝 [code delphi] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,HTMLPars2, StdCtrls, OleCtrls, SHDocVw,mshtml; type TForm1 = class(TForm) Memo1: TMemo; WebBrowser1: TWebBrowser; Button1: TButton; procedure Button1Click(Sender: TObject); procedure WebBrowser1DocumentComplete(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant); private { Private declarations } public { Public declarations } end; var Form1: TForm1; IsComplete: boolean; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var Full_URL:string; Doc: IHTMLDocument2; begin IsComplete := false; Full_URL:='http://www.hinet.net/'; WebBrowser1.Navigate(Full_URL); while not IsComplete do application.ProcessMessages; showmessage('成功'); //Doc := WebBrowser1.Document as IHTMLDocument2; //memo1.Lines.Text := doc.body; end; procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant); var Doc: IHTMLDocument2; begin IsComplete := True; Doc := WebBrowser1.Document as IHTMLDocument2; memo1.Lines.Text := doc.body; end; end. [/code] |
|
max5020
資深會員  發表：30 回覆：277 積分：321 註冊：2003-06-04 發送簡訊給我 |
|
|
conchih
一般會員 發表：41 回覆：33 積分：14 註冊：2003-06-07 發送簡訊給我 |
|
|
conchih
一般會員 發表：41 回覆：33 積分：14 註冊：2003-06-07 發送簡訊給我 |
發表時間：2008-05-10 22:13:11
IP:220.138.xxx.xxx 訂閱
附加檔案：系統時間：2024-07-03 6:34:44
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |