[Delphi] Récupérer la taille d'un (gros) fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Delphi] Récupérer la taille d'un (gros) fichier

Kyle_Katarn

Comment faire pour récupérer la taille de "c:\monfichier.ext", si possible dans un Int64 (où, si c'est trop dur, dans un longword) ?

Message édité par Kyle_Katarn le 09-05-2003 à 18:26:17

Publicité

ndmax

Je souhaiterais savoir exactement la même chose..

SVP! Merci.

Kyle_Katarn

donc .... UP !

antp

Super Administrateur
Champion des excuses bidons

tu l'ouvres avec un TFileStream ou THandleStream * puis tu récupères la taille via .Size

* : THandleStream si comme moi tu ouvres ton fichier avec la fonction CreateFile de l'API Windows. Tu peux aussi utiliser GetFileSize à la place du THandleStream, mais il te renvoie la taille sur deux DWORD, ce qui est pas très pratique

Message édité par antp le 12-05-2003 à 16:05:09

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

ndmax

J'ai vu un truc ici :
http://www.delphifr.com/article.aspx?Val=254

Sinon, apparemment il y a une fonction FileSize
mais le fichier doit être ouvert ..?? :??:

antp

Super Administrateur
Champion des excuses bidons

Ndmax a écrit :

Sinon, apparemment il y a une fonction FileSize

il a précisé qu'il le voulait sur un Int64 (donc possibilité de lire les tailles > 2 Go)

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Kyle_Katarn

antp a écrit :

il a précisé qu'il le voulait sur un Int64 (donc possibilité de lire les tailles > 2 Go)

Merci ANTP !

(j'avais trouve avec FindFirst entre temps qui semble donner la même chose, 2 32 bits (high/low) à combiner pour faire un 64)

antp

Super Administrateur
Champion des excuses bidons

Ha ? possible, c'est vrai que c'est peut-être plus simple comme méthode alors...

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

ndmax

Désolé antp..

Kyle_Katarn >> c'est quoi ta méthode ??

Kyle_Katarn

Code :

function TailleFichier(fic:string):Int64;
var
rec:TSearchRec;
begin
if FindFirst(fic,faAnyFile,rec)=0 then
Result:=Int64(rec.FindData.nFileSizeLow)
else
Result:=0;
end;

Là je ne prend que le 32bits low, il faudrait multiplier par 2^32*le high

Publicité

zion

Plop

Et un leak, un :fou:

FindFirst -> FindClose

---------------
Informaticien.be - Lancez des défis à vos amis

antp

Super Administrateur
Champion des excuses bidons

Ouais puis le string qui est pas passé en const, et le formattage du code non conforme, c'est pas bien tout ça

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Kyle_Katarn

ok, je débute !

ndmax

OK, merci!
Moi j'ai utilisé rec.Size tout simplement
car mes fichiers sont très en dessous de
la limite des 2Go pour les Integer.

Merci.

FORUM HardWare.fr

Programmation

Delphi/Pascal

[Delphi] Récupérer la taille d'un (gros) fichier

Sujets relatifs
[php] Obtenir le contenu d'une ligne précise d'un fichier	Récuperer la taille des dossiers pour examiner l'evolution
Upload de fichier sans remplacement du ficher existant ?	[opengl]une erreur a la compil, ai-je oublié un fichier d'en-tête ?
[JAVA] [Résolu] Comment récuperer la position de la souris ?	[C]Taille de chaine de caractères dynamique...
Comment effacer le contenu d'un fichier texte???	y a-t-il une taille limite pour un .string ou un .ascii?
Delphi 8
Plus de sujets relatifs à : [Delphi] Récupérer la taille d'un (gros) fichier

Page générée en 0.067 secondes