delphi - MidasLib.dcu 使应用程序变慢

Question

我声明 MidasLib 是为了避免某些客户端中 Midas.dll 造成的 dll hell 。

下面的代码运行时间约为 2350 毫秒。如果我删除 use 中的 MidaLib 声明，它只需 45 毫秒即可开始运行!!

data.xml文件是用TClientDataSet.SaveToFile方法保存的，有5000条记录，大小约为600Kb。

有人知道如何解释这种奇怪的行为吗？

我可以确认 Delphi XE2 upd 3 和 Delphi XE3 upd 2 中的问题。

谢谢。

program Loader;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  MidasLib,
  System.SysUtils,
  Winapi.Windows,
  Data.DB,
  Datasnap.DBClient;

var
  cds : TClientDataSet;
  start, stop : Cardinal;
begin
  cds := TClientDataSet.Create(nil);
  try
    start := GetTickCount;
    cds.LoadFromFile('c:\temp\data.xml');
    stop := GetTickCount;
    Writeln(Format('Time elapsed: %dms', [stop-start]));
  finally
    cds.Free;
  end;
end.

Answer 1

这是一个已知的错误/回归，请参阅 QC 报告

• http://qc.embarcadero.com/wc/qcmain.aspx?d=109476
• http://qc.embarcadero.com/wc/qcmain.aspx?d=107346