Ottenere dimensioni di una pagina web con TWebBrowser in Delphi

Question

Come posso ottenere la dimensione (caratteri o byte) di una pagina web caricata mediante TWebBrowser? Voglio dire "taglia" la lunghezza del contenuto HTML di una pagina web caricata.

Grazie in anticipo.

Answer 1

è necessario utilizzare il Document.FileSize di proprietà Quale restituisce la dimensione del documento HTML in bytes.this proprietà restituisce la dimensione del file come una stringa. tenere presente Sarà un'eccezione se nessun pagina viene caricata o se il file non è disponibile nella cache. Ciò significa che se le intestazioni documento di richiesta che il file non è memorizzato nella cache quindi chiamando FileSize sarà un'eccezione.

Prova questo esempio:

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;

Per ulteriori informazioni si può leggere questo link http: // www .cryer.co.uk / brian / Delphi / TWebBrowser / twebbrowser_oleobject.htm