View Single Post
  #4  
Old 23/10/2014
dec's Avatar
dec dec is offline
Moderador
 
Join Date: Dec 2004
Location: Alcobendas, Madrid, España
Posts: 13,145
Rep Power: 36
dec Tiene un aura espectaculardec Tiene un aura espectacular
Quote:
Originally Posted by Héctor Randolph View Post
Hola GerTorresM

El problema es que destruyes la instancia del hilo justo de después de que comienza la ejecución.

Lo mejor es crearlo, ejecutarlo y dejar que el mismo hilo se libere de memoria al terminar su trabajo.

Para esto existe la propiedad FreeOnTerminate

Código Delphi [-]
procedure TFAuditoria.BitBtn1Click(Sender: TObject);
Var PruebaXLS : TExportarXLS_MultiHilo;
begin

    PruebaXLS := TExportarXLS_MultiHilo.create('c:\Datos\test.ppp',Self.SGDatos);
    PruebaXLS.FreeOnTerminate:=True;
    PruebaXLS.Resume;

end;

Saludos
¡Muy bien visto Héctor!
__________________
David Esperalta
www.decsoftutils.com
Reply With Quote