Descargando DLLs
 

Vale, un poblema:

Tengo una DLL de fabricacion propia q va bien, hace todo lo q tiene q hacer pero a la hora de cerrar la aplicacion q la utiliza me da un error (access violation) q me trae loco,

La dll se carga asi:

Código Delphi [-]
 result := 0;
//  if LibHand = 0 then
    LibHand := LoadLibrary('myDLL.dll');
   if LibHand <> 0 then
     begin
       @DisplayModalForm := GetProcAddress(LibHand, 'DisplayModalForm');
    //cambio esto a funciones, devuelve un entero
       result := integer(DisplayModalForm(Pchar(AstrFormulario),VarrIdiomas, AintIdioma));
       //@DisplayModalForm := nil;
    end;
//    FreeLibrary(LibHand);
//    LibHand := 0;
    //ShowMessage('Liberado : ' + BoolToStr(blnIsFree));

Lo comentado son cosas q he probado... Lo unico q cambiaba el error era libhand := 0 q hacia q la direccion q daba error fuera la 0x00000

Libhand es una variable global de esa unidad y todo funciona ok... casca al cerrarse la aplicacion.... alguien ve algo feo? me voi a suicidar!!!!

En esta línea estás intentando cambiar la posición de memoria de DisplayModalForm. Como lógicamente eso no es posible (no se puede cambiar la posición de memoria de una variable), el compilador hace lo que puede y falla cuando se ejecuta.

Lo que me parece raro es que el compilador no falle al intentar compilar esa lína :confused:. ¿Seguro que no devuelve ningún error?

Displaymodalform es una funcion:

TDisplayModalForm = function (AstrFormulario : PChar; var arrIdiomas : array of string; AintIdioma : shortint = 0) :integer

var
DisplayModalForm : TDisplayModalForm;

Mi intencion es asignar a esa variable el proceso que esta en la DLL cargada y q tiene el nombre entrecomillado...

porque no pruebas así:

Código Delphi [-]
  libhand := LoadLibrary('mydll.dll');
    if libhand = 0 then begin
        ShowMessage ('DLL no disponible');
    end
    else begin
      @DisplayModalForm := GetProcAddress(libhand, 'DisplayModalForm');
      if @DisplayModalForm = nil then begin
          { function no found. misspelled? }
           ShowMessage ('función no encontrada, ¿llamada erronea?');
      end
      else begin
         { call the function as usually }
        result := integer(DisplayModalForm(Pchar(AstrFormulario),VarrIdiomas, AintIdioma));
      end;
    end;
    FreeLibrary(libhand);

Sigo pensando que "@var := value" no es correcto: que yo sepa, el operador @ devuelve la dirección física de la variable o de la función/procedimiento al que se aplica. ¿Estoy equivocado? ¿O es que cambiaron la especificación de Pascal y no me enteré?

Voy a dar un palo de ciego. Supongo que tanto el programa como la dll están creadas en delphi, pero ¿has añadido la unidad ShareMem a las uses?.