![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#4
|
|||
|
|||
|
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; |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Llamar exe de fox | kvtm | Varios | 2 | 14-08-2006 01:34:08 |
| Llamar Dll | mcarazas | Varios | 0 | 06-07-2006 01:18:28 |
| llamar una dll desde php | jzginez | PHP | 4 | 20-01-2006 03:53:09 |
| problema al llamar una función | sgarrido | Varios | 3 | 27-07-2004 01:14:33 |
| Llamar archivo Help CHM | esocrates | API de Windows | 2 | 30-07-2003 22:11:16 |
|