Блог

Хотел уточнить у вас, экспертов, есть ли какие-либо недостатки в этой функции. Будет ли это работать должным образом в различных ОС Windows? Я использую Delphi Seattle (32 и 64-разрядные EXE-файлы). Я использую это вместо Findfirst из-за его скорости.

 function GetFileDetailsFromAttr(pFileName:WideString):int64;
var
  wfad: TWin32FileAttributeData;
  wSize:LARGE_INTEGER ;
begin
  Result:=0 ;
  if not GetFileAttributesEx(pwidechar(pFileName), GetFileExInfoStandard,@wfad) then
    exit;

  wSize.HighPart:=wfad.nFileSizeHigh ;
  wSize.LowPart:=wfad.nFileSizeLow  ;
  result:=wsize.QuadPart ;
end;
  

Типичные примеры, показанные в Google с помощью этой команды, не работают для размера файла > 9 ГБ

 function GetFileAttributesEx():Int64 using 
begin
...
  result:=((amp;wfad.nFileSizeHigh) or (amp;wfad.nFileSizeLow))
  

Код с записью variant верен.

Но этот код

 result:=((amp;wfad.nFileSizeHigh) or (amp;wfad.nFileSizeLow))
  

просто неверно, результат не может преодолеть 32-разрядную границу

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

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

неверно, потому что не учитывает, как компилятор работает с 32 и 64-разрядными значениями. Посмотрите на следующий пример, показывающий, как правильно обращаться с этой ситуацией (для значений d, e):

 var
  a, b: DWord;
  c, d, e: Int64;
  wSize:LARGE_INTEGER ;
begin
  a := 1;
  b := 1;
  c := Int64(a) or Int64(b shl 32);
  d := Int64(a) or Int64(b) shl 32;
  wSize.LowPart := a;
  wSize.HighPart := b;
  e := wsize.QuadPart;
  Caption := Format('$%x $%x  $%x', [c, d, e]);
  

Обратите внимание, что в выражении для c 32-разрядного значения значение сдвигается на 32 бита влево и теряет установленный бит, затем ноль преобразуется в 64-разрядный.

Без привязки к тому, как вы получаете размер файла: было бы даже быстрее, если бы вы использовали тип (manual), который существует уже ~ 25 лет, для присвоения размера файла непосредственно результату функции вместо использования промежуточной переменной:

   Int64Rec(result).Hi:= wfad.nFileSizeHigh;
  Int64Rec(result).Lo:= wfad.nFileSizeLow;
end;
  

На случай, если это кому-то не очевидно, вот как выглядит компиляция:

Выше: промежуточной переменной w: LARGE_INTEGER сначала присваиваются две 32-битные части, а затем она сама присваивается результату функции. Стоимость: 10 инструкций.

Выше: запись Int64Rec используется для приведения результата функции и назначения обеих 32-битных частей напрямую, без необходимости в какой-либо другой переменной. Стоимость: 6 инструкций.

Используемая среда: Delphi 7.0 (Сборка 8.1), версия компилятора 15.0, исполняемый файл Win32, оптимизация кода: включена.