delphi - Delphi で TWebBrowser を使用して Web ページのサイズを取得する

Question

TWebBrowser を使用してロードされた Web ページのサイズ (文字またはバイト) を取得するにはどうすればよいですか? 読み込まれた Web ページの HTML コンテンツの長さとしての「サイズ」を意味します。

前もって感謝します。

Answer 1

html ドキュメントのサイズをバイト単位で返すDocument.FileSizeプロパティを使用する必要があります。このプロパティは、ファイル サイズを文字列として返します。ページがロードされていない場合、またはファイルがキャッシュで使用できない場合は、例外がスローされることに注意してください。これは、ドキュメント ヘッダーがファイルをキャッシュしないように要求した場合、FileSize を呼び出すと例外がスローされることを意味します。

この例を試してください：

uses
MSHTML; //the IHTMLDocument2 interface is here

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);    
var
Size : WideString;
begin
 Size:=(WebBrowser1.Document as IHTMLDocument2).FileSize;
 ShowMessage(Size);
 end;

詳細については、このリンクを読むことができますhttp://www.cryer.co.uk/brian/delphi/twebbrowser/twebbrowser_oleobject.htm