GetFileSizeEx gibt falsche werte bei großen Dateien

[Cylence]

Hi,

danke hatte nach getfilesizeex gesucht da hab ich das nicht gefunden *g* danke Dir! Werd die Versionen ausprobieren.

Gruß

Tom

[himitsu]

F.FindData.nFileSizeHigh erst auf 64 Bit vergrößern und dann schiften, denn wo sollen die Bits sonst hin?
Result := F.FindData.nFileSizeLow or (Int64(F.FindData.nFileSizeHigh) shl 32); .

PS: solch einfache Bit-Operationen sollten keine Probleme bereten, weswegen der Resourceschutzblock unnötig wäre.

PSS:

Delphi-Quellcode:

function GetFileSizeEx(const AFileName: string): Int64;
var
  F: TSearchRec;
begin
  if FindFirst(AFileName, faAnyFile, F) = 0 then
  begin
    Int64Rec(Result).Lo := F.FindData.nFileSizeLow;
    Int64Rec(Result).Hi := F.FindData.nFileSizeHigh;
    SysUtils.FindClose(F);
  end
  else
    Result := -1;
end;

[hathor]

Kleine Änderung für XE2:

Delphi-Quellcode:

function GetFileSizeEx(const AFileName: string): Int64;
var
  F: TSearchRec;
begin
  if FindFirst(AFileName, faAnyFile, F) = 0 then
  begin
    Int64Rec(Result).Lo := F.FindData.nFileSizeLow;
    Int64Rec(Result).Hi := F.FindData.nFileSizeHigh;
    System.SysUtils.FindClose(F);//       <-----------------
  end
  else
    Result := -1;
end;

[Bernhard Geyer]

Zitat von hathor:

Kleine Änderung für XE2:
...

Wieso überhaupt Namespaceangaben. FindClose wird auch ohne (WinApi.)SysUtils.-Prefix gefunden.
Sonst würde auch FindFirst nicht gefunden werden.

Also entweder alles mit Prefix oder gar nix.

[himitsu]

Weil das eine universelle Funktion ist und oftmals zuerst das FindClose aus der SysUtils gefunden wird, wo es dann heißt "Parameter ist falsch".

[edit]
Ups, genau andersrum ... ich meinte das FindClose aus der WinApi.Windows .