Самый быстрый способ получить размер файла

[xexxex]

Привет!
Вот, нашёл вот такой пример получить размер файла.
Цель переплюнуть этот пример по скорости.
Предлагайте свои варианты.
Спасибо.

function FileGetSize(const aFileName: string): Int64;
var AttributeData: TWin32FileAttributeData;
begin
  if GetFileAttributesEx(PChar(aFileName), GetFileExInfoStandard, @AttributeData) then
  begin
    Int64Rec(Result).Lo := AttributeData.nFileSizeLow;
    Int64Rec(Result).Hi := AttributeData.nFileSizeHigh;
  end
  else
    Result := -1;
end;

Вариации с

CreateFile...GetFileSize

не предлагать, ибо уже затестировано и с негодованием отметено.

function FileGetSizeasdfasdf(const aFileName: string): Int64;
var
  FileHandle: THandle;
  FileSizeLow, FileSizeHigh: DWORD;
begin         // чудовищно медленный способ

  FileHandle := CreateFile(PChar(aFileName), GENERIC_READ, FILE_SHARE_READ,
    nil, OPEN_EXISTING, FILE_ATTRIBUTE_ARCHIVE, 0);
  if FileHandle <> INVALID_HANDLE_VALUE then
  begin
    FileSizeLow := Windows.GetFileSize(FileHandle, @FileSizeHigh);
    Int64Rec(Result).Hi := FileSizeHigh;
    Int64Rec(Result).Lo := FileSizeLow;
    CloseHandle(FileHandle);
  end
  else
    Result := -1;
end;

[Stilet]

переплюнуть этот пример по скорости.

Э-э-э... А какова скорость этого примера можно поинтересоваться?

Предлагайте свои варианты.

FindFirst(). Не?

[xexxex]

Stilet - погонял в циклах разные варианты для сравнения...

procedure TestFileSizes;
const
  Count = 100000;
  aFileName: string = 'D:\Projects\_1CCCCCCC\HmBG.exe';
var J: Integer;
    Ticks: DWORD;
    FileSize: Int64;
    Res: string;
begin

  Ticks := GetTickCount;
  for J := 0 to Count-1 do
  begin
    FileSize := FileGetSize(aFileName);  // первый вариант
    if FileSize > 0 then;
  end;
  Res := Res + #13 + FloatToStr(GetTickCount - Ticks);


  Ticks := GetTickCount;
  for J := 0 to Count-1 do
  begin
    FileSize := FileGetSize1(aFileName); // второй вариант
    if FileSize > 0 then;
  end;
  Res := Res + #13 + FloatToStr(GetTickCount - Ticks);


  MsgBox(Res);    // смотрим результат в секундах
end;

[Stilet]

А зачем? Смысл такого исследования?

[xexxex]

Stilet - ну, как зачем, странный вопрос. Например, чтобы угомонить копьеломателей, и сравнением вариантов выявить\найти на данный\текущий момент истории(да, не побоюсь этого слова) самый быстрый способ получения размера файла, и внедрить\популяризировать его в массы(эка, как загнул!)... А чего, вреда от этого нет, только явно (перспективная) польза... И это уже достаточный смысл. Просто естественное стремление человека к совершенству(во всём), если хочешь.

пс. уже слышу\предвкушаю неприемлемые мной (напрасные) тезисы, мол, про корабли бороздящие просторы, и про не(из)мерянные памяти и быстрые процы - и мол, все эти изыскания\поползновения в поиске быстрого получения размера файла - мол, большой роли\выигрыша не представляют... Не согласен.

[Arigato]

На каком устройстве тестировался способ? HDD, SSD, FDD, CD, DVD, флешка?

[waleri]

Гоняя один и тот же файл, все данные будут извлекаться из кеша диска.
Кошерны способ - создать папку, где будут 100/500 файлов, потом извлекать данные для каждого из них (без обхода папки)...

Согласен со Стилетом - скорее всего FindFirstFile самый быстрый способ, ибо все остальные должны будут так или иначе искать файл на диске, т.е. делать FindFirstFile...

[Stilet]

чтобы угомонить копьеломателей

Ради холливара??? Пф...
Чем только черти не шутят, когда людям заняться нечем...
Хочешь суперпупер? - напиши драйвер FS. Ей богу - скоростяка будет немерянная.

[xexxex]

Ещё один перспективный кандидат оказался чудовищно медленным:

function FileGetSize1(const aFileName: string): Int64;
var FindHandle: THandle;
    DataData: TWin32FindData;
begin
  FindHandle := FindFirstFile(PChar(aFileName), DataData);
  if FindHandle <> INVALID_HANDLE_VALUE then
  begin
    Windows.FindClose(FindHandle);
    Int64Rec(Result).Lo  := DataData.nFileSizeLow;
    Int64Rec(Result).Hi := DataData.nFileSizeHigh;
  end
  else
    Result := -1;
end;

- и понятно, почему, ибо TWin32FindData содержит текстовые поля, которые (напрасно)(бесполезно)заполняются виндосом.


Чемпион по скорости получения размера файла всё ещё непобедим:

function FileGetSize(const aFileName: string): Int64;
var AttributeData: TWin32FileAttributeData;
begin
  if GetFileAttributesEx(PChar(aFileName), GetFileExInfoStandard, @AttributeData) then
  begin
    Int64Rec(Result).Lo := AttributeData.nFileSizeLow;
    Int64Rec(Result).Hi := AttributeData.nFileSizeHigh;
  end
  else
    Result := -1;
end;

[xexxex]

Сообщение от waleri

Гоняя один и тот же файл, все данные будут извлекаться из кеша диска.

-ну, очевидно же, что все кандидаты\методы получения размера на чемпионский пояс тестируются в цикле\находятся в равных условиях, а разница в скорости будет только из за разницы реализации API в недрах Винды, в данный конкретный момент времени\места...

Сообщение от Stilet

Ради холливара??? Пф...
Чем только черти не шутят, когда людям заняться нечем...

-сам выдумал - сам себя и оспорил\подзадорил, уже в третий раз\пост.

Сообщение от xexxex

Привет!
Цель переплюнуть этот пример по скорости.
Предлагайте свои варианты.

-"Что-то пошло не так"©