Enlazar Librería Dll .NET en Delphi

[vejerf]

Buenos días a todos,
Tengo el siguiente problema. Estoy desarrollando un proyecto en el que tengo que integrarme con otra aplicación. Para ello tengo una librería dll de la otra aplicación con la que debería de realizar la integración. Yo programo en Delphi con el BDS2006. Según me han dicho la librería de la otra aplicación está desarrollada en .NET.

He referenciado la función de la dll de la siguiente forma:

Código Delphi [-]
function dllfunction(Par1: String; Par2: Double; Par3: Integer; Par4: TXSDateTime): String; stdcall; external 'dlllibrary.dll';

Y después la uso directamente:

Código Delphi [-]
...
dllfunction(myString,myDouble,myInteger,myTXSDateTime);
...

La aplicación compila pero cuando la inicio desde el BDS se me detiene al inicializar y si le doy a continuar da una excepción EAccessViolation.

¿Qué estoy haciendo mal?¿Qué puede estar ocurriendo?

Necesito ayuda, es urgente

[vejerf]

Hola de nuevo,

He probado simplemente a cargar y liberar la librería y sí he podido, es decir:

Código Delphi [-]
var
  LibHandle : THandle;
begin
  LibHandle := LoadLibrary('dlllibrary.dll');
  Free(LibHandle);
end;

Esto sí funciona. Ahora lo que pretendo es encontrar la función que quiero usar con GetProcAddress pero no entiendo como se hace.

Espero vuestra ayuda. Muchas gracias.

[vejerf]

Siguiendo con la investigación y con el tema he dado con lo siguiente que no es más que la carga de la librería dinámicamente

Código Delphi [-]
type
  TDLLFUNC = function(Par1: String; Par2: Double; Par3: Integer; Par4: TXSDateTime): String;
...
procedure PruebaCargaFuncion;
var
  LibHandle: THandle;
  DLLFunc: TDLLFunc;
  Resultado : String;
begin
  LibHandle := LoadLibrary('dlllibrary.dll');  
  try
    @DLLFunc := GetProcAddress(LibHandle,'DllFunction');
    if Assigned(DLLFunc) then
      Resultado := DLLFunc(MyString,MyDouble,MyInteger,MyTXSDateTime);
  finally
    Free(LibHandle);
  end;
end;

Ejecutando en el depurador me dice que 'Not enough actual parameters' cuando miro la variable DLLFunc y por supuesto nunca asigna la función. Ya no sé por donde seguir. Gracias.

[Ñuño Martínez]

Empezado por vejerf

Ejecutando en el depurador me dice que 'Not enough actual parameters' cuando miro la variable DLLFunc y por supuesto nunca asigna la función. Ya no sé por donde seguir.

Cuando dices "cuando miro la variable DLLFunc", ¿te refieres a la línea "if Assigned(DLLFunc) then"?

[vejerf]

Sí Nuño a eso me refería.

Ejecutando el programa paso a paso voy viendo el valor que toman las variables locales como DLLFunc. En todo el proceso veo que DLLFunc no tiene ningún valor y en el depurador me sale ese mensaje de 'Not enough actual parameters'.

Saludos!

[Ñuño Martínez]

No sé si será o no será, pero creo que está intentando llamar a la función y no comprobando el valor del puntero, y de ahí que diga que no tiene suficientes parámetros. Prueba con "if Assigned(@DLLFunc) then", a ver.

Personalmente no me gusta nada cómo maneja Delphi los punteros a función. Prefiero con mucho cómo lo hace Free Pascal, que es mucho más coherente (al estilo "C").