Problema con Thread e Indy

[diegofhernando]

Hola foro...

Bien el problema q tengo es con un Thread q trato de implementar para realizar la conexion con ekipos remotos usando las Indy, el Thread se ejecuta sin problemas mientras no se genere ninguna excepcion durante su proceso; basicamente cuando trato de capturar la excepcion me da el error "Thread Error: controlador no valido (6)" he buscado en la documentacion de delphi pero la verdad no encuentro la razon el codigo de la unit donde esta el thread es el siguiente:

Código Delphi [-]
unit UConnection;

interface

uses
  Classes, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, forms, idException;

type
  TConnection = class(TThread)
  private
    { Private declarations }
    IP, MSG: string;
    cPort: integer;
  public
  procedure SetMsg(aIP: string; aMSG: string; aPort: integer);
  protected
    procedure Execute; override;
  end;

implementation


{ TConnection }


procedure TConnection.SetMsg(aIP: string; aMSG: string; aPort: integer);
begin
     ip:= aIP;
     msg:= amsg;
     cport:= aport;
end;



procedure TConnection.Execute;
var
sock: TidTCPClient;
begin

sock:= TidTCPClient.Create(application);

     with sock do
          begin
               host:= IP;
               port:= cport;
               try
               connect;
               writeln(MSG);
               disconnect;
               ReturnValue:= 1;
               except
               ReturnValue:= 0;
               end;
          end;
sock.Free;
end;

end.

Espero me puedan dar una mano con esto...

Como siempre gracias por su tiempo y Salu2...

[diegofhernando]

Bien al parecer el problema se encuentra al tratar de recibir el valor de "ReturnValue" usando el methodo "WaitFor" retirando estas lineas se soluciona el inconveniente, lo malo es q WaitFor en teoria me permitia obtener una respuesta del hilo, es decir, darme cuenta de lo q sucedio internamente... bien espero q los gurus del foro le den una mirada al codigo y me puedan aportar alguna idea...

Salu2...

[S.M.S.]

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.

[diegofhernando]

Agradezco mucho tu respuesta, y la verdad creo q es lo q necesitaba...

Gracias de nuevo y Salu2...