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

Question

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

提前致谢。

Answer 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