Mandar de Servidor a Cliente INDY TCP
 

Pues no he podido mandar un writeln del servidor al cliente, lo que quiero hacer es al dar de alta un registro en el Servidor, este registro mandarlo a otra tabla que se encuentra en el Cliente, pero no se como mandarlos ya que el componente no tiene ninguna Propiedad AContext con la cual enviar el mensaje al cliente y este la reciba.

Espero k me puedan ayudar.

Envio de Mensaje desde el Server al Cliente Indy
 

Hola Buenas tardes...
Anexo el código en C++ Builder, para hacerlo en Delphi cambia el (->) por (.)

//------------------------------------------------------------------------
bool Enviar_CNT(AnsiString IP,AnsiString Mensaje)
{
bool Envio = false;
int Cont;

TList *Listado = new TList();
Listado = IdTCPServer1->Threads->LockList();
TIdPeerThread* Temp;
try
{
for (Cont = 0; Cont < Listado->Count; Cont++)
{
Temp = (TIdPeerThread*)Listado->Items[Cont];
if (Temp->Connection->Socket->Binding->PeerIP == IP)
{
Temp->Connection->Write(Mensaje);
Envio = true;
break;
}
}
}
__except(1)
{
Temp->Stop();
IdTCPServer1->Threads->UnlockList();
}
IdTCPServer1->Threads->UnlockList();
return Envio;
}
//------------------------------------------------------------------------

Gracias
 

Lo probare y te dire como me fue, muchas gracias por la respuesta.

Estoy usando INDY10
 

Ya estuve intentando con el codigo, pero no son las mismas funciones para indy 10, creo k estas usando indy 9, seguire intentando pasarlo a las 10, pero si hay alguin k me pueda ayudar se los agradeceria.