Làm thế nào có được filesize trong cross-platform cách trên delphi xe2

Question

Tôi có rutine này để biết filesize:

(Dựa trên 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; 

Tuy nhiên, điều này đưa ra cảnh báo này:

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

Tôi tự hỏi liệu có tồn tại một cách đa nền tảng sạch để thực hiện việc này hay không. Tôi kiểm tra lớp TFile và không tìm thấy nó ...

Answer 1

Trong Delphi XE2, các TSearchRec.Size thành viên đã là Int64 (không chắc chắn phiên bản nào đã thay đổi) và được điền bằng giá trị 64 bit đầy đủ từ các trường TSearchRec.FindData trên Windows, do đó không cần tính kích thước theo cách thủ công, ví dụ:

{$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

Cảnh báo bạn nhận được vì cấu trúc FindData của cấu trúc TSearchRec dành riêng cho nền tảng Windows, nhưng bạn không cần phải lo lắng về nó bởi vì trong mã của bạn không truy cập thành viên đó khi bạn ở trên nền tảng khác với 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

Bởi vì bạn đã kiểm tra bạn đang chạy trên Windows, nó là an toàn để loại bỏ cục bộ các cảnh báo có thể giữ chúng "thực" cảnh báo báo cáo bởi trình biên dịch:

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);