Получить размер файла

Delphi , Файловая система , Файлы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function Get_File_Size1(sFileToExamine: string; bInKBytes: Boolean): string;
 { 
 for some reason both methods of finding file size return 
 a filesize that is slightly larger than what Windows File 
 Explorer reports 
}
 var
   FileHandle: THandle;
   FileSize: LongWord;
   d1: Double;
   i1: Int64;
 begin
   //a- Get file size 
  FileHandle := CreateFile(PChar(sFileToExamine),
     GENERIC_READ,
     0, {exclusive}
     nil, {security}
     OPEN_EXISTING,
     FILE_ATTRIBUTE_NORMAL,
     0);
   FileSize   := GetFileSize(FileHandle, nil);
   Result     := IntToStr(FileSize);
   CloseHandle(FileHandle);
   //a- optionally report back in Kbytes 
  if bInKbytes = True then
   begin
     if Length(Result) > 3 then
     begin
       Insert('.', Result, Length(Result) - 2);
       d1     := StrToFloat(Result);
       Result := IntToStr(round(d1)) + 'KB';
     end
     else
       Result := '1KB';
   end;
 end;

 {****************************************************************************** 
Thanks to Advanced Delphi Systems here's another method which works just as 
well returning the same results 
*******************************************************************************}
 function Get_File_Size2(sFileToExamine: string; bInKBytes: Boolean): string;
 var
   SearchRec: TSearchRec;
   sgPath: string;
   inRetval, I1: Integer;
 begin
   sgPath := ExpandFileName(sFileToExamine);
   try
     inRetval := FindFirst(ExpandFileName(sFileToExamine), faAnyFile, SearchRec);
     if inRetval = 0 then
       I1 := SearchRec.Size
     else
       I1 := -1;
   finally
     SysUtils.FindClose(SearchRec);
   end;
   Result := IntToStr(I1);
 end;



 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if OpenDialog1.Execute then
     label1.Caption := Get_File_Size(Opendialog1.FileName, True);
 end;

 {*******************************************************************************}

 function Get_File_Size3(const FileName: string): TULargeInteger;
 // by nico 
var
   Find: THandle;
   Data: TWin32FindData;
 begin
   Result.QuadPart := -1;
   Find := FindFirstFile(PChar(FileName), Data);
   if (Find <> INVALID_HANDLE_VALUE) then
   begin
     Result.LowPart  := Data.nFileSizeLow;
     Result.HighPart := Data.nFileSizeHigh;
     Windows.FindClose(Find);
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if (OpenDialog1.Execute) then
     ShowMessage(IntToStr(Get_File_Size3(OpenDialog1.FileName).QuadPart));
 end;

 {*******************************************************************************}

 function Get_File_Size4(const S: string): Int64;
 var
   FD: TWin32FindData;
   FH: THandle;
 begin
   FH := FindFirstFile(PChar(S), FD);
   if FH = INVALID_HANDLE_VALUE then Result := 0
   else
     try
       Result := FD.nFileSizeHigh;
       Result := Result shl 32;
       Result := Result + FD.nFileSizeLow;
     finally
       CloseHandle(FH);
     end;
 end;

Приведен код на Delphi, который предназначен для определения размера файла с помощью четырех различных методов. Каждый из этих методов возвращает размер файла как строку целого числа или значение Int64.

1. Get_File_Size1: Эта функция использует Windows API CreateFile и GetFileSize, чтобы получить размер файла. Затем она конвертирует этот размер в строку, если второй параметр установлен в True.

2. Get_File_Size2: Также эта функция использует Windows API FindFirst и SearchRec, чтобы получить информацию о файле. Если файл существует, она получает его размер из SearchRec.Size и конвертирует его в строку.

3. Get_File_Size3: Эта функция использует Windows API FindFirstFile и TWin32FindData, чтобы получить размер файла. Затем она присваивает это значение экземпляру TULargeInteger.

4. Get_File_Size4: Также эта функция использует Windows API FindFirstFile и TWin32FindData, но она получает высокую и низкую части размера файла отдельно, умножает их вместе (после сдвига высокой части) и затем добавляет их, чтобы получить общий размер в байтах. Она возвращает этот размер как значение Int64.

Функции тестируются нажатием кнопки в GUI, которая открывает диалог для выбора файла и отображает его размер на метке.

Статья 'Получить размер файла' предлагает несколько способов determination размера файла в Delphi, включая использование функций CreateFile и GetFileSize, а также функции FindFirstFile и Win32FindData.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Файлы ::