Enlazar Librería Dll .NET en Delphi

[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").

[vejerf]

Gracias por contestar Nuño... pero no es por eso.
Como no entendía muy bien que es lo que se estaba haciendo ya había probado esa posible solución, pero sigue ocurriendo lo mismo.

Gracias de todas formas!

[vejerf]

Siguiendo con la investigación he visto alguna página donde se dice que no se puede acceder a una clase exportada por una DLL.

Si esto es así por ahí puede venir el fallo ya que la función pertenece a una clase según veo en el código fuente.

¿Alguien me puede aportar datos sobre esto?

Saludos!