Comment trouver le poids en octets d'une image

Version imprimable

Bonjour à tous,

J'aimerais avoir le poids en octets d'une image chargée dynamiquement dans un TImage :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 ListeFichiers: TFileListBox; ImgImage: TImage; hauteur, largeur, poids: Integer; //ListeFichier contient les images du Dossier ListeFichiers.Directory := Dossier; ListeFichiers.update; for i := 0 to ListeFichiers.Count-1 do begin //On charge l'image dans le TImage ImgImage.Picture.LoadFromFile(ListeFichiers.items[k]); hauteur:= ImgImage.Height; largeur:= ImgImage.Width; //poids := ????? end;
Les images sont des jpeg et je n'ai pas trouvé la propriété poids dans le TImage.

Merci d'avance pour vos réponses.

Bonjour,

si par poids vous entendez la taille du fichier , la dernière fois que j'ai fait un truc de ce genre c'était en XE4 pour lister des fichiers images et grâce à la structure de recherche (findfirst puis findNext)

voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
Const SizeK = 1024;
      SizeM = 1024*1024;
....
procedure TBrowseThread.Browse;
var Info   : TSearchRec;  // structure de recherche
    Item: TListBoxItem;   // item de la liste
    Image : TImage;
 ...
begin
  Image:=TImage.Create(nil);
  try 
...
  If FindFirst(FRepertoire+'*.jpg',faAnyFile,Info)=0 Then   // première image du répertoire
  begin
    repeat
       if (Info.Attr And faDirectory)=0
        then
          begin
            Item := TListBoxItem.Create(FResult);        // Création de l'item
            Item.Parent := FResult;                 // affectation à la liste
            Item.TagString := FRepertoire+Info.Name;      // Stockage nom complet
            Item.StyleLookup := 'ListeItem';         // Style de l'item
            Item.Text := info.name;                  // nom du fichier
            Item.Height:=60;                         // Hauteur de l'item (pour ne pas prendre la hauteur par défaut)
          try
            // remplissage de l'image (utilisation de vignette)
            Item.ItemData.Bitmap.LoadThumbnailFromFile(Item.TagString,Item.Height,Item.Height);
            Image.Bitmap.LoadFromFile(Item.TagString);
            Item.StylesData['Dim.Text']:=Format('Dimensions %d x %d',[Image.Bitmap.Width,Image.Bitmap.Height]);
          except
          end;
          // Taille de l'image si >1Mo
          if info.Size>SizeM
           // en Méga Octets
           then Item.StylesData['Size.Text']:=Format('%3.3f Mo',[info.Size/sizem])
           // sinon en Kilo Octets
           else Item.StylesData['Size.Text']:=Format('%3.3f Ko',[info.Size/sizek]);
        ...
       end;
     until FindNext(Info)<>0;  // recherche
    FindClose(Info);           // fin de recherche
  end;
  finally
    FreeAndNil(Image);        // Image.Free;
  end;
end;

j'ai mis le source ici qui fait partie de ce tutoriel

comme vous n'indiquez pas votre version de Delphi ....

28/10/2014, 10h46
Gilbert Geyer

Bonjour,

Il aurait été également possible d'utiliser la fonction d'ici : http://delphi.developpez.com/faq/?pa...e-d-un-fichier
qui renvoie la taille d'un fichier quelconque avec une valeur de type int64, et ceci à mon avis quelle que soit la version de Delphi.

A+. :D
28/10/2014, 11h31
Ptite Développeuse

Désolée, je suis en XE3.
Cette méthode fonctionne très bien, c'est exactement ce que je cherchais.
Merci beaucoup !