4 respuestas en este tema

[look]

Hola amigos, estoy trabajando con indy, tratando de desarrollar una aplicacion que mande informacion a los clientes.

 

cliente:

php

procedure TFrmMain.JvTimer1Timer(Sender: TObject);
var
  s:string;
begin
 
  if not TCPClient1.Connected then Exit;
 
  JvTimer1.Enabled := False;
  TCPClient1.IOHandler.WriteLn('send'); //command 
  s := TCPClient1.IOHandler.ReadLn;
  try
    Fill(s); /// llena un listbox con los datos recividos
  except
  end;
  JvTimer1.Enabled := True;
 
end;

Servidor:

php

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?

 

 

 

[poliburro]

A mi esto me pasaba en el viejo Delphi 5 con los TcpServerSocket y TcpClientSocket. La razón que encontré en aquel entonces amigo es que la información era enviada a trozos entonces lo resolví agregando códigos de control de inicio y fin.

 

Saludos.

[escafandra]

Es un problema cuando se usan sokets a bajo nivel. La solución es un bucle hasta que no quede nada por leer, o como apunta poliburro, hasta encontrar un código de control. El problema está en el tamaño máximo de paquete que admite la configuración de la red.

Saludos.

[genriquez]

Hola, yo hago lo mismo, pero utilizo DataSnap y una funcionalidad excelente que tiene que son los CallBacks, con ellos puede ser el servidor quien envía los mensajes a los clientes, incluso se pueden tener diferentes canales y realizar un broadcast, así puedes enviar el mismo mensaje a todos los miembros de un canal en particular, o de uno en uno.

 

He enviado información de hasta 2 megas en un solo mensaje y funciona bien.

 

Te dejo la inquietud, hay varias formas de solucionar este problema.

 

Saludos.

[look]

Hola, amigos , gracias por sus sugerencias, las tomare en cuenta.

 

Saludos!