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
IP, MSG: string;
cPort: integer;
public
procedure SetMsg(aIP: string; aMSG: string; aPort: integer);
protected
procedure Execute; override;
end;
implementation
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...