How to determine total size of web page in TWbBrowser?

[JohnnySmid]

Hallo,
I need to determine total size (i mean data size, not widht and height of the web page that is loaded in TWebBrowser...
I tried WebBrowser1.Document.FileSize but it always causes an error.

Can anyone help me please?

 

[donvittorio]

Trying to read FileSize before the page has finished loading will give you an error. Just wait until the page has completed loading and it should(!) be okay

procedure TestGetSize;
var
  URL: string;
  Size: string;
begin
  URL := '[URL unfurl="true"]http://www.google.co.uk';[/URL]
  WebBrowser1.Navigate(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

  while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
    Application.ProcessMessages;

  Size := WebBrowser1.OleObject.Document.FileSize;
end;