Hallo alle...
es ist ja bald Weihnachten und ich gebe Euch mal eine Nuß zu knacken...
Vorraussetzungen:
-Firebird Datenbank auf Netzlaufwerk
-vorhanden: Hostname
-vorhanden: Pfad und Dateiname der Datenbank (lokaler Pfad)
Ergebnis soll sein:
-Dateigröße der Datenbank zu Infozwecken...
versucht habe ich...
Delphi-Quellcode:
function GetFileSizeA(const FileName: String): Integer;
var SR: TSearchRec;
begin
Result := -1;
if FindFirst(FileName, faAnyFile and not faDirectory, SR) = 0 then
try
Result := SR.Size;
finally SysUtils.FindClose(SR) end;
end;
...funktioniert aber nur mit lokalen Pfadangaben. Das gleiche gilt für FileSize.
...alle Beispiele und Lösungen, welche ich gefunden habe, beziehen sich alle auf FileSize oder GetFileSize.
Welche Richtung würdet Ihr vorschlagen ?