Was unter Windows kinderleicht ist, stellt sich unter Linux als wahre Herausforderung raus.
Ich würde gerne die Größe einer Datei ermitteln, weiß aber nicht wie. Hat einer dafür eine Lösung?

Du kannst entweder die entsprechende Linux API verwenden (stat) dafür oder wenn es "plattformunabhängig" sein soll:

zusammenfalten · markieren

Delphi-Quellcode:

function GetFileSize(FileName : string) : Integer;
var
  f : file;
  OldFileMode : Integer;
begin
  OldFileMode := FileMode;
  FileMode := 0;
  AssignFile(f, FileName);
  Reset(f, 1);
  Result := FileSize(f);
  CloseFile(f);
  FileMode := OldFileMode;
end;

Alternative ohne die Datei wirklich zu öffnen basierend auf dem Standard Pascal Befehlssatz:

zusammenfalten · markieren

Delphi-Quellcode:

function GetFileSizeWithoutOpening(FileName : string) : Int64;
var
  SearchRecord : TSearchRec;
begin
  if FindFirst(FileName, faAnyFile, SearchRecord) = 0
    then
      begin
        Result := SearchRecord.Size;
        FindClose(SearchRecord);
      end
    else
      Result := 0;
end;

Fehlerhandling darf der Threadersteller selbst bauen.

Warum nicht einfach

function FileSize(const Filename: string): int64;

in FileUtil ?

Zitat von theodp:

function FileSize(const Filename: string): int64;

weil das eine WinAPI ist und unter Linux nicht existiert

wegen des Standards

markieren

Code:

function GetFileSizeWithoutOpening(FileName : string) : Int64;
begin
  ...
    else
      Result := [color=#ff0000]-1[/color];

Zitat von himitsu:

weil das eine WinAPI ist und unter Linux nicht existiert

Wie kommst du denn auf die Idee?
FileUtil ist Cross-Platform und diese Fkt. auch.

zusammenfalten · markieren

Delphi-Quellcode:

function FileSize(const Filename: string): int64;
{$IFDEF Unix}
var
  st: baseunix.stat;
{$ELSE}
var
  FileInfo: TSearchRec;
{$ENDIF}
begin
  {$IFDEF Unix}
  if not fpstat(pointer(Filename),st)>=0 then
    exit(-1);
  Result:=st.st_size;
  {$ELSE}
  {$IFDEF WINCE}
  FileInfo.Name:=UTF8Decode(Filename);
  {$ELSE}
  FileInfo.Name:=UTF8ToSys(Filename);
  {$ENDIF}
  FileInfo.FindHandle:=Windows.FindFirstFile(Windows.LPTSTR(FileInfo.Name),FileInfo.FindData);
  if FileInfo.FindHandle=Windows.Invalid_Handle_value then begin
    Result:=-1;
    exit;
  end;
  Result:=(int64(FileInfo.FindData.nFileSizeHigh) shl 32)+FileInfo.FindData.nFileSizeLow;
  Windows.FindClose(FileInfo.FindHandle);
  {$ENDIF}
end;

Notfalls kannst du auch noch über TFileStream gehen....

Oder df aufrufen