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.
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.
... mit c:\tmp\avdb.fdb ... bekomme ich den richtigen Wert.
ich weiß nicht weiter...
[edit]
GetLastError = 0
[/edit]