Nhận kích thước của một tệp trong Delphi 2010 trở lên?

Question

Delphi 2010 có một bộ các chức năng truy cập tập tin mới trong IOUtils.pas (Tôi đặc biệt thích các phiên bản UTC của các hàm liên quan đến ngày tháng). Những gì tôi bỏ lỡ cho đến nay là một cái gì đó như

TFile.GetSize (const Path : String) 

Delphi 2010-cách nào để có được kích thước của một tệp? Tôi có phải quay lại và sử dụng FindFirst để truy cập TSearchRec.FindData không?

Cảm ơn.

Answer 1

Tôi không chắc chắn có cách "Delphi 2010" hay không, nhưng có Windows way that doesn't involve FindFirst and all that jazz.

Tôi đã ném cùng chuyển đổi Delphi này của thường trình đó (và trong quá trình sửa đổi nó để xử lý> tệp kích thước 4GB, bạn nên cần điều đó).

function FileSize(const aFilename: String): Int64; 
    var 
    info: TWin32FileAttributeData; 
    begin 
    result := -1; 

    if NOT GetFileAttributesEx(PWideChar(aFileName), GetFileExInfoStandard, @info) then 
     EXIT; 

    result := Int64(info.nFileSizeLow) or Int64(info.nFileSizeHigh shl 32); 
    end; 

Bạn thực sự có thể chỉ cần sử dụng GetFileSize() nhưng điều này đòi hỏi một HANDLE tập tin, không chỉ là một tên tập tin, và tương tự như GetCompressedFileSize() gợi ý, điều này đòi hỏi hai biến để gọi. Cả hai GetFileSize() và GetCompressedFileSize() quá tải giá trị trả về của chúng, vì vậy kiểm tra thành công và đảm bảo kết quả hợp lệ chỉ hơi rắc rối hơn một chút.

GetFileSize Ex() tránh nitty gritty của kích thước tập tin xử lý> 4GB và phát hiện kết quả đúng, nhưng cũng đòi hỏi một HANDLE tập tin, chứ không phải là một cái tên, và (như của Delphi 2009 ít nhất, tôi thiên đường 't kiểm tra 2010) không phải là tuyên bố cho bạn trong VCL bất cứ nơi nào, bạn sẽ phải cung cấp tờ khai nhập khẩu của riêng bạn.

Answer 2

Bạn cũng có thể sử dụng DSiFileSize từ DSiWin32. Hoạt động trong "tất cả" Delphis. Bên trong nó gọi là CreateFile và GetFileSize.

function DSiFileSize(const fileName: string): int64; 
    var 
    fHandle: DWORD; 
    begin 
    fHandle := CreateFile(PChar(fileName), 0, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); 
    if fHandle = INVALID_HANDLE_VALUE then 
     Result := -1 
    else try 
     Int64Rec(Result).Lo := GetFileSize(fHandle, @Int64Rec(Result).Hi); 
    finally CloseHandle(fHandle); end; 
    end; { DSiFileSize } 

Answer 3

Sử dụng một đơn vị Indy:

uses IdGlobalProtocols; 

function FileSizeByName(const AFilename: TIdFileName): Int64; 

Answer 4

tôi muốn đề cập đến vài tinh khiết Delphi cách. Mặc dù tôi nghĩ rằng Deltics làm một câu trả lời tốc độ hiệu quả nhất cho nền tảng Windows, nhưng đôi khi bạn muốn chỉ dựa vào RTL và cũng làm cho mã xách tay mà có thể làm việc trong Delphi cho hệ điều hành MacOS hoặc trong FreePascal/Virtual Pascal/bất cứ điều gì.

---

Có chức năng FileSize còn lại từ ngày Turbo Pascal.

• http://turbopascal.org/system-functions-filepos-and-filesize
• http://docwiki.embarcadero.com/CodeExamples/XE2/en/SystemFileSize_(Delphi)
• http://docwiki.embarcadero.com/Libraries/XE2/en/System.FileSize

Các mẫu ở trên thiếu "read-only" chế độ thiết lập. Bạn sẽ yêu cầu mở tập tin r/o như trên đĩa CD-ROM hoặc trong thư mục với ACL được đặt thành r/o.Trước khi gọi ReSet, không được gán cho FileMode var toàn cầu.

• http://docwiki.embarcadero.com/Libraries/XE2/en/System.FileMode

Nó sẽ không hoạt động trên các tập tin trên kích thước 2GB (có thể với tiêu cực đến hồng y đúc - lên đến 4GB) nhưng là "out of the box" một.

---

Có một cách tiếp cận khác, bạn có thể quen thuộc nếu bạn đã từng lập trình ASM cho MS-DOS. Bạn Seek con trỏ tệp thành byte thứ nhất, sau đó đến byte cuối cùng và kiểm tra sự khác biệt.
Tôi không thể nói chính xác phiên bản Delphi nào đã giới thiệu, nhưng tôi nghĩ nó đã có trong một số phiên bản cũ như D5 hay D7, mặc dù đó chỉ là cảm giác thông thường và tôi không thể kiểm tra nó.
Điều đó sẽ đưa bạn thêm biến THANDLE và khối try-finally để luôn đóng tay cầm sau khi thu được kích thước.

• Sample of getting length and such
• http://docwiki.embarcadero.com/Libraries/XE2/en/System.SysUtils.FileOpen
• http://docwiki.embarcadero.com/Libraries/XE2/en/System.SysUtils.FileSeek

Ngoài cách tiếp cận 1st này được Int64 có khả năng. Nó cũng tương thích với FreePascal, mặc dù với một số hạn chế

• http://www.freepascal.org/docs-html/rtl/sysutils/fileopen.html

---

Bạn cũng có thể tạo và sử dụng TFileStream -typed đối tượng - đó là chính, chính thức thiên nhiên ưu đãi đường cho các hoạt động tệp từ Delphi 1.0

• http://www.freepascal.org/docs-html/rtl/classes/tfilestream.create.html
• http://www.freepascal.org/docs-html/rtl/classes/tstream.size.html
• http://docwiki.embarcadero.com/Libraries/XE2/en/System.Classes.TFileStream.Create
• http://docwiki.embarcadero.com/Libraries/XE2/en/System.Classes.TStream.Size

Như một mặt lưu ý, đại lộ này là tất nhiên kết hợp với nói trên IOUtils đơn vị.

• http://docwiki.embarcadero.com/Libraries/XE3/en/System.IOUtils.TFile.OpenRead

Answer 5

Đây là một giải pháp ngắn sử dụng Dung lượng mà không được công việc:

function GetFileSize(p_sFilePath : string) : Int64; 
var 
    oFile : file of Byte; 
begin 
    Result := -1; 
    AssignFile(oFile, p_sFilePath); 
    try 
    Reset(oFile); 
    Result := FileSize(oFile); 
    finally 
    CloseFile(oFile); 
    end; 
end; 

Từ những gì tôi biết, Dung lượng có sẵn chỉ từ XE2.

Answer 6

uses 
    System.Classes, System.IOUtils; 

function GetFileSize(const FileName : string) : Int64; 
var 
    Reader: TFileStream; 
begin 
    Reader := TFile.OpenRead(FileName); 
    try 
    result := Reader.Size; 
    finally 
    Reader.Free; 
    end; 
end;