FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Code 1400. El identificador de la ventana no es válido.
Buenas,
tengo un problema a la hora de acceder por segunda vez a un procedimiento de una dll. La primera vez me deja sin problemas pero las siguientes me da el siguiente error: System error. Code 1400. El identificador de la ventana no es válido. Al procedimiento accedo así: Código:
THilo.execute; var begin HandlePacksGes := LoadLibrary('Gestion.dll'); if HandlePacksGes <> 0 then begin CanAnimate:= GetProcAddress(HandlePacksGes, 'Gestionar')<> nil; if CanAnimate then begin try Gestionar(IdUsuario, Con1); -- aquí el error al acceder por 2ª vez except on e: exception do begin messagedlg( e.message , mtwarning, [mbok],0); end; end; end; El código del procedimiento de la dll es el siguiente: Código:
procedure Gestionar(IdUsuario: integer;Conn: variant); export; begin frm := TfrmGest.Create(nil); frm.IdUsuario := IdUsuario; frm.Visible := true; f rm.Handle; while (frm.HandleAllocated) do Application.ProcessMessages; end; Si alguien tiene alguna idea? Saludos y gracias. |
|
|
|