Discussion :

[cincap]

Bonjour à toutes et à tous,

Voila, j'ai une fonction qui permet en principe de connaître la taille d'un fichier.

Mais cette taille ne semble pas être correcte à la valeur contenue dans le hint lorsque le curseur est posé sur ce fichier.

La taille de mon fichier affiche 5,72M et 5861Ko

Le résultat avec la fonction affiche 6001637 octets.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function TailleFichier(fichier: string): longint;
var SearchRec:TSearchRec;
    Resultat:integer;
begin
  Result:=0;
  Resultat:=FindFirst(fichier, FaAnyFile, SearchRec);
  if Resultat=0 then Result:=SearchRec.Size;
  FindClose(SearchRec);
end;

Utilisation :

Code :

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

1
2
3
4
5
6
7
8
 
procedure TFTaille.BTestClick(Sender: TObject);
begin
  if Op1.Execute then
  begin
    showmessage('Taille du fichier '+Op1.FileName +': '+IntToSt(TailleFichier(Op1.FileName)));
  end;
end;

Si quelqu'un a mieux, cela m'intéresse.

Merci d'avance,

@+,

Cincap

[perrysoft]

Bonjour

je dirai que la taille est bonne

6001637 octets / 1024 nous donne 5860,97 donc si tu arrondit 5861 Ko et si tu redivise par 1024 ca nous donne 5,72 Mo.

Cordialement
Sébastien

[bredelet]

C'est correct.

L'affichage est en Ko = 1024 octets et en Mo = 1024 * 1024 octets.

[cincap]

Y a t'il moyen alors avec cette fonction de calculer et d'afficher directement le résultat en Mo.

Merci d'avance,

@+,

Cincap

[Cl@udius]

Salut

Est-ce que cette Q/R de la FAQ répond à ta question ?

@+ Claudius

[Gilbert Geyer]

Salut,

Ou bien ceci :

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
 function fGoMoKo(const mem : DWord) : string; // pour afficher une taille en DWord via la string-Result au format raccourci
  var      e : byte; s : string; r : Extended;
  begin    e:=0; r:=mem;
           if r>=0 then
           begin while r>1024 do begin r:=r/1024; inc(e); end;
                 case e of
                    0 : s:='Oct';
                    1 : s:='Ko';
                    2 : s:='Mo';
                    3 : s:='Go';
                    4 : s:='To';
                 end;
                 fGoMoKo:=FormatFloat('#.###',r)+' '+s;
           end;
  end; // fGoMoKo

A+

[ShaiLeTroll]

Avec un DWord, on atteind jamais le To ! et GetFileSize j'ai les Int64 via des LargeInt (Double DWord)