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

おかりん 2009-12-19 08:32:28 No: 36482

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

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

けど 2009-12-19 09:30:44 No: 36483

完了は「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-22 07:02:06 No: 36484

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

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

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

おかりん 2009-12-22 07:02:07 No: 36485

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

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

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

あ 2009-12-22 07:25:20 No: 36486

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