delphi - MidasLib.dcu hace que la aplicación sea más lenta

tclientdataset

Question

Estoy declarando MidasLib para evitar el infierno causado por Midas.dll en algunos clientes.

El siguiente código se ejecuta en aproximadamente 2350 ms. ¡Si elimino la declaración de MidaLib en usos, comienza a ejecutarse en solo 45 ms!

El archivo data.xml se guardó con el método TClientDataSet.SaveToFile, tiene 5000 registros y su tamaño es de aproximadamente 600 Kb.

¿Alguien sabe cómo explicar este extraño comportamiento?

Puedo confirmar el problema en Delphi XE2 upd 3 y en Delphi XE3 upd 2.

Gracias.

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

Es un error / regresión conocido, consulte los informes de control de calidad

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

Answer 2

No estoy seguro de por qué piensas que necesitas usar MidasLib para "evitar el infierno de DLL".

Cuando el RTL llama a TCustomClientDataSet.CreateDSBase , esto llama a CheckDbClient en DSIntf.Pas. Es esta rutina la que determina qué instancia de Midas.Dll se carga al examinar el registro.

Por lo tanto, podría asegurarse de que se utilice una instancia particular de Midas.Dll asegurándose de que el registro refleje su ubicación antes de CheckDbClient . La configuración de registro es InProcServer32 en HK_Classes_Root/CLSId/{9E8D2FA1-591C-11D0-BF52-0020AF32BD64} . Se puede actualizar llamando a RegisterComServer especificando la ruta y el nombre de archivo de Midas, sujeto a los permisos necesarios de acceso al registro, por supuesto.

Answer 3

Solo usamos una copia local de la DLL de Midas independientemente de lo que esté instalado en el sistema, y ​​solo volvemos a la global, si no se encuentra una local.

Usamos XE2 upd4 hf1 y luego cambiamos a Midas DLL de XE4 (el proyecto principal aún está hecho con xe2)

// based on stock MidasLib unit

unit MidasDLL;

interface

implementation

uses Winapi.Windows, Winapi.ActiveX, Datasnap.DSIntf, SysUtils, Registry;

// function DllGetDataSnapClassObject(const CLSID, IID: TGUID; var Obj): HResult; stdcall; external ''Midas.DLL'';
//var DllGetDataSnapClassObject: function(const CLSID, IID: TGUID; var Obj): HResult; stdcall; //external ''Midas.DLL'';
var DllGetDataSnapClassObject: pointer; //external ''Midas.DLL'';

const dllFN = ''Midas.DLL''; dllSubN = ''DllGetDataSnapClassObject'';
var DllHandle: HMODULE = 0;

function RegisteredMidasPath: TFileName;
const rpath = ''/SOFTWARE/Classes/CLSID/{9E8D2FA1-591C-11D0-BF52-0020AF32BD64}/InProcServer32'';
var rry: TRegistry;
begin
  Result := '''';
  rry := TRegistry.Create( KEY_READ );
  try
    rry.RootKey := HKEY_LOCAL_MACHINE;
    if rry.OpenKeyReadOnly( rpath ) then begin
       Result := rry.ReadString('''');
       if not FileExists( Result ) then
          Result := '''';
    end;
  finally
    rry.Destroy;
  end;
end;

procedure TryFindMidas;
var fPath, msg: string;
  function TryOne(const fName: TFileName): boolean;
  const  ver_16_0 = 1048576; // $00060001
  var    ver: Cardinal;  ver2w: LongRec absolute ver;
  begin
    Result := false;
    ver := GetFileVersion( fName );
    if LongInt(ver)+1 = 0 then exit; // -1 --> not found
    if ver < ver_16_0 then begin
       msg := msg + #13#10 +
              ''Obsolete version found: ''+IntToStr(ver2w.Hi) + ''.'' + IntToStr(ver2w.Lo) + '' in library file '' + fName;
       exit;
    end;
    DllHandle := SafeLoadLibrary(fName);
    if DllHandle = 0 then begin
       msg := msg + #13#10 +
              ''Failure loading library '' + fName + ''. Maybe this was Win64 DLL or some other reason.'';
       exit;
    end;
    DllGetDataSnapClassObject := GetProcAddress( DllHandle, dllSubN);
    if nil = DllGetDataSnapClassObject then begin  // не найдена
       msg := msg + #13#10 +
              ''Incompatible library loaded '' + fName + ''. Missed function '' + dllSubN;
       FreeLibrary( DllHandle );
       DllHandle := 0;
    end;
    Result := true;
  end;
  function TryTwo(const fName: TFileName): boolean; // seek in the given folder and its immediate parent
  begin
    Result := TryOne(fName + dllFN);
    if not Result then
      Result := TryOne(fName + ''../' + dllFN); // 
  end;
begin
  fPath := ExtractFilePath( ParamStr(0) );
  if TryTwo( fPath ) then exit;

  fPath := IncludeTrailingBackslash( GetCurrentDir() );
  if TryTwo( fPath ) then exit;

  fPath := RegisteredMidasPath;
  if fPath > '''' then
     if TryOne( fPath ) then exit;

  msg := ''This program needs the library '' + dllFN + '' version 16.0 or above.''#13#10 +
         ''It was not found, thus the program can not work.''#13#10 + #13#10 + msg;
  Winapi.Windows.MessageBox(0, PChar(msg), ''Launch failure!'',
         MB_ICONSTOP or MB_TASKMODAL or MB_DEFAULT_DESKTOP_ONLY or MB_TOPMOST );
  Halt(1);
end;


initialization
//  RegisterMidasLib(@DllGetDataSnapClassObject); -- static linking does not work for utilities in sub-folders

  TryFindMidas; // immediately terminates the application if not found
  RegisterMidasLib(DllGetDataSnapClassObject);
finalization
  if DllHandle <> 0 then
     if FreeLibrary( DllHandle ) then
        DllHandle := 0;
end.