FileSize e dimensione errata

[Fabio]

Come mai la funzione FileSize ritorna una dimensione errata se il file è grosso?

Non sono stato a calcolare il limite di quando sbarella, ma ad esempio file sotto ai 2gb li vede di dimensione giusta, se provo a calcolare la dimensione di un file di 4,53GB me lo vede come fosse 654MB

[xinyiman]

Cavolo, non me ne ero mai accorto! Mi sa che questo è da segnalare qui: http://bugs.freepascal.org/view_all_bug_page.php?project_id=1

[Fabio]

Fate un po' di prove anche voi se avete tempo, magari sbaglio qualcosa io.

[Microges2000]

Usi FileSize(F:File) oppure FileSize(F:String)

Lo chiedo in quanto la prima (contenuta in system) è l'approccio standard mentre la seconda (contenuta in FileUtil) usa le API del sistema.

Comunque ho fatto un po' di prove (Lazarus 0.9.31 su Windows XP) e funzionano correttamente entrambe a patto di usare:

Per FileUtil.FileSize nessun approccio strano

Per System.FileSize bisogna usare una cosa tipo:

Var
  F : File;
Begin
   AssignFile(F, MioNome);
   Reset(F, 1);
   Dimensione := System.FileSize(F);
   CloseFile(F);
End;

[Fabio]

Uso FileSize(string) e ho lazarus 0.9.30 su XP, semmai provo l'altro che hai detto.

grazie.

[Fabio]

Stessa dimensione sbagliata anche usando il metodo che mi hai detto.

Qualcuno che ha la 0.9.30 può confermare che si tratta di un bug?

[Microges2000]

Controllato. Si è un bug segnalato ora ora

[Legolas]

Siamo sicuri che sia un bug di Lazarus/freepascal e non un bug nel codice dell'utente? Dico questo perché la funzione filesize restituisce un intero a 64 bit.

Ad esempio, a me questo codice funziona benissimo su Lazarus 0.9.30 stabile:

Codice: [Seleziona]

procedure TForm1.Button1Click(Sender: TObject);
var
  i: int64;
begin
  i:=filesize('C:\dummyfile');
  edit1.Text := IntToStr(i);
end;    

dove dummyfile è un file di più di 4,5 GB. Se proviamo a cambiare la variabile i in un semplice integer (intero a 32 bit) si ottiene un valore vicino ai 600 MB, come lamentato da Fabio

[Fabio]

Perfetto, sbagliavo proprio quello.
Con Int64 funziona giusto.

Grazie.

[Microges2000]

Si esatto ma anche la funzione IntToStr(FileSize(MioFile)) sbaglia e questo è un errore in quanto IntToStr deve utilizzare 64 bit

[Legolas]

In effetti la funzione IntToStr ha tre varianti:

Codice: [Seleziona]

function IntToStr(Value: integer): string;
function IntToStr(Value: Int64): string;
function IntToStr(Value: QWord): string;  

Il compilatore è abbastanza "furbo" da scegliere quella adeguata al tipo di dato passato come parametro