Dateigröße auf Netzlaufwerk ermitteln

[haentschman]

Hallo alle...

es ist ja bald Weihnachten und ich gebe Euch mal eine Nuß zu knacken... :-D

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. :gruebel:

...alle Beispiele und Lösungen, welche ich gefunden habe, beziehen sich alle auf FileSize oder GetFileSize.


Welche Richtung würdet Ihr vorschlagen ?

[thkerkmann]

Hi,

wie kommst Du denn darauf, dass das nur mit lokalen Pfadangaben geht ?
Allerdings hat Delphi 5 nur ein 32bit Cardinal im tSearchrecord für die Size.
Könnte das für deine Datenbank zu klein sein ?
Dann wirst Du auf die darin enthaltene Win32FindData zugreifen müssen, wo 64 bit zur Verfügung stehen.

Schau dir mal den tSearchRecord und das darin enthaltene Win32FindData an.

Gruss

[himitsu]

Wie hast du denn den Dateipfad angegeben?

\\Hostname\Drive:\Path\Filename.ext
oder
\\?\UNC\Hostname\Drive:\Path\Filename.ext

[haentschman]

...ich glaubs ja nicht... :wall:

ich hatte den Dateinamen mit \\Host\Freigabe\Pfad\Datei angegeben... Ergebnis 0

...jetzt habe ich mal \\Hostname\Drive:\Path\Filename.ext ausprobiert... funktioniert :shock:

...warum geht das mit dem Freigabenamen nicht ? :gruebel:

Danke an alle... :thumb:

[edit]
... nehme alles zurück ! ...ich hatte im Quelltext zu Testzwecken noch statisch einen lokalen Pfad eingetragen.
---> auch \\Hostname\Drive:\Path\Filename.ext...Ergebnis 0

PS: ich habe gelesen, das FileSize nur lokal funktioniert.
[/edit]

[haentschman]

... ich habe noch einmal verschiedene Beispiele ausprobiert... gleiches Ergebnis.

bei lokaler Pfadangabe wie c:\tmp\daten\test.fdb --> richtiges Ergebnis
bei Padangabe wie \\server\system\tmp\daten\test.fdb oder \\server\c:\tmp\daten\test.fdb --> Ergebnis 0

Fazit: die Pfadangabe ist falsch :gruebel: :gruebel: aber ich seh´s nicht :roll:

[edit]

Zitat:

...und da filesize() nur auf locale Dateien anwendbar ist, klappt es leider nicht.

[/edit]

[Luckie]

Was sagt denn GetLastError?

[haentschman]

also...

bei der Funktion ...mit \\localhost\c:\tmp\avdb.fdb

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;

... nach if direkt zu finaly ---> also Datei nicht gefunden. :wall:


bei der Funktion ...mit \\localhost\c:\tmp\avdb.fdb

Delphi-Quellcode:

function GetFileSize1(const szFile: String): Int64;
var
  fFile: THandle;
  wfd: TWIN32FINDDATA;
begin
  result := 0;
  if not FileExists(szFile) then exit;
  fFile := FindFirstfile(pchar(szFile),wfd);
  if fFile = INVALID_HANDLE_VALUE then exit;
  result := (wfd.nFileSizeHigh*(MAXDWORD))+wfd.nFileSizeLow;
  windows.FindClose(fFile);
end;

... nach if not FileExists direkt exit ---> also Datei nicht gefunden. :wall:


... mit c:\tmp\avdb.fdb ... bekomme ich den richtigen Wert. :wall:


:?: ich weiß nicht weiter... :gruebel:

[edit]
GetLastError = 0
[/edit]

[himitsu]

GetLastError bringt bei FindFirst nichts, da diese Funktion bei Mißerfolg selbst intern GetLastError aufruft und dieses somit zurücksetzt.

Das ergebnis von GetLastError wird als Result zurückgeliefert,
also was sagt denn FindFirst?

[Luckie]

Egal, jeden falls sollte der Rückgabewert mal ausgewertet werden.

[haentschman]

...53 ---> Datei nicht gefunden.

...die Funktion kann mit dem Netzlaufwerkpfad nichts anfangen oder ? :gruebel: