function Get File Size

Version imprimable

Bonjour,

Je fais de la maintenance sur un code d'une autre personne, et je n'arrive pas a comprendre ce que fais cette fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
function TForm1.GetFileSize(const APath: string): Int64;
var
    Sr : TSearchRec;
Begin
    if FindFirst(APath,faAnyFile,Sr)=0 then
      try
        Result := Int64(Sr.FindData.nFileSizeHigh) shl 32 + Sr.FindData.nFileSizeLow; // surtout cette ligne
      finally
      FindClose(Sr);
    end
    else Result := 0;
 
end;

Merci d'avance pour votre aide

30/11/2011, 16h19
Gilbert Geyer

Bonjour,

En principe (c'est à dire s'il n'y a pas un bug) cette GetFileSize renvoie la taille du fichier passé en paramètre.

Et si cette fonction ne marche pas alors tu peux en trouver une bonne dans la FAQ.

A+. :D
30/11/2011, 16h21
mohammed.badre

Merci pour votre réponse, j'ai bien compris ce que veux dire le nom de la fonction par contre par le contenu, surtout :

Code:

Result := Int64(Sr.FindData.nFileSizeHigh) shl 32 + Sr.FindData.nFileSizeLow;
30/11/2011, 16h45
Gilbert Geyer

Re-bonjour,

Bin cette ligne calcule la taille du fichier à partir des deux valeurs Sr.FindData.nFileSizeHigh) et Data.nFileSizeLow
où la première est multipliée par décalage vers la gauche (shl 32) puis additionnée à la seconde.
Avec shl 1 on multiplie par 2, shl 2 on multiplie par 2² etc.

A+. :D

Edit : Une rectif à propos de mon premier message : la fonction ne renvoie apparemment pas la taille du fichier passé en paramètre, mais la taille du premier fichier trouvé dans le dossier (const APath) passé en paramètre.
30/11/2011, 16h49
Andnotor

C'est la construction d'un entier sur 64 bits à partir de deux dword.

Pour que le compilateur s'y retrouve, il faut caster le premier dword (censé être les bits de poids forts) en Int64 pour pouvoir y appliquer un décalage à gauche de 32 bits (shl 32). Si on ne le faisait pas, la valeur retournée serait simplement 0, Les bits hors-étendue après décalage étant ignorés. Puis y ajouter les bits de poids faibles.

Tu peux remplacer toute cette ligne par Result := Sr.Size. Size est un Int64 ;)

Ce code doit daté de pas mal d'années...
30/11/2011, 16h55
mohammed.badre

Je vous remercie pour vos réponse rapide et efficace ;)

il est intéressant que l'aide de Microsoft a changé !

Dans le HLP du Windows API SDK de C++Builder 6 :

Citation:

Specifies the high-order DWORD value of the file size, in bytes.
This value is zero unless the file size is greater than MAXDWORD.
The size of the file is equal to (nFileSizeHigh * MAXDWORD) + nFileSizeLow.

Sur l'aide en Ligne MSDN WIN32_FIND_DATA structure

Citation:

The high-order DWORD value of the file size, in bytes.
This value is zero unless the file size is greater than MAXDWORD.
The size of the file is equal to (nFileSizeHigh * (MAXDWORD+1)) + nFileSizeLow.

le +1 change tout ! :mouarf:

Tu dois aussi pouvoir l'écrire
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 function GetFileSize(const APath: string): Int64; var Sr : TSearchRec; Begin if FindFirst(APath,faAnyFile,Sr)=0 then begin try Windows.TLargeInteger(Result).HighPart = Sr.FindData.nFileSizeHigh; Windows.TLargeInteger(Result).LowPart = Sr.FindData.nFileSizeLow; finally FindClose(Sr); end end else Result := 0; end;
Pour informations, Size de TSearchRec est affecté par FindFirst\FindNext comme cela

Code:

Size := FindData.nFileSizeLow or Int64(FindData.nFileSizeHigh) shl 32;

dommage de mettre la fonction dans TForm1

@Andnotor, il est vrai que la FAQ : Comment récupérer la taille d'un fichier ? est inutilement complexe !

30/11/2011, 17h59
Andnotor

Citation:

Envoyé par ShaiLeTroll

il est vrai que la FAQ : Comment récupérer la taille d'un fichier ? est inutilement complexe !

Je n'avais pas vu la FAQ à ce sujet ! Ce code n'est finalement pas si vieux que ça :mrgreen: