Buenas,
tengo un error que no consigo solucionar, os lo explico para ver si alguien me puede ayudar.
En el código creo un hilo de la siguiente forma:
Código Delphi
[-]
type
THilo = class(TThread)
ModoAdm : boolean;
protected
procedure Execute; override; published
constructor CreateIt (Modo : boolean);
destructor Destroy; override;
public
end;
El procedimiento execute lo tengo así:
procedure THilo.Execute;
var
Conn : string;
Can: boolean;
Manejador: INTEGER;
begin
Manejador := LoadLibrary('Library1.dll');
if Manejador <> 0 then
begin
Can:= GetProcAddress(Manejador, 'Gestion')<> nil;
if Can then
Gestion(Id, Conn);
end
else
begin
CopyFichero('Library.dll');
Execute;
end;
end;
Y llamo al hilo de la siguiente forma:
.......
if (MiHilo = nil) or (HiloActivo = false) then begin
MiHilo:= THilo.CreateIt(false);
HiloActivo := true;
end
elsebegin ...............................
end;
Pero a hacer el createit(false) me da el siguiente error:
QueryInterface for Interface Borland.Vcl.IMalloc failed. ¿Alguna idea? Si quito el hilo me va bien, así que supongo que será que algo del hilo que está mal. Si a alguien se le ocurre algo.....
Gracias de antemano.
Saludos.