Discussion :

[MaTHieU_]

Bonjour,

Est-il possible de récupérer la taille d'une image via un lien sans la télécharger ?

Merci,
MaTHieU_

[Clorish]

ca m'etonnerais tres fort ......

Quel est la but de cette question ?

[MaTHieU_]

Bonjour,

Le téléchargement en masse d'image d'une certaine taille.

J'ai réussi avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
procedure TFPrincipale.Button1Click(Sender: TObject);
begin
     IdHTTP1.Get(EUrl.Text);
end;
 
procedure TFPrincipale.IdHTTP1HeadersAvailable(Sender: TObject;
  AHeaders: TIdHeaderList; var VContinue: Boolean);
var
     Taille    : integer;
begin
     MLog.Clear;
     MLog.Lines.Add(AHeaders.Text);
     Taille := StrToIntDef(Trim(AHeaders.Values['Content-Length']),0);
     MLog.Lines.Add('Taille : ' + IntToStr(Taille))
end;

Cordialement,
MaTHieU_

[Paul TOTH]

si tu fais un Get l'image est téléchargée, il faudrait demander juste l'entête (Head)

ceci dit tu récupères la taille du fichier et non la taille (les dimensions) de l'image

[MaTHieU_]

Oui, c'est vrai, je pense qu'il faut juste annuler la récupération du fichier dans le IdHTTP1HeadersAvailable afin qu'il ne le récupère pas.

MaTHieU_

[MaTHieU_]

J'ai donc trouvé la bonne procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
IdHTTP1.Head(EUrl.Text);
MLog.Lines.Add(EUrl.Text);
MLog.Lines.Add('Taille : ' + IntToStr(IdHTTP1.Response.ContentLength) + ' octet(s)');

MaTHieU_