在 Delphi 中使用 TWebBrowser 获取网页的大小答案

【问题标题】：Getting size of a webpage with TWebBrowser in Delphi在 Delphi 中使用 TWebBrowser 获取网页的大小
【发布时间】：2009-12-28 03:14:37
【问题描述】：

如何获取使用 TWebBrowser 加载的网页的大小（字符或字节）？我的意思是“大小”作为加载网页的 HTML 内容的长度。

提前致谢。

【问题讨论】：

标签： delphi size webpage twebbrowser

【解决方案1】：

您必须使用 Document.FileSize 属性，它以字节为单位返回 html 文档的大小。此属性以字符串形式返回文件大小。请记住，如果没有加载页面或文件在缓存中不可用，它将引发异常。这意味着如果文档头请求文件不被缓存，那么调用 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

【讨论】：