Ver Mensaje Individual
  #3  
Antiguo 30-03-2005
S.M.S. S.M.S. is offline
Miembro
 
Registrado: jun 2003
Ubicación: España
Posts: 56
Reputación: 21
S.M.S. Va por buen camino
Evento OnTerminate

Efectivamente el método WaitFor suspende la ejecución del programa hasta que el método Execute termina y, por tanto, se utiliza en aquellos casos en que el programa principal, para poder continuar, necesita previamente un dato que ha de proporcionarle el Thread. Al no ser este tu caso, en su lugar, puedes aprovechar el evento OnTerminate del hilo que será llamado justo cuando éste finalice. Para ello podrías hacer algo parecido a lo siguiente (esto en la form desde donde creas el hilo):

Código Delphi [-]
type
  TForm1 = class(TForm)
......

 public

 private
    Procedure FinHilo(Sender: TObject);
 end;

var
  Form1: TForm1;
  RetornoHilo: integer;

implementation

{$R *.DFM}

uses UConnection;

procedure TForm1.Button1Click(Sender: TObject);
//Evento desde el que se crea el hilo
begin
  with TConnection.Create (false) do
  begin
    FreeOnTerminate:= True;
    //asigno el siguiente procedure al evento OnTerminate 
    OnTerminate:= FinHilo;
  end;
end;


procedure TForm1.FinHilo (Sender: TObject);
begin
  label1.caption:= IntToStr(RetornoHilo);
end;
Y luego en el método execute del hilo tomas el valor de RetornoHilo:

Código Delphi [-]
procedure TConnection.Execute;
begin
  with TIdTCPClient.Create(application) do
  Try
    host:= IP;
    port:= cport;
      try
        connect;
        writeln(MSG);
        disconnect;
        RetornoHilo:= 1;
      except
        RetornoHilo:= 0;
      end;
  finally
    free;
  end;
end;
Espero te sirva. Saludos.

Última edición por S.M.S. fecha: 30-03-2005 a las 09:40:50.
Responder Con Cita