Dateigröße abfragen

[Tommy1988]

Ich verzweifle langsam..

wie kann ich die Dateigröße AUS EINEM EDIT in einem Label ausgeben lassen?


Bitte postet NICHT nur eine dumme Fuktion, bitte erklärt auch wie ich sie anwende :cry:

[mkinzler]

Wie meinst du Dateigröße aus Edit?

[Tommy1988]

ich öffne einen dialog, nach dessen schließen
steht die gewählte datei im Edit1-Feld

Delphi-Quellcode:

OpenDialog1.Execute;
Edit1.Text := OpenDialog1.FileName;

Delphi-Quellcode:

Label1.Caption := (IntToStr( GetFileSizeA(''+Edit1.Text+'') ));

Die Dateigröße wird ins Label geschrieben. aber in BYTES..

soweit bin ich zum glück, aber wie bekomme ich aus den Bytes Kilobytes?

--------------

Delphi-Quellcode:

var
byte, umrechnen, kb, ergebnis : String;
...
byte := (IntToStr( GetFileSizeA(''+Edit1.Text+'') ));

kb :=  IntToStr(1024);

umrechnen := byte*IntToStr(kb);

Label1.Caption := umrechnen;

das funktioniert leider nicht..

[bttb930]

Delphi-Quellcode:

var
vorher, nachher: Integer;
...
vorher := GetFileSizeA(Edit1.Text);
nachher := vorher div 1024;
Label1.Caption := IntToStr(nachher);

[mkinzler]

Delphi-Quellcode:

kb: Integer;

kb := GetFileSizeA+Edit1.Text) DIV 1024;
Label1.Caption := IntToStr( kb);

[Tommy1988]

Delphi-Quellcode:

[Fehler] Unit1.pas(105): E2010 Inkompatible Typen: 'string' und 'Integer'

da fehlte noch etwas. aber trotzde. vielen dank an alle!

Delphi-Quellcode:

Label1.Caption := [b]IntToStr(nachher)[/b];

[schrimm]

Ich würde mich hier gerne mal einmischen.
Das Problem scheint ja gelöst zu sein, ich hab aber ein problem:
der kennt GetFileSizeA nicht!!
ist das irgend etwas spezielles, was du selber geschrieben hast, oder was es in delphi 5 nich ni gibt?

[mkinzler]

Es handelt sich hier um eine Windows-Funktion. Sie müsste sich in SysUtils befinden

[Matze]

Zitat:

Zitat von schrimm

der kennt GetFileSizeA nicht!!
ist das irgend etwas spezielles, was du selber geschrieben hast, oder was es in delphi 5 nich ni gibt?

Meine 2006er OH kennt diese auch nicht, aber laut obigem Code müsste das genauso mit

Delphi-Quellcode:

function FileSize(var F: file): Integer;

gehen.


Edit: Ok, ich nehme alles zurück. :oops:

[Hawkeye219]

Hallo,

gesucht - gefunden: klick

Aber Vorsicht, die Funktion liefert nur Dateigrößen bis ca. 2 GByte!

Gruß Hawkeye