我的真实应用程序导出.xlsx文件.这个文件格式是一个包含在ZIP容器文件中的XML文件的集合. .xlsx导出代码生成XML文件,然后将其提供给Delphi ZIP库.一旦我优化了XML文件生成到ZIP创建是我发现的瓶颈,我感到惊讶的是,这个64位代码比32位代码慢得多.

为了进一步学习,我创建了这个测试程序：

program zlib_perf;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,System.Classes,System.Diagnostics,System.Zip;

const
  LoremIpsum =
    'Lorem ipsum dolor sit amet,consectetur adipiscing elit,sed do eiusmod '+
    'tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam,'+
    'quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo '+
    'consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse '+
    'cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat '+
    'non proident,sunt in culpa qui officia deserunt mollit anim id est laborum.';

function GetTestStream: TStream;
var
  Bytes: TBytes;
begin
  Result := TMemoryStream.Create;
  // fill the stream with 500MB of lorem ipsum
  Bytes := TEncoding.UTF8.GetBytes(LoremIpsum);
  while Result.Size < 500*1024*1024 do
    Result.WriteBuffer(Pointer(Bytes)^,Length(Bytes));
end;

procedure DoTest;
var
  DataStream,ZipStream: TStream;
  Stopwatch: TStopwatch;
  Zip: TZipFile;
begin
  DataStream := GetTestStream;
  try
    ZipStream := TMemoryStream.Create;
    try
      Zip := TZipFile.Create;
      try
        Zip.Open(ZipStream,zmWrite);

        Stopwatch := TStopwatch.StartNew;
        DataStream.Position := 0;
        Zip.Add(DataStream,'foo');
        Writeln(Stopwatch.ElapsedMilliseconds);
      finally
        Zip.Free;
      end;
    finally
      ZipStream.Free;
    end;
  finally
    DataStream.Free;
  end;
end;

begin
  DoTest;
end.

我在XE2和XE7下编译了32位和64位的程序,并配置了默认的发行版配置编译器选项.我的测试机器在Intel Xeon E5530上运行Windows 7 x64.

结果如下：

Compiler  Target  Time (ms)
     XE2   Win32       8586
     XE2   Win64      18908
     XE7   Win32       8583
     XE7   Win64      19304

我使用Explorer shell ZIP功能压缩了同一个文件,我的粗略停止时间为8秒,所以上面的32位时间似乎是合理的.

由于上述代码使用的压缩算法是zlib(Delphi的ZIP代码仅支持存储和缩小),所以我认为Delphi使用的zlib库是此问题的根源.为什么Delphi的zlib库在64位之前这么慢？