Delphi 对于大小 > 10gb 的文件大小最快

Question

如果此功能有任何缺点，想咨询您的专家。 它会在各种 Windows 操作系统上正常工作吗？ 我正在使用 Delphi 西雅图（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 示例不适用于文件大小 > 9GB

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

Answer 1

带有变体记录的代码是正确的。

但是这段代码

result:=((&wfad.nFileSizeHigh) or (&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 位。

Answer 2

不受您如何获取文件大小的限制：如果您使用已经存在约 25 年的类型（ 手动）将文件大小直接分配给函数的结果而不是使用中间变量，它甚至会更快：

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

如果这对任何人来说都不明显，那么编译如下所示：

上图：中间变量w: LARGE_INTEGER首先被分配了两个 32 位部分，然后将自身分配给函数的结果。 费用：10 条指令。

上图：记录Int64Rec用于转换函数的结果并直接分配两个 32 位部分，不需要任何其他变量。 费用：6 条指令。

使用环境：Delphi 7.0（Build 8.1），编译器版本15.0，Win32可执行，代码优化：开启。