Discussion :

[mohammed.badre]

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 :

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

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

[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+.

[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 :

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

Result := Int64(Sr.FindData.nFileSizeHigh) shl 32 + Sr.FindData.nFileSizeLow;

[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+.

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.

[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...

[mohammed.badre]

Je vous remercie pour vos réponse rapide et efficace

[ShaiLeTroll]

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

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

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

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 !





Tu dois aussi pouvoir l'écrire

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

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

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 !