FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#6
|
|||
|
|||
perdon por tantos mensajes pero ya tube una solucion aunque con algunos problemitas
type TProc = procedure; var Proc: TProc; Handle: THandle; DllName: string; ShowDllFormModal:string; begin DllName:= combobox1.Text; ShowDllFormModal:= combobox2.Text; Handle := LoadLibrary(PChar(DllName)); if Handle = 0 then raise Exception.Create('DLL no encontrada: ' + DllName); try Proc := GetProcAddress(Handle, PChar(ShowDllFormModal)); if @Proc = nil then raise Exception.Create('Función no encontrada: ' + ShowDllFormModal); Proc; finally FreeLibrary(Handle); end; end; con este codigo puedo ejecutar un dll ingresando el nombre del dll y el nombre de la funcion en un combobox. en mi caso ejecute un showdllformmodal el problema es que cuando cierro la aplicacion showmodal me salen dos errores: 1- access violation at address 00c8c1130 read of address 00c8c1130 2- el identificador de la ventana no es valido. como hago para eliminar estos errores??? |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Carga dinamica de una dll y Access violation | zurech | OOP | 3 | 21-02-2011 12:33:14 |
Carga del servidor | CoCaInE | SQL | 3 | 29-11-2007 13:17:40 |
carga dinámica de una libreria en linux | Robert01 | Lazarus, FreePascal, Kylix, etc. | 2 | 06-10-2007 19:43:15 |
Carga de Delphi | senpiterno | Varios | 1 | 21-09-2004 17:45:12 |
Carga rápida de jpg | xflo | Gráficos | 0 | 28-07-2004 10:38:38 |
|