| m@kio |
13-08-2005 22:33:08 |
Nuevamente.... Servidor a Cliente INDY 10
Pues sigo teniendo problemas con esto, kiero mandar mensajes del Servidor al Cliente, para actualizar información, ya habia posteado antes sobre esto, me dieron un respuesta en C++ Builder, pero ya la intente pasar a Delphi, todo iba bien hasta k me encontre con TIdPeerThread, esta no viene en las indy 10, las 9 las manejaba pero ahora es con TIdContext y no pude hacer eso, este el codigo que me postearon:
Código:
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++)
{
//Esta Linea es la que no se como cambiarla a delphi por lo del TIdPeerThread
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;
}
Espero k me puedan ayudar, ya sea ayudandome a cambiar esta linea a Delphi o si me pueden decir otra forma de hacerlo. |
