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.