Jak uzyskać rozmiar pliku w cross-platformowej sposób o Delphi XE2

Question

mam ten rutine znać Wielkość pliku:

(na podstawie http://delphi.about.com/od/delphitips2008/qt/filesize.htm)

function FileSize(fileName : String) : Int64; 
var 
    sr : TSearchRec; 
begin 
    if FindFirst(fileName, faAnyFile, sr) = 0 then 
    {$IFDEF MSWINDOWS} 
    result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32) + Int64(sr.FindData.nFileSizeLow) 
    {$ELSE} 
    result := sr.Size 
    {$ENDIF} 
    else 
    result := -1; 

    FindClose(sr) ; 
end; 

to jednak daje to ostrzeżenie:

[DCC Warning] Funciones.pas(61): W1002 Symbol 'FindData' is specific to a platform 

Zastanawiam się, czy istnieje czysty, międzyplatformowy sposób, aby to zrobić. Sprawdzam klasę TFile i jej nie znalazłem ...

Answer 1

w Delphi XE2 The TSearchRec.Size Użytkownik już jest Int64 (nie jest pewien, która wersja się zmieniła) i jest wypełniony pełną 64-bitową wartością z pól TSearchRec.FindData w systemie Windows, więc nie ma potrzeby ręcznego obliczania rozmiaru, np .:

{$IFDEF VER230} 
    {$DEFINE USE_TSEARCHREC_SIZE} 
{$ELSE} 
    {$IFNDEF MSWINDOWS} 
    {$DEFINE USE_TSEARCHREC_SIZE} 
    {$ENDIF} 
{$ENDIF} 

function FileSize(fileName : String) : Int64; 
var 
    sr : TSearchRec; 
begin 
    if FindFirst(fileName, faAnyFile, sr) = 0 then 
    begin 
    {$IFDEF USE_TSEARCHREC_SIZE} 
    Result := sr.Size; 
    {$ELSE} 
    Result := (Int64(sr.FindData.nFileSizeHigh) shl 32) + sr.FindData.nFileSizeLow; 
    {$ENDIF} 
    FindClose(sr); 
    end 
    else 
    Result := -1; 
end; 

Answer 2

Ostrzeżenie, które otrzymujesz, ponieważ element FindData struktury TSearchRec jest specyficzny dla platformy Windows, ale nie musisz się tym martwić, ponieważ w swoim kodzie jesteś brak dostępu do tego członka, gdy jesteś na platformie innej niż Windows.

// condition if you are on the Windows platform 
{$IFDEF MSWINDOWS} 
    // here you can access the FindData member because you are 
    // on Windows 
    Result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32) + 
    Int64(sr.FindData.nFileSizeLow); 
{$ELSE} 
    // here you can't use FindData member and you would even 
    // get the compiler error because the FindData member is 
    // Windows specific and you are now on different platform 
{$ENDIF} 

Answer 3

Bo już sprawdzić używasz Windows, to można bezpiecznie usunąć lokalnie Ostrzeżenie zachować tylko "prawdziwe" ostrzeżenia zgłoszone przez kompilator:

if FindFirst(fileName, faAnyFile, sr) = 0 then 
    {$IFDEF MSWINDOWS} 
    {$WARN SYMBOL_PLATFORM OFF} 
    result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32) + Int64(sr.FindData.nFileSizeLow) 
    {$WARN SYMBOL_PLATFORM ON} 
    {$ELSE} 

Answer 4

TDirectory.GetLastWriteTime(path);