Problemas con TClientSocket
 

Hola a todos,

Ante todo y para evitar reprimendas, he puesto este hilo en esta categoría porque el componente mencionado está en la paleta "Internet", si no lo he hecho bien pido disculpas y espero vuestros consejos.

Estoy trabajando con con Delphi 2010 y Windows Vista Ultimate.

Tengo el siguiente problema y lo comento por si podéis ayudarme.

Cuando utiliza un TServerSocket y un TClientSocket en un formulario e intento que se comuniquen toda anda bien, pero estoy intentando desarrollar un componente derivado de TControl que en su interior tienen un TClientSocket:

Código Delphi [-]
Type 
        TMiComponente=Class(TComponent)
        Private
                fSocket:TClientSocket;
                ... ...
                ... ...
        Public
                Constructor Create;
                ... ...
                ... ...
                Property Socket:TClientSocket Read fSocket Write fSocket;
                ... ...
                ... ...
        End;
... ...
... ...
... ...
Constructor MiComponente.Create;
Begin
Inherited Create;
fSocket:=TClientSocket.Create(Nil);
... ...
End;

Lógicamente el componente tiene más elementos y hace más cosas, pero para clarificar la duda me parece que con esto es mejor.

La única diferencia que soy capaz de encontrar es que cuando pongo un componente TClientSocket en el formulario, se crea con Create(MiForm) i en mi componente se crea con Create(Nil), pero si ese es el problema no veo la razón y si no lo es no sé que puede estar pasando.

En ambos casos utilzo como hos "localhost", el mismo puerto y antes de conectar el cliente "MiComponente.Socket.Open" he conectado el servidor tambien con Open.

Cuando intento conectar el cliente de mi componente me da el maldito error 1049.

Alguien puede indicarme que puede estar pasando y cómo puedo solucionarlo.

Gracias.