GetFileSize Aufbau - Größe einer Datei ermitteln

[EDatabaseError]

Die Hilfe zu GetFileSize in delphi ist sowas von mau. Kennt jemand die Synax dieses befehls? Oder eine andere Funktion um herauszufinden wie groß eine Datei ist?

[fkerber]

Hi!

Eine einfache Google-Suche zeigt:
http://www.swissdelphicenter.ch/torr...ode.php?id=172


Ciao Frederic

[EDatabaseError]

Bin ich zu doof oder???

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  i:Cardinal;
begin
 i := getfilesize('c:\autoexec.bat');
 showmessage(IntToStr(i));
end;

:wall:

Fehler:
i := getfilesize('c:\autoexec.bat');
Inkompatibe Typen: String und Cardinal

habs auch so probiert:
i := getfilesize('c:\autoexec.bat', true);
dann kamm der Fehler zu viele Parameter.

sollte doch eigentlich so gehen? :wall:

[fkerber]

Hi!

Hast du auch nur einmal in meinem Link reingeschaut?

Delphi-Quellcode:

  FileSize   := GetFileSize(FileHandle, nil);

Da steht was von einem Handle und dann lies am besten nochmal unter dem Link nach...


Ciao Frederic

[Matze]

Oder auch die DP-Suche liefert einiges. FileSize ist nicht für Textdateien geeignet, du musst also je nach Einsatzgebiet andere Lösungen verwenden (Btw: den Link findet man mittels FileSize ganz einfach).

[SirThornberry]

Die Dateigröße kann man auch mithilfe von FindFirst ermitteln.

[EDatabaseError]

Ich habs jetzt:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  i: Integer;
  f: File of Byte;
  s: String;
begin
 s := 'I:\XXXXXXXXXXXX\Software\XXXXXx\database.DB';
 AssignFile(f,s);
 Reset(f);
 i := FileSize(f);
 CloseFile(f);
 showmessage(IntToStr(i));
end;

:angel2:

[Hawkeye219]

Hoffentlich ist "I:" kein CDROM-Laufwerk... :roll:

[Flare]

Zitat:

Zitat von Hawkeye219

Hoffentlich ist "I:" kein CDROM-Laufwerk... :roll:

Ich denke eher, dass das sein Programmordner ist, oder eben der seiner Datenbank :mrgreen:


Flare

[EDatabaseError]

Zitat:

Zitat von Flare

Zitat:

Zitat von Hawkeye219

Hoffentlich ist "I:" kein CDROM-Laufwerk... :roll:

Ich denke eher, dass das sein Programmordner ist, oder eben der seiner Datenbank :mrgreen:


Flare

des is der USB Stick vón TrekStor (schleichwerbung)

[Hawkeye219]

Ok, hast du deine Routine auch mal mit einer Datei auf einer CD getestet?

[EDatabaseError]

sein sollte aber theoretisch funktionieren...

[Luckie]

Zitat:

Zitat von EDatabaseError

sein sollte aber theoretisch funktionieren...

Na dann mach doch mal den Praxistest.