Taille réelle d'un fichier

Version imprimable

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:

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:

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

01/10/2008, 11h40
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
01/10/2008, 11h44
bredelet

C'est correct.

L'affichage est en Ko = 1024 octets et en Mo = 1024 * 1024 octets.
01/10/2008, 12h00
cincap

Correct !

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

Merci d'avance,

@+,

Cincap
01/10/2008, 12h23
Cl@udius

Salut

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

@+ Claudius

Salut,

Ou bien ceci :

Code:

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+ :D

01/10/2008, 14h00
ShaiLeTroll

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

Et si tout le monde utilisait les unités kio, Mio et Gio (kibioctet, mibioctet et gibioctet) conformément aux recommandations de la Commission électrotechnique internationale, il n'y aurait plus de confusion... considérer qu'un Go vaut 1 milliard d'octet n'est absolument pas faux, car en métrologie un préfixe ne saurait avoir plusieurs significations. Donc 1 gigatruc = 10^9 truc, point. Ce sont les habitudes de sagouin du monde de l'informatique qui ont engendré les confusions du genre 1 giga = 2^30, largement entretenus par Microsoft dans Windows, d'ailleurs.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 function fGioMioKio(const mem : Int64) : string; 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:='Kio'; 2 : s:='Mio'; 3 : s:='Gio'; 4 : s:='Tio'; end; Result:=FormatFloat('#.###',r)+' '+s; end; end; // fGioMioKio
:P

Tiens, me v'là membre éprouvé... ô combien !

01/10/2008, 14h28
droggo

Gao,

Citation:

Envoyé par CapJack

largement entretenus par Microsoft dans Windows, d'ailleurs.

Microsoft ne fait que suivre l'habitude bien établie en informatique.

D'ailleurs, c'est la même chose chez Linux (et d'autres, VMS par exemple), pourquoi ne pas le signaler également ?
01/10/2008, 14h35
CapJack

Citation:

Envoyé par droggo

D'ailleurs, c'est la même chose chez Linux (et d'autres, VMS par exemple), pourquoi ne pas le signaler également ?

Voilà qui est fait. :)

Habitude bien établie, certes, mais habitude de sagouin quand même, malheureusement.
01/10/2008, 14h41
bredelet

Les seuls qui aiment les unités de la CEI sont les fabriquants de disques durs, qui t'annoncent allègrement des capacités de "750 GB" (en fait 750 GiB), ce qui donne 698 Go d'après le système d'exploitation...
01/10/2008, 14h46
CapJack

Non, là tu confonds, désolé, ce serait en théorie 750 GB = 698GiB ; et justement, les fabricants de disque dur n'aiment pas du tout ces unités, car elles correspondraient à des valeurs réelles en base deux, ce qui les forcerait à booster la capacité des disques durs.
01/10/2008, 14h48
Gilbert Geyer

Bonjour à tous,

Merci CapJack pour avoir rectifié ma fonction : j'avais pas fait gaffe au DWord lorsque dans mon emballement, arrivé aux GigaOctets, je me suis dit tiens pendant que j'y suis je vais y ajouter les Téras en prévision d'une éventuelle évolution des choses :lol: (j'ai seulement 225 Mo de mem-vive-totale :()

A+ :D
01/10/2008, 14h55
cincap

Bien bien merci à tous !
@ Gilbert Geyer et CapJack, vos fonctions calculent 4,213Mo pour le même fichier qui affiche 5,72M et 5861Ko.

Soit le même résultat si jutilise la fonction qui utilise la dll 'shlwapi.dll'

Je fais peut être une erreur quant à l'utilisation de vos fonctions :
Code:

1 2 3 4 5 6 7 8 9 10 11 Var Value: Dword; //LongWord ... edittaille.Text := fGoMoKo(value) ; ou edittaille.Text := fGioMioKio(value);
Sinon merci à tous pour les idées,

@+,

Cincap
01/10/2008, 15h19
Gilbert Geyer

Re-salut,

Citation:

Gilbert Geyer et CapJack, vos fonctions calculent 4,213Mo pour le même fichier qui affiche 5,72M et 5861Ko. ...
Je fais peut être une erreur quant à l'utilisation de vos fonctions :

... "pour le même fichier qui affiche 5,72M et 5861Ko" : oui mais on ne sait pas comment ni avec quelle fonction il affiche ce résultat.

Non t'as pas fait d'erreur dans l'utilisation ... Essayes les fonctions avec Value:=6001664; //<- = 5861*1024 octets
et ça t'affichera aussi 5,723 Mo ou 5,723 Mio.

A+ :D
01/10/2008, 16h23
bredelet

Citation:

Envoyé par CapJack

Non, là tu confonds, désolé, ce serait en théorie 750 GB = 698GiB ; et justement, les fabricants de disque dur n'aiment pas du tout ces unités, car elles correspondraient à des valeurs réelles en base deux, ce qui les forcerait à booster la capacité des disques durs.

Ouh :boulet:
Oui je me suis trompé. Merci de ta correction.

cincap, je te propose le jeu de fonctions suivant, que je préfixe CEI (pour Commission électrotechnique internationale) afin que les choses soient parfaitement claires et dépourvues de toute ambiguïté, enfin j'espère :

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
function CEI_TiGiMiki(const mem : Int64) : string; 
  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:='kio';
                    2 : s:='Mio';
                    3 : s:='Gio';
                    4 : s:='Tio';
                 end;
                 Result:=FormatFloat('#.###',r)+' '+s;
           end;
  end;
 
function CEI_ToGoMoko(const mem : Int64) : string; 
  var      e : byte; s : string; r : Extended;
  begin    e:=0; r:=mem;
           if r>=0 then
           begin while r>1000 do begin r:=r/1000; inc(e); end;
                 case e of
                    0 : s:='oct';
                    1 : s:='ko';
                    2 : s:='Mo';
                    3 : s:='Go';
                    4 : s:='To';
                 end;
                 Result:=FormatFloat('#.###',r)+' '+s;
           end;
  end;

Ce que font tous les systèmes d'exploitation, c'est TiGiMiki, même s'ils écrivent To, Go, Mo, et ko :roll:, et ce que toi tu veux, si j'ai bien tout compris, sera fourni par CEI_ToGoMoko... tu ne serais pas fabricant de disques durs, par hasard ? ;)

01/10/2008, 17h47
cincap

@Gilbert Geyer

Citation:

"pour le même fichier qui affiche 5,72M et 5861Ko" : oui mais on ne sait pas comment ni avec quelle fonction il affiche ce résultat.

Ce résultat n'est pas affiché grâce à une fonction mais lorsque le curseur est posé sur le fichier qui se trouve dans un dossier et visible dans l'exploreur.

Je vais donc cloturer ce topic et merci encore pour vos différents messages.

@+,

Cincap
01/10/2008, 19h01
ShaiLeTroll

C'est marrant, j'avais l'impression d'avoir déjà eu la même discussion sur ce forum, j'ai retrouvé sur Phidels, il y a pile poil deux ans :mouarf:, et ZeuS-[SFX] parlait déjà du KibiOctet, mais je me rappèle que sur Developpez.com on en a parlé aussi !

En tout cas, la notation, en puissance 10, pour la capacité des DD, eh bien les vendeurs, il abusait pour faire croire à une capacité plus grande en juant que cela donnait un chiffre plus grande que via les puissance de 2 ... (CEI vous dites, c'est bon à savoir)