delphi - 在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