ブラウザ表示までにかかった時間

おかりん  2009-12-18 23:32:28  No: 36482  IP: 192.*.*.*

ボタンを押すとWebBrowserでナビゲートします。
そしてそのブラウザが表示完了までにかかった時間を調べたいです。

どのようにすればよいでしょうか？

編集 削除
けど  2009-12-19 00:30:44  No: 36483  IP: 192.*.*.*

完了は「Complete」です。イベントは三つありますね。お好きなものをどぞ
  private
    { Private 宣言 }
    StartCount:DWord;
---------------
procedure TForm1.Button1Click(Sender: TObject);
begin
  StartCount:=GetTickCount;
  WebBrowser1.Navigate('http://google.com');
end;

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Memo1.Lines.Add('NavigateComplete2 = '+IntToStr(GetTickCount-StartCount));
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Memo1.Lines.Add('DocumentComplete = '+IntToStr(GetTickCount-StartCount));
end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
  Memo1.Lines.Add('DownloadComplete = '+IntToStr(GetTickCount-StartCount));
end;

編集 削除
おかりん  2009-12-21 22:02:06  No: 36484  IP: 192.*.*.*

ん〜すいません、なんかうまくいきません。


procedure TForm1.WebBrowser1NavigateComplete2
がエラーになるのですが、

procedure TForm1.  
内に設置した場合数字がでてきますが、ん〜
これが表示にかかった時間なのでしょうか・・・

編集 削除
おかりん  2009-12-21 22:02:07  No: 36485  IP: 192.*.*.*

ん〜すいません、なんかうまくいきません。


procedure TForm1.WebBrowser1NavigateComplete2
がエラーになるのですが、

procedure TForm1.  
内に設置した場合数字がでてきますが、ん〜
これが表示にかかった時間なのでしょうか・・・

編集 削除
あ  2009-12-21 22:25:20  No: 36486  IP: 192.*.*.*

何も情報を出さずにエラーになるとかって言われても…
コードの書き方が悪いんだろう。

編集 削除