Ver Mensaje Individual
  #1  
Antiguo 24-11-2008
vejerf vejerf is offline
Miembro
 
Registrado: ene 2007
Posts: 206
Reputación: 20
vejerf Va por buen camino
Ayuda con cliente/servidor (sockets)

Muy buenas a todos,
Estoy intentando familiarizarme un poco con los componentes Indy TIdTCPClient y TIdTCPServer, pero necesito ayuda. Lo que intento es realizar un programita al que puedan conectarse uno o varios clientes. Estos clientes una vez conectados no realizan ninguna petición, sino que el servidor conforme va actualizando unos elementos, envía dicha actualización a los clientes. Esto es así de simple. Busco algo como:

Si Servidor.ContadorClientes > 0 entonces
for I:=0 to Servidor.ContadorClientes do
begin
Servidor.Cliente[i].EnviarDatos;
end;

Y por otra parte el cliente debería estar esperando los datos que le llegan por parte del servidor.
Datos := Cliente.LeerDatosServidor;
ActualizarDatos(Datos);

Espero haberme explicado... muchas gracias!!!
__________________
"Patientia et constantia taelecum"
Responder Con Cita