Hola amigos, estoy trabajando con indy, tratando de desarrollar una aplicacion que mande informacion a los clientes.
cliente:
Servidor:
procedure TFrmMain.TCPServer1Execute(AContext: TIdContext); var Command,s : string; i:Integer; begin Command := AContext.Connection.IOHandler.ReadLn; if Command = 'send' then begin try for I := 0 to ListBox1.Items.Count-1 do begin s := s+ListBox1.Items[i]+'~'; end; AContext.Connection.IOHandler.WriteLn(s); except end; end; end;
la aplicacion manda desde el la app server los datos de un lisbox a la app cliente y este los ingresa al lisbox del cliente, todo esto me funciona bien si la aplicacion server y cliente la ejecuto en la misma computadora, pero al pasar la aplicacion server al servidor, los datos que manda a los clientes llegan incompletos:
ejemplo:
misma computadora recibo esto:
Aplicacion en server el el servidor:
A que se debera esto?