Problema al llamar al LoadLibrary

[ignacio_gs]

Sabeis porque puede ser que al llamar al loadLibrary de algunas dll que tengo desarrolladas con delphi 5 se me queda el ordenador tostao(no casca simplemente se queda eternamente ahi) pero sin embargo con otras dll tambien desarrolladas con delphi 5 va bien.

Gracias.

[lomuuu]

A mi me pasa lo mismo, llevo semanas intentando saber que le pasa. El problema es al hacer la llamada, si lo debugeas, se queda tostado en el loadlibray, pero no da ningun tipo de error. Yo trabajo con Delphi 5 recien instalado xq el PC es nuevo. Con el ordenador viejo lo hace bien, pero con el nuevo que es XP home Edition, no.

Estoy desesperado ya..Tengo muchas DLL en mis programas y algunas van otras no.

[delphi.com.ar]

¿Puedes mostrarnos algo de código?... ¿No tienes en el PATH asignadas rutas en la red que no sean válidas?

[lomuuu]

Te dejo el codigo que hace la llamada, no creo que te sirva de mucho... Asi llamo a todas las DLL de mi programa y depende de la DLL funciona y otras no

procedure LlamarLanzarMaqRadio(pHandle : HWND; pDSPUBLIC, pDSEMISOR : string; gConfirmar : boolean;
pTPPUBLIC, pTPPARRIL, pCDEMISOR : string; pFEPARDIA : TDateTime);
var
Inicializa : TInicializa;
ProcDllProduccion : TMaqRadioPro;
STR_DLL, PATH_DLL : String;
begin
PATH_DLL := ExtractFilePath(Application.ExeName);
STR_DLL := PATH_DLL + NAME_DLL;
LibHandle := LoadLibrary(PChar(STR_DLL));
try
if LibHandle = 0 then
raise EDLLLoadError.CreateFmt(STR_LOAD_ERROR,[STR_DLL]);
@Inicializa := GetProcAddress(LibHandle, 'Inicializa');
{$IFDEF ORACLE}
Inicializa (fmDMConexion.OracleSession1);
{$ENDIF}
{$IFDEF SQLSERVER}
Inicializa (fmDMConexion.ADOSession);
{$ENDIF}
@ProcDllProduccion := GetProcAddress(LibHandle, 'LanzarMaqRadio');
if Assigned(ProcDllProduccion) then
ProcDllProduccion(pHandle, pDSPUBLIC, pDSEMISOR, gConfirmar, pTPPUBLIC, pTPPARRIL, pCDEMISOR, pFEPARDIA);
finally
Application.ProcessMessages;
//FreeLibrary(LibHandle);
end;
end;

[Neftali [Germán.Estévez]]

Empezado por lomuuu

Te dejo el codigo que hace la llamada....

Ponerle etiquetas al código delphi "lo mejora" bastante.
Si pruebas a editarlo lo comprobarás...

[lomuuu]

Perdon

Código Delphi [-]
procedure LlamarLanzarMaquetacionRadio(pHandle : HWND);
var
  Inicializa : TInicializa;
  ProcDllProduccion : TMaquetacionRadio;
  STR_DLL, PATH_DLL : String;
begin
  PATH_DLL := ExtractFilePath(Application.ExeName);
  STR_DLL := PATH_DLL + NAME_DLL;
  LibHandle := LoadLibrary(PChar(STR_DLL));
  try
    if LibHandle = 0 then
      raise EDLLLoadError.CreateFmt(STR_LOAD_ERROR,[STR_DLL]);
    @Inicializa := GetProcAddress(LibHandle, 'Inicializa');
    {$IFDEF ORACLE}
      Inicializa (fmDMConexion.OracleSession1);
    {$ENDIF}
    {$IFDEF SQLSERVER}
      Inicializa (fmDMConexion.ADOSession);
    {$ENDIF}
    @ProcDllProduccion := GetProcAddress(LibHandle, 'LanzarMaquetacionRadio');
    if Assigned(ProcDllProduccion) then
       ProcDllProduccion(pHandle);
  finally
    Application.ProcessMessages;
    //FreeLibrary(LibHandle);
  end;
end;

[delphi.com.ar]

¿La DLL hace algo en su punto de entrada?... ¿Has intentado depurar la DLL?