Taille d'une image

Question

Bonjour &#224; tous ! J'utilise un TOpenPictureDialog pour ouvrir une image
et ensuite prendre des renseignements sur elle comme le nom, le chemin,
les dimensions et la taille. Cependant je ne trouve pas comment on fait
pour avoir la taille de l'image ...

Voici une partie de mon code :

if OpenPicture.FileName <> '' then //si on a bien pris une image

        begin

                try

                lblImag.Visible := true;

               
Image1.Picture.LoadFromFile(OpenPicture.FileName);

                H := Image1.Picture.Height;

                lblH.Caption := IntToStr(H);

                W := Image1.Picture.Width;

                lblW.Caption := IntToStr(W);

                Image1.Proportional:= True;



Merci pour votre aide !!

Bisous

japee · Answer

Essaye ceci :



GetFileSize(OpenDialog1.FileName);



Ca devrait te combler... 



Bonne prog'

japee · Answer

Enfin, je voulais &#233;crire :



TailleFichier := GetFileSize(OpenDialog1.FileName);



Mais tu avais compris...



Bonne prog'

WhiteHippo · Answer

Attention japee !! La taille d'un fichier image n'est pas forcement &#233;quivalente &#224; la taille de l'image. (Entete, donn&#233;es compress&#233;es,etc...)

timisan, Si je me souviens bien la formule pour calculer la taille d'un bitmap doit ressembler &#224; quelquechose comme &#231;a :
  Taille d'un bitmap = Width * Height * Nombre d'octets par pixel (1 si 8 bits, 2 si 4 ou 8 bits, 4 au dessus)

Enfin, je crois  

Si tu veux des infos plus completes sur les bitmaps, va voir ici :
http://delphi.developpez.com/cours/graphiques/menugra/bitmap1.php
http://delphi.developpez.com/cours/graphiques/menugra/bitmap2.php

Cordialement.

timisan · Answer

Bonjour merci beaucoup &#224; vous 2 pour avoir r&#233;pondu. J'ai essay&#233; et &#231;a fonctionne. Voici ce que j'ai essay&#233; : 

function TailleImage(image: string): real;

//fonction renvoyant la taille du fichier 'fichier' en Octets 

var SearchRec:TSearchRec;

    Resultat:integer;

begin

  Resultat:=FindFirst(image, FaAnyFile, SearchRec);

  if Resultat=0 then Result := SearchRec.Size / 1024;

  FindClose(SearchRec);

end;



A plus

WhiteHippo · Answer

Attention, l&#224; encore, ce n'est pas la taille de l'image, c'est la taille du fichier image !!

N.B. Si tu veux la taille du fichier, utilises plutot la methode &#224; japee. Le findfirst est utilis&#233; pour rechercher un fichier correpondant &#224; certains crit&#232;res. Ici, tu as d&#233;j&#224; le nom de ton fichier, le getfilesize est plus appropri&#233;.

Cordialement.

Taille d'une image

5 réponses

Votre réponse

Discussions similaires