Taille de fichiers

Version imprimable

13/10/2006, 10h08
od.dev

Taille de fichiers

Bonjour,

J'essaie de trouver un moyen simple de récupérer la taille (poids en octet) d'un fichier.
FileSize() ne correspond pas à ce que je veux, et même SHGetFileInfo ne rapporte pas le poids du fichier.
Quelqu'un saurait-il m'aider ?

Merci d'avance.
13/10/2006, 10h19
PadawanDuDelphi

Bonjour,

Voici un lien d'un sujet similaire résolu:
http://www.developpez.net/forums/sho...+fichier+octet
En espérant que ça t'aideras.

@+.
13/10/2006, 10h37
qi130

C'est l'occupation sur le disque d'un fichier que tu cherches à récupérer ?
13/10/2006, 12h01
od.dev

Ben... oui quoi, la taille du fichier ou de l'exe ou de l'image en octet, ce que "IdFTP1", par exemple fait sur un serveur distant avec "Size(NomFic)".

J'ai été voir "http://www.developpez.net/forums/sho...+fichier+octet" : waou ! 8O, j'ai beaucoup de peine à croire qu'il n'existe pas une fonction qui le calcule elle-même.
13/10/2006, 12h54
Jipété

Et aussi,

Citation:

FileSize() ne correspond pas à ce que je veux

Tu pourrais préciser ?
Parce que si FileSize ne correspond pas, qu'est-ce qui pourrait bien correspondre ? ? ?
Qu'est-ce que tu attends / espères ?
--
jp
13/10/2006, 13h56
od.dev

ici Houston :
8O
J'aimerais connaître une fonction qui rammène
"LA TAILLE D'UN FICHIER" en octets.
FileSize ne rammène pas la taille d'un fichier en octet.

Salut,

Tu fais bien d'appeler Houston, t'as l'air en panne :mrgreen:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TForm1.Button1Click(Sender: TObject);
var
  F: File of Byte;
  Size: LongInt;
begin
  with OpenDialog1 do begin
    if not Execute then Exit;
    AssignFile(F, Filename);
    Reset(F);
    try
      Size := FileSize(F);
      ShowMessage('Taille du fichier ' + IntToStr(Size) + ' octets');
    finally
      CloseFile(F);
    end;
  end;
end;

Je t'assure que FileSize ramène bien la taille du fichier en octets !!!!
@+

13/10/2006, 15h26
Philippe Gormand

Salut.

Tu peux lire mon tuto sur les fichiers, qui vient de paraitre. Tu trouvera peut être l'explication que tu attends.;)

a+
13/10/2006, 15h47
od.dev

Ca par exemple ça marche avec FileSize ! :?
Merci Caudius, y a sûrement un truc que je ne faisais pas bien.

Pourquoi j'ai pas demandé avant ? :cry:
13/10/2006, 16h27
Eric Boisvert

FileSize() est très limité selon moi et personnelement je ne l'utilise jamais.

- il ne fonctionne pas avec des fichiers ouverts en mode exclusif
exemple: pagefile.sys

- En plus, cette fonction retourne un integer...
ce qui limite sont utilisation utiles à des fichier plus petit que 2Gb

Le meilleur selon moi, c'est d'utiliser FindFirst tel que décrit
dans la FAQ de delphi ici:

http://delphi.developpez.com/faq/?pa...#taillefichier

cette fonction je l'ai testé avec des fichiers > 5 Gig
et toujours avec de bon résultat.

Pour les convertions octets vers Mo et Go je te conseille aussi cette fonction,
encore une fois dans la FAQ
http://www.developpez.com/delphi/faq...nvtaillestring

à noter que 1 Mo = 1024 octets....et non 1000...peut-être est-ce cela
ce qui te fesait pensé que FileSize() était mauvais?
05/11/2006, 21h00
LadyWasky

Citation:

Envoyé par Eric Boisvert

à noter que 1 Mo = 1024 octets....et non 1000...peut-être est-ce cela
ce qui te fesait pensé que FileSize() était mauvais?

:mrgreen: :aie:
Hé bien tu vas tomber des nues...

1 Kilo-octets, selon les organisations internationales (donc selon le standard SI) chargées de définir les standards de mesure, comme l'IEC, l'IEEE, ou l'ISO est égal à.... 1000 octets. C'est navrant mais bien réel. :aie:

1024 octets, c'est 1 Kibi, ce n'est pas nouveau et ça ne vient pas de sortir, par contre, c'est vrai que c'est un poil crétin :cfou:
C'est l'IECS qui en a décidé ainsi en 1998, et ce ne sont pas des billes en informatique ou électronique.
Bref, ça fait huit ans qu'on est pas "aware" :mouarf: :aie:

Lecture et preuve :
http://en.wikipedia.org/wiki/Kilobyte
05/11/2006, 21h44
qi130

Navrant, navrant :?

N'empêche qu'en système UI, kilo est un préfixe qui multiplie par 1000, pas par 1024 !

Ce sont donc bien les informaticiens qui ont opéré un abus de langage 8-) même si personnellement, je trouve cela pratique (1ko=1024 octets) et tout aussi "UI compliant" que 1kg=1000 g !
06/11/2006, 09h37
Jipété

1 pièce(s) jointe(s)

Yep !

Trouvé ça, dans le "developer_specs_A2928604.pdf" (v1.2, juillet 2004) de chez Intel (je cherchais des infos sur "Front Panel I/O Connectivity Design Guide").

Faut faire avec, je pense.

Mes 2 cts,
jp
06/11/2006, 12h03
ryko

Bientôt l'octet fera 10 bits !!!
06/11/2006, 12h08
LadyWasky

Citation:

Envoyé par ryko

Bientôt l'octet fera 10 bits !!!

Non ??? quand ??? 8O :aie: