Obtention de la taille d'une page Web avec TWebBrowser dans Delphi

Question

Comment puis-je obtenir la taille (caractères ou octets) d'une page Web chargée à l'aide de TWebBrowser? Je veux dire "taille" comme la longueur du contenu HTML d'une page Web chargée.

Merci d'avance.

Answer 1

Vous devez utiliser la propriété Document.FileSize qui renvoie la taille du document html en octets.Cette propriété renvoie la taille du fichier sous la forme d'une chaîne. garder à l'esprit Il va lancer une exception si aucune page n'est chargée ou si le fichier n'est pas disponible dans le cache. Cela signifie que si les en-têtes de document demandent que le fichier ne soit pas mis en cache, l'appel de FileSize lèvera une exception.

Essayez cet exemple:

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; 

pour plus d'informations, vous pouvez lire ce lien http://www.cryer.co.uk/brian/delphi/twebbrowser/twebbrowser_oleobject.htm