Comment connaître la taille d'un gros fichier ?
Résolu
cs_btruton
Messages postés
4
Date d'inscription
mercredi 13 mars 2002
Statut
Membre
Dernière intervention
27 septembre 2007
-
3 avril 2005 à 21:37
Emandhal Messages postés 194 Date d'inscription dimanche 2 mars 2003 Statut Membre Dernière intervention 10 octobre 2006 - 4 avril 2005 à 00:21
Emandhal Messages postés 194 Date d'inscription dimanche 2 mars 2003 Statut Membre Dernière intervention 10 octobre 2006 - 4 avril 2005 à 00:21
A voir également:
- Comment connaître la taille d'un gros fichier ?
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Php taille tableau ✓ - Forum PHP
- Taille d'un tableau php - Forum PHP
- Comment savoir si un fichier est une image - Forum C# / .NET
3 réponses
cs_btruton
Messages postés
4
Date d'inscription
mercredi 13 mars 2002
Statut
Membre
Dernière intervention
27 septembre 2007
3 avril 2005 à 21:45
3 avril 2005 à 21:45
Je viens de trouver cela
Je vais essayer de suite
btruton
Je vais essayer de suite
btruton
cs_btruton
Messages postés
4
Date d'inscription
mercredi 13 mars 2002
Statut
Membre
Dernière intervention
27 septembre 2007
3 avril 2005 à 21:52
3 avril 2005 à 21:52
Je cherche depuis 2 jours et je trouve la réponse 5 minutes aprés avoir demandé de l'aide
Bon ba merci à vous
btruton
P.S. J'ai pris rdz pour changer mes lunettes. C'est peut-être là le problème
Bon ba merci à vous
btruton
P.S. J'ai pris rdz pour changer mes lunettes. C'est peut-être là le problème
Emandhal
Messages postés
194
Date d'inscription
dimanche 2 mars 2003
Statut
Membre
Dernière intervention
10 octobre 2006
3
4 avril 2005 à 00:21
4 avril 2005 à 00:21
Pour la méthode TSearchRec, il faut faire comme ca :
Function FileLength(Const FileName: String): Int64;
Var
SR: TSearchRec;
Begin
{$WARN SYMBOL_PLATFORM OFF}
If (FindFirst(FileName, $0000003F, SR)=0) Then // faAnyFile
Result := (Int64(SR.FindData.nFileSizeHigh) shl 32) or SR.FindData.nFileSizeLow
else Result := -1;
SysUtils.FindClose(SR);
{$WARN SYMBOL_PLATFORM ON}
End;
Tout problème a sa solution... Mais en général, c'est jamais la bonne...
Function FileLength(Const FileName: String): Int64;
Var
SR: TSearchRec;
Begin
{$WARN SYMBOL_PLATFORM OFF}
If (FindFirst(FileName, $0000003F, SR)=0) Then // faAnyFile
Result := (Int64(SR.FindData.nFileSizeHigh) shl 32) or SR.FindData.nFileSizeLow
else Result := -1;
SysUtils.FindClose(SR);
{$WARN SYMBOL_PLATFORM ON}
End;
Tout problème a sa solution... Mais en général, c'est jamais la bonne...
