Discussion :

[Pedro]

Salut

voila, j'ai un problème pour récupérer la taille de fichiers. Ces fichiers sont sur un CD. Donc lecture seule...

Premièrement, j'ai essayé avec assignefile ,reset et filesize, mais le debugger me renvoie une erreur I/O...
J'ai donc essayé avec les fonctions API avec FileCreate, GetFileSize puis CloseHandle... Alors, soit je me suis trompé dans les paramètres (sachant que j'ai tout mis en OPENREAD) de FileCreate ou dans autre chose mais il me renvoie systématiquement 0

Donc est-ce qu'une âme charitable peut me donner la solution à ce problème en me donnant par exemple, une routine qui marche pour tous les types de fichier...

Merci d'avance

[lper]

Hello,
as tu essayé la fonction FileSizeByName ?

[Reisubar]

Tu peux utiliser un SearchRec, tu l'ouvres sur le fichier ou tu veux prendre la taille, et tu l'obtiens :

Code :

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

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

(Size étant un int64, Sr un TSearchRec).

[lil_jam63]

En utilisant un TFileStream par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Button1Click(Sender: TObject);
var
fichier : TFileStream;
taille : integer;
begin
if opendialog1.Execute then
  begin
    fichier := TFileStream.Create(opendialog1.FileName,fmOpenRead	);
    taille :=  fichier.Size;
    showmessage(floattostrf(taille div 1048, ffNumber, 6,0)+' kb');
  end;
end;

[Reisubar]

Je recomplète ma réponse :

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;
  finally
    FindClose(Sr);
  end
  else
    Result := 0;
end;

[lil_jam63]

Dis moi reisubar, dans ton source, tu utilise shl

Code :

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

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

peux tu m'expliquer ce que c'est ?

[cpdump]

C'est le décalage à gauche binaire, cela équivant à multiplier par 2^32.

[lil_jam63]

merci cpdump

[Reisubar]

Voilà, c'est pour gérer les fichiers qui ont une taille plus importante que la capacité de la varianle nFileSizeLow : on lit nFileSizeHigh et on le multiplie pour qu'il s'additionne correctement à l'autre partie... On obtient dans ce cas un résultat codé en int64.

[lil_jam63]

Parfait, et encore merci pour les infos

[Pedro]

Oui ben moi aussi je remercie tout le monde...
J'ai finalement utilisé un TFileStream en fmOpenRead, il ne semble pas y avoir de problème!

[Reisubar]

Tu auras des problèmes si les fichiers sont ouverts par une application qui a posé un "verrou" en lecture ET écriture (Word est coûtumier du procédé...). Après, si ce cas n'arrive jamais, ta procédure marchera effectivement toujours bien.

[Pedro]

Bon mais alors, il n'y a pas une méthode qui permet d'ouvrir un fichier en lecture systématiquement?

[antp]

Avec FindFirst et un TSearchRec, comme suggéré par Reisubar, c'est la meilleure méthode je pense.

Sinon, si on veut pouvoir ouvrir un fichier en lecture seule même s'il est ouvert par un autre programme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  FileStream := nil;
  FileHandle := CreateFile(PChar(AFileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
  if FileHandle = INVALID_HANDLE_VALUE then
    Exit;
  try
    FileStream := THandleStream.Create(FileHandle);
    ...
  finally
    FileStream.Free;
    CloseHandle(FileHandle);
  end;

Le FindFirst est quand même plus simple

[Pedro]

Re merci à tous!