Mandar de Servidor a Cliente INDY TCP

[R_Richards]

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;
}
//------------------------------------------------------------------------

[m@kio]

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

[m@kio]

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.