Problemas con INDY

[m@kio]

Por el momento lo soluciones poniendo un TidTCPClient en cada forma k lo vaya a utilizar, pero yo solamente kiero tener uno en el DataModule y con ese mandar pedir la informacion, como puedo saber si el servidor espera una respuesta? o como puedo cancelar esa peticion para hacer otra?

[jachguate]

Empezado por m@kio

como puedo saber si el servidor espera una respuesta?

Empezado por jachguate

habrá que ver el flujo y algo de código en el server.

Creí que ya habia queado claro...

[[Crandel]]

Todos los programas cliente servidor, son como una conversación.

Donde cada uno hace una pregunta (dado un codigo y sus paramentros) y el otro interpreta esa pregunta (por su codigo) y devuelve la respuesta.

Ahora, el primero, recibe la respuesta y ejecuta la acción que desee.

Ese es el hilo principal de todos los programas.

Empezado por m@kio

como puedo saber si el servidor espera una respuesta?

Depende completamente de tu proceso.

Si escribes el codigo de la conversación podremos analizarlo y sugerirte algo.

[m@kio]

Servidor:

Cuando se Conecta;

 AThread.Connection.WriteLn(timetostr(now));
 listbox2.Items.Insert(0,Athread.Connection.ReadLn);

Cuando se ejecuta:

 procedure TForm1.ServidorExecute(AThread: TIdPeerThread);
 var
 	Command : String;
 begin
 listbox1.Items.Insert(0,Athread.Connection.ReadLn+'- Hora de Ejecucion: '+FormatDateTime('hh:nn:ss',now));
 Command := AThread.Connection.ReadLn;
 if command='0' then
   AThread.Connection.WriteLn(FormatDateTime('hh:nn:ss',now))
 else if command='1' then
   AThread.Connection.WriteLn(FormatDateTime('dd/mm/yyyy',date))
 else if command='2' then
   AThread.Connection.WriteLn('HOLA cliente como estas');
 
 end;

Lo del cliente ya puse como me conecto y como hago la petición al servidor, espero que me pueda ayudar...