Ver Mensaje Individual
  #1  
Antiguo 28-03-2005
Avatar de diegofhernando
diegofhernando diegofhernando is offline
Miembro
 
Registrado: may 2003
Ubicación: Locombia papá!
Posts: 267
Reputación: 22
diegofhernando Va por buen camino
Problema con Thread e Indy

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...
__________________
Diego. Colombia es pasión.
Responder Con Cita