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