Dateigröße ermitteln

[AHT]

Kleiner Tipp:
Ich stand gerade vor dem Problem, dass ich möglichst von jeder Datei die Dateigröße benötigte - welche API ist dafür aber die beste? Es gibt da ja einige, die man verwenden könnte.
Unter anderem für GetFileSizeEx benötigt man ein Handle auf die Datei, das mittels CreateFile ermittelt werden muss.
In MSDN ist über dieses Handle folgendes zu lesen:

A handle to the file. The handle must have been created with either the GENERIC_READ or GENERIC_WRITE access right or equivalent.

Im Prinzip steht dort, das mindesten komplette Leserechte auf die Datei nötig sind, um die Dateigröße auszulesen - als zweiter Parameter von CreateFile müsste also zumindestens $80000000 angegeben werden und bei allen Dateien ohne Leserechte für den User, der das Datum ermitteln will, kann man es nicht auslesen.
MSDN schreibt hier aber nicht ganz die Wahrheit. CreateFile kann, wenn das Handle zum Ermitteln der Dateigröße verwendet werden soll, ohne weiteres als zweiten Parameter den Wert $0 erhalten - GetFileSizeEx schlägt dann nicht fehl.
Aber kann man dann die Größe aller Dateien ermitteln? Nein! Bei sich gerade in Benutzung befindlichen Dateien (zum Beispiel pagefile.sys) kann es vorkommen, dass CreateFile fehl schlägt und GetLastError den Code 32 (Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wird.) zurückgibt.
Zur Ermittlung der Dateigröße bietet sich FindFirstFile an, denn diese API öffnet auch Dateien, die sich in Bearbeitung befinden.

PS: In MSDN sind sehr oft die nötigen Rechte für ein Handle viel zu hoch angegeben. Ein eigener Test zahlt sich oft aus.

[Bangkok]

Ja Findfirstfile ist das zuverläsisgste um Dateigrößen zu ermitteln, Gibt ja auch jede Menge andere Infos zurück. Ich glaube Profan verwendet diese API ab Version 9 auch um Größe und sonstige Attribute zu ermitteln.

[horsthorn]

Dann ist also der Code, mit dem ich als API-Nichtkenner die Dateigröße ermittle, für den A...

DECLARE lw$,datei$,groesse&
'--------------------------------------------------------------
CLS
lw$="C:\"
CHDIR lw$
datei$=FindFirst$("autoexec.bat")
IF FILEEXISTS(datei$)
groesse&=FILESIZE(datei$)
print lw$+datei$+" vorhanden - Dateigrösse: "+STR$(groesse&)+" Bytes"
ELSE
print "Datei nicht gefunden !"
ENDIF
waitinput

[Frabbing]

Teste das doch aus, Horst. Lad einen Text in einen Editor und versuche mit deinem Programm die Dateigrösse der Textdatei zu ermitteln.

[AHT]

Zitat von horsthorn

Dann ist also der Code, mit dem ich als API-Nichtkenner die Dateigröße ermittle, für den A...

Nein. Auf älteren Profanversionen macht FileSize einen dicken Fehler und schließt ein Handle nicht - ich brauchte deshalb gleichwertigen Ersatz (einige hunderttausend Handles die nicht geschlossen werden, war mir doch zuviel).

[horsthorn]

@Frank
Hab ich gemacht - Habe die hier gezeigte Code-Datei geladen und dann als FILEEXISTS(datei$) gesucht. Die Größe wurde einwandfrei angezeigt

PS: Meine Frage war wie meist, rein rhetorisch:
Es muss nicht immer API sein.
XProfan kann das auch !

[Frabbing]

XProfan ist im Grunde ja auch eine Form von API.

[AHT]

Wie gesagt, es geht nicht um die Funktion sondern um das Speicherleck (dürfte in der Freewareversion 8 auch drin sein).

[horsthorn]

Zitat von AHT

Wie gesagt, es geht nicht um die Funktion sondern um das Speicherleck (dürfte in der Freewareversion 8 auch drin sein).

Bitte um eine Erklärung für "Speicherleck" in diesem Fall
Wenn ich den Code ändere:

DECLARE lw$,datei$,groesse&
'--------------------------------------------------------------
CLS
lw$="C:\"
CHDIR lw$
datei$=FindFirst$("autoexec.bat")
IF FILEEXISTS(datei$)
ASSIGN #1,datei$ 'Datei öffnen
groesse&=FILESIZE(datei$)
print lw$+datei$+" vorhanden - Dateigrösse: "+STR$(groesse&)+" Bytes"
CLOSE #1 'Datei schließen
ELSE
print "Datei nicht gefunden !"
ENDIF
waitinput

ist doch alles zu oder nicht

[AHT]

Hallo Horst...

Siehe hier - reicht dir das?

[Bangkok]

@Horst:

Profan besteht zum größten Teil intern aus API Aufrufen. Nur sind die Aufrufe so aufbereitet, dass sie leichter zu verwenden sind und manchmal wird dabei halt etwas übersehen. Prinzipiell könnte man die Profan Befehle und Funktionen alle über API nachbilden.

[AHT]

Hallo Horst...

Du musst gar nichts ändern und kannst bei FileSize bleiben (geht auch schneller als über API). Frank hat schon bestätigt, dass der Fehler unter XProfan11 gefixt ist.

[RGH]

Hallo,

dass Spreicherrlerck war zum Einem so winzig (nur wenige Bytes pro FindFirst im Programm), dass es in 99,99% aller Programme gar nicht auffiel und zum Anderen auch nur sehr kurzzeitig (ich weiß nicht mal genau mehr, welche Version) im Programm, als ich intern von den Delphi-Dateifunktionen auf die entsprechenden API-Funktionen umgestiegen bin (sind etwas mächtiger und flexibler) und übersehen hatte, dass die API FindFirst ein Handle erzeugt, das wieder geschlossen werden muss.

Gruß
Roland

[AHT]

Na ja - bei mir sind am Schluss eines Dateilistings so in etwa 50000 Handles offen .
Es könnte sogar sein, das XProfan8 den Fehler noch gar nicht enthält - habe es noch nicht getestet.

[horsthorn]

@AHT

Es könnte sogar sein, das XProfan8 den Fehler noch gar nicht enthält - habe es noch nicht getestet.

Updaten !

Wir sind bei 11.2 !