Dateigröße herausfinden!!!

bbplayer · Hält's aus hier Beiträge: 10

Suche eine Methode, um die Dateigröße einer Textdatei herausfinden!
Habe es schon mit "sizeof" und "filesize" probiert, funzt aber net.

Wäre sehr dankbar für Hilfe!

jasocul · Verfasst: Di 15.03.05 16:26

FindFirst und dann TSearchRec auswerten.

ScorpionKing · Beiträge: 1150 Win XP

markieren

Ein einfacher Code zum Lesen der Dateigröße

1:
2:
3:

AssignFile(test,"hallo.bmp");
Reset(test);
i := FileSize(test);

MfG, ScorpionKing!

_________________
Aus dem Urlaub zurück!

jasocul · Verfasst: Di 15.03.05 16:34

@Scorpy:
DOH schreibt:

Zitat:

Beschreibung

Mit FileSize können Sie die Größe der angegebenen Datei (F) ermitteln. Die Funktion kann nur für geöffnete Dateien verwendet werden. Wenn die Datei leer ist, gibt FileSize(F) 0 zurück.

Hinweis

FileSize kann nicht für Textdateien verwendet werden.

Sorry, da muss man dann schon ein File of Byte nehmen. Dann muss die Datei aber erst geöffnet werden. Und ich persönlich mag sowas nicht, wenn es nicht erforderlich ist.

ScorpionKing · Beiträge: 1150 Win XP

Ups, dann denkt euch bitte folgendes:
anstatt hallo.txt steht da hallo.bmp! hehe!

MfG, ScorpionKing!

_________________
Aus dem Urlaub zurück!

bbplayer · Hält's aus hier Beiträge: 10

Eben mit filesize läufts nich, aber warum funzt "sizeof" nicht?

jasocul · Verfasst: Di 15.03.05 16:37

bbplayer hat folgendes geschrieben:

Eben mit filesize läufts nich, aber warum funzt "sizeof" nicht?

Hat nix mit Dateien zu tun. Steht aber in der Online-Hilfe.

bbplayer · Hält's aus hier Beiträge: 10

Und wie funktioniert das mit dem findfirst?

(Danke übrigens für die schnelle Antwort)

ScorpionKing · Beiträge: 1150 Win XP

mit

markieren

Delphi-Quelltext

1:

sizeof();

findet man die größe einer variable heraus!

MfG, ScorpionKing!

_________________
Aus dem Urlaub zurück!

jasocul · Verfasst: Di 15.03.05 16:43

bbplayer hat folgendes geschrieben:

Und wie funktioniert das mit dem findfirst?

(Danke übrigens für die schnelle Antwort)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  sr : TSearchRec;
begin
  if FindFirst(Dateiname, faAnyFile, sr) = 0 then
  begin
    ShowMessage('Dateigröße : ' + IntToStr(sr.size);
  end;
  FindClose(sr);
end;

ungetest!

Amiga-Fan · Beiträge: 534

ich habe diese Frage auch. Allerdings nicht mit lokalen Dateien sondern übers Internet. Geht das wohl irgendwie über Interbase/Firebird? Konkret ist natürlich die Größe der gdb-Datei gemeint.

Karlson · Beiträge: 2088

Es gibt auch eine Alternative, nämlich den Befehl Suche in: Delphi-Forum, Delphi-Library

GETFILESIZE
Dafür brauchst du das FileHandle, welches der Rückgabewert der Procedure Suche in: Delphi-Forum, Delphi-Library

CREATEFILE ist.

Gibt GetFileSize mit den Parametern FileHandle und nil -1 zurück so existiert die Datei nicht, andernfalls die Grösse in Byte.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme