Dateigröße wird falsch ermittelt

[Patrick]

Hallo,

Ich will mir einfach nur von ein paar Deteien die Größe anzeigen lassen. Dazu verwende ich folgende Funktion:

Delphi-Quellcode:

function GetFileSizeEx(const AFileName: String): Int64;
var  F: TSearchRec;
begin
  Result := 0;
  if FindFirst(AFileName, faAnyFile, F) = 0 then
  begin
    try
      Result :=  F.FindData.nFileSizeLow or (F.FindData.nFileSizeHigh shl 32);
    finally
      SysUtils.FindClose(F);
    end;
  end;
end;

Diese habe ich im Internet gefunden und weiter wurde mir versprochen, dass sie nahezu alle Dateigrößen anzeigt, egal wie groß. Eine andere z.B. scheitert bei großen Dateien am LongInteger Datentyp. Diese müsste dann ja funktonieren, da int64.

Die Dateigröße ist noch richtig: 2.032.550.912 //liegt innerhalb des Longinteger Wertebereichs
Bei dieser Dateigröße 5.862.182.912 gibt die Funktion mir diesen Wert 1.567.215.617 zurück //Liegt ausserhalb des Longinteger Wertebereichs, das Ergebnis jedoch innerhalb.

Da stellt sich mir die Frage ob ich int64 so einfach in Strings umwandeln kann!?

Delphi-Quellcode:

InttoStr(GetFileSizeEx(Edit1.Text));

Also liegt mein Problem jetzt an der Funktion, die die Größe ermittelt oder an meiner Umwandlungsweise?

[Luckie]

Probier mal diese hier:

Delphi-Quellcode:

function GetFileSize(szFile: PChar): 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 * (Int64(MAXDWORD) + 1)) + wfd.nFileSizeLow;
  windows.FindClose(fFile);
end;

[Patrick]

Damit geht's !

Danke!

Also war die andere Funktion doch nicht ganz richtig...

[yankee]

warum nicmmst du nicht einfach die Delphi-Funktion:

Delphi-Quellcode:

function FileSizeByName(sFilename: string): cardinal;

:?:

[mirage228]

Zitat:

Zitat von yankee

warum nicmmst du nicht einfach die Delphi-Funktion:

Delphi-Quellcode:

function FileSizeByName(sFilename: string): cardinal;

:?:

Hi,

wahrscheinlich weil Cardinal nur ein (unsigned) 32bit Integer ist (und bei 4 GB aufhört aufhört), er aber auch von Dateien, die größer als 4GB sind, die Größe ermitteln will :)

mfG
mirage228