Caso con DLL.

[dec]

Hola,

Puede ser roman. No lo vi yo por ese lado, sino por otro. El programa hace uso de la librería, depende de esta, en más o menos, en un módulo u otro, por tanto, si se quita la librería el programa (al completo) no funcionará correctamente. Ahora, si se trata de que algunos módulos funcionen y otros no... ¿no habrá otra forma de hacer las cosas que no quitando y poniendo la librería de marras?

[[mlara]]

roman tiene razón. Lo que él dice es exactamente lo que sucede. La librería se usa sólo desde una ventana de mi aplicación, y no es crítica para el funcionamiento del sistema. Aunque claro, si no está algo no funcionará, pero es muy poco en realidad.

Muchas gracias por su respuesta. Voy a trabajar con LoadLibrary y GetProcAddress.

[dec]

Hola,

Empezado por mlara

roman tiene razón.

No solamente tiene razón, si tú lo dices, pero además ciertas dotes de adivino, dicho sin ánimo de ofender, naturalmente.

[roman]

Empezado por dec

pero además ciertas dotes de adivino

No realmente.

Si alguien me dice: le quite la rueda a mi auto para ver si funcionaba sin ella, supongo de antemano que se está refiriendo a la rueda de refacción.

// Saludos

[dec]

Hola,

Vale. Quito adivino. Pero, si la rueda de refacción es la rueda de repuesto y a mí alguien me dice "le quité la rueda a mi auto para ver si funcionaba bien", sin decirme que la rueda en cuestión es la rueda de repuesto,... pues acaso le diga que cómo se le ocurre hacer el loco con su coche de esa manera, que con tres ruedas lo menos es que se la pege. No corras, papá.

[roman]

mlara:

Te pongo un ejemplo que he visto de cómo cargar en tiempo de ejecución la librería y sus funciones.

Código Delphi [-]
var
  // identificador de la librería
  lib_handle: HMODULE;

  // declaras el encabezado de cada función como variable
  mysql_connect: function(_mysql: PMYSQL; const host, user, passwd: pChar): PMYSQL; stdcall;

function loadlib: boolean;
  procedure assign_proc(var proc: FARPROC; name: pChar);
  begin
    proc := GetProcAddress(libmysql_handle, name);
    if proc = nil then libmysql_status := LIBMYSQL_INCOMPATIBLE;
  end;

begin
  lib_handle := LoadLibrary('libmysql.dll');

  if lib_handle = 0 then
    Result := false
  else
  begin
    assign_proc(@mysql_connect, 'mysql_connect');

    { otras asignaciones }

    Result := true;
  end;
end;

loadlib carga la librería y asigna a la variable mysql_connect (que es de tipo funcion) la dirección de la función en el dll. El procedmineto local assign_proc es para facilitar la asignación en caso de que haya muchas funciones. Si la librería no se encuentra, loadlib regresa false.

Si ya no necesitas la librería, puedes descargarla con

Código Delphi [-]
FreeLibrary(lib_handle);

// Saludos

[[mlara]]

Gracias roman. Reescribí un poquitín el código y funcionó bien. Ahora sólo ejecuta las funciones de la DLL cuando esta está disponible, y si no lo está, igual la aplicación corre.

[[Al González]]

¡Hola a todos!

Empezado por roman

...Si alguien me dice: le quite la rueda a mi auto para ver si funcionaba sin ella, supongo de antemano que se está refiriendo a la rueda de refacción...

A menos que el dueño del auto sea un informático (un pequeño chascarrillo ).

Aprovecho la ocasión para invitarlos a cambiar el uso de "librería" por biblioteca, el cual es el término correcto.

Un abrazo profesional.

Al González.