Ich erkläre MidasLib, um DLL-Probleme zu vermeiden, die durch Midas.dll in einigen Clients verursacht werden.

Der folgende Code läuft in ca. 2350ms. Wenn ich die MidaLib-Deklaration entferne, wird sie in nur 45 ms ausgeführt !!

Die Datei data.xml wurde mit der Methode TClientDataSet.SaveToFile gespeichert. Sie enthält 5000 Datensätze und hat eine Größe von ca. 600 KB.

Weiß jemand, wie man dieses seltsame Verhalten erklärt?

Ich kann das Problem in Delphi XE2 Update 3 und in Delphi XE3 Update 2 bestätigen.

Vielen Dank.

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.