Ver Mensaje Individual
  #2  
Antiguo 13-09-2004
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Reputación: 21
defcon1_es Va por buen camino
Wink

Hola, debes cargar esa dll y acceder a las funciones que contiene.

Ejp:
Tenemos definida en la dll "Libreria.dll" una funcion de este estilo:
Código:
  function MultiplicarDll(Parametro1, Parametro2: Real): Real;
Código Delphi [-]
type
  TMultiplicarDll  = function(Parametro1, Parametro2: Real): Real;  register; 
 
...
...
 
 
function MultiplicarDll(N1, N2: Real): Real;
var Handle : Integer;
     Mul : TMultiplicarDll;
begin
  Result := False;
  Handle := LoadLibrary('Libreria.DLL');
  try
    if (Handle <> 0)
    then begin
      @Mul := GetProcAddress(Handle, 'MultiplicarDll');
      if (@Mul <> nil)
      then result := Mul(N1, N2);
    end;
  finally
    FreeLibrary(Handle);
  end;
end;
Espero que te sirva.
Responder Con Cita