servidor tcp indy

[JULIPO]

Estoy elaborando un aplicativo con delphi 2010 y el indy que incluye la instalacion y ya logre enviar datos desde el cliente al servidor pero no puedo enviar datos del servidor al cliente por mas que he buscado en este foro no encuentro la solucion.

la aplicacion requiere que el cliente le envie un hearbeat al servidor y este le envie una cadena de caracteres de 21 bytes.

el cliente envia el hearbeat pero no se como enviar la respuesta del servidor, cabe aclarar que existen varios clientes al tiempo comunicandose con el servidor.

agradezco de antemano las respuestas a mi pregunta.

julipo

[yapt]

No indicas que protocolo estás utilizando, ni que componentes (servidor y cliente de Indy), ni el código del servidor donde recibes los datos.

Hay que tener en cuenta que, suponiendo que tu servidor Indy sea un TIdTCPServer, un servidor solo puede responder a un cliente. Nunca iniciar la comunicación. Teniendo esto claro:

Código Delphi [-]
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  entrada : string;
begin
  AContext.Connection.Socket.ReadTimeout := 1000;
  entrada := AContext.Connection.Socket.ReadLn;
  // Haces lo que quieras con los datos almacenados en Entrada.
  // Y devolvemos un 'recibido'.
  AContext.Connection.Socket.WriteLn('recibido');
end;

Te recomiendo encarecidamente el libro de las Indy. No está actualizado a la última versión de las Indy, pero vale la pena leerlo.

Saludos.