Ver Mensaje Individual
  #1  
Antiguo 17-07-2006
Avatar de ixMike
ixMike ixMike is offline
Miembro
 
Registrado: feb 2004
Posts: 1.151
Reputación: 22
ixMike Va por buen camino
DLLs con nombre desconocido

Hace cosa de una semana (o un poco más) pregunté cómo llamar a funciones de DLLs cuyo nombre desconozco. La respuesta de seoane me sirvió mucho, pero no me lo solucionó del todo, ya que una de las funciones a las que llamo mantiene una ventana abierta, por lo que no puedo llamar a FreeLibrary en la misma función, sino de otra forma.
Tras hacer varias pruebas y ojear el archivo MAPI.PAS que se encuentra en DELPHI\Source\RTL\WIN\ (al menos en la versión que tengo) logré llegar a una solución.
Primero en type declaro los tipos de función que voy a necesitar.
Código Delphi [-]
  {...}
type
  TShowCursorProc = function(bShow: BOOL) : HResult; stdcall;
  TForm1 = class (TForm)
  {...}
Después coloco una variable global para el manejador de la DLL, y todas las variables necesarias para almacenar todas las funciones. Todo tiene que estar inicializado.
Código Delphi [-]
  {...}
var
  Form1: TForm1;
  HandleDLL: THandle = 0;
  FuncionDLL: TShowCursorProc = nil;
  {...}
Creo un procedimiento que inicialice la DLL, a la que puedo llamar por ejemplo cuando cree la ventana, y otra que la libere cuando la cierre.
Código Delphi [-]
{...}
implementation
Procedure InitDLL(dll: string);
begin
If HandleDLL=0 then HandleDLL:=LoadLibrary(PChar(Dll));
end;
Procedure FreeDLL(var Hdll: THandle);
begin
If Hdll<>0 then FreeLibrary(Hdll);
end;
Procedure TForm1.FormCreate(Sender: TObject);
begin
InitDLL('user32.dll');
end;
Procedure TForm1.FormClose(Sender: TObject);
begin
FreeDLL(HandleDLL);
end;
{...}
Ya por último declaro todas las funciones que necesite.
Código Delphi [-]
Procedure MostrarCursor(mostrar: Boolean);
begin
If HandleDLL <> 0 then @FuncionDLL:=GetProcAddress(HandleDll,'ShowCursor');
If @FuncionDLL <> nil then FuncionDLL(mostrar);
end;
También quiero aclarar que en la respuesta de seoane se produce un error de acceso a memoria después de llamar a FreeLibrary. Es una cosa muy rara, porque después puse la línea ShowMessage('Se liberó') y el mensaje se mostraba, y acto seguido salía el error.
Bueno, aunque parezca que lo he solucionado sigo teniendo una gran duda. Y es que HandleDLL almacena el manejador de una libraría, pero yo voy a tener varias librerías, y todas van a tener que estar cargadas a la vez, por lo que no puedo liberar una y cargar otra. Como los nombres de las librerías los almaceno en un TStringList se me ha ocurrido crear un objeto que almacene un array de integers para almacenar en cada uno de ellos el Handle de cada librería.
Si me sale bien lo pondré aquí, pero si alguien me puede ayudar agradeceré muchísimo la respuesta.
Responder Con Cita