Uzyskiwanie rozmiaru pliku w Delphi 2010 lub nowszym?

Question

Delphi 2010 ma ładny zestaw nowych funkcji dostępu do plików w IOUtils.pas (szczególnie podoba mi się wersja UTC funkcji związanych z datą). Co tęsknię tak daleko jest coś

TFile.GetSize (const Path : String) 

co jest Delphi 2010-sposób, aby uzyskać rozmiar pliku? Czy muszę wrócić i użyć FindFirst, aby uzyskać dostęp do TSearchRec.FindData?

Dzięki.

Answer 1

Nie jestem pewien, czy istnieje sposób "Delphi 2010", ale istnieje Windows way that doesn't involve FindFirst and all that jazz.

Zrzuciłem tę konwersję Delphi tej procedury (iw procesie zmodyfikowałem ją tak, aby obsługiwała pliki o rozmiarach> 4 GB, jeśli tego potrzebujesz).

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; 

Można było rzeczywiście wystarczy użyć GetFileSize() ale wymaga to uchwyt pliku, a nie tylko nazwę pliku, a podobny do GetCompressedFileSize() sugestia ta wymaga dwóch zmiennych zadzwonić. Zarówno GetFileSize() i GetCompressedFileSize() przeciążają ich wartość zwracaną, więc testowanie na sukces i zapewnienie prawidłowego wyniku jest po prostu trochę bardziej niezręczne.

GetFileSize Ex() unika piaszczysty nitty rozmiarów Obsługa plików> 4GB i wykrywanie poprawnych wyników, ale również wymaga dojścia do pliku, zamiast imienia i (od Delphi 2009 przynajmniej ja haven 't checked 2010) nie jest dla ciebie zadeklarowany w VCL, musiałbyś podać swoją własną deklarację importową.

Answer 2

Możesz również użyć DSiFileSize z DSiWin32. Działa w "wszystkich" Delphis. Wewnętrznie wywołuje CreateFile i 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

Korzystanie z Indy jednostki:

uses IdGlobalProtocols; 

function FileSizeByName(const AFilename: TIdFileName): Int64; 

Answer 4

Chciałbym wspomnieć kilka Czysta Delphi sposoby. Choć myślę Deltics popełnił największą prędkość efektywną odpowiedź na platformie Windows, ale czasami chcesz po prostu polegać na RTL i również przenośny kod, który będzie działać w Delphi dla MacOS lub w FreePascal/Virtual Pascal/cokolwiek.

---

Została funkcja FileSize z Turbo Pascal dni.

• 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

powyżej Próbka brakuje "tylko do odczytu" ustawienie trybu. Wymagałoby to otwarcia pliku r/o, takiego jak plik na nośniku CD-ROM lub w folderze z listami ACL ustawionymi na r/o.Przed wywołaniem ReSet powinno być przypisane zero do FileMode globalny var.

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

To nie będzie działać na plikach powyżej wielkości 2 GB (może z negatywnej na kardynalnej obsadą - do 4GB), ale jest "out of the box" jeden.

---

Jest jeszcze jedno podejście, które może znać, jeśli kiedykolwiek programowanie ASM dla MS-DOS. You Seek Wskaźnik pliku na 1 bajt, a następnie na ostatni bajt i sprawdź różnicę.
Nie mogę powiedzieć dokładnie, która wersja Delphi wprowadziła te, ale myślę, że była już w jakiejś starożytnej wersji, jak D5 lub D7, ale to jest po prostu zdrowy rozsądek i nie mogę tego sprawdzić.
Wymagałoby to dodatkowej zmiennej Thandle i bloku try-finally, aby zawsze zamykać uchwyt po uzyskaniu rozmiaru.

• 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

Oprócz 1. podejścia jest to Int64-zdolny. Jest również kompatybilny z FreePascal, choć z pewnymi ograniczeniami

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

---

Można również tworzyć i wykorzystywać TFileStream -typed obiekt - co było podstawowym, oficjalnie błogosławiony aleję dla operacji na plikach od 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

marginesie, ścieżka ta jest oczywiście zintegrowany z wyżej IOUtils urządzenia.

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

Answer 5

Jest to krótki rozwiązanie używając FILESIZE że spełnia swoje zadanie:

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; 

z tego co wiem, FileSize jest dostępny tylko z 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;