Sincronizar ServerSocket y ListView

[jachguate]

Empezado por Amilius

Si usas el "sockets.pas" cuando envías:

"Hola" y luego "Mundo" pueden recibir: "Hola" y luego "Mundo", "HolaMundo" y también "Ho", "laM","un" y finalmente "do". El 1er caso es típico cuando envías los mensajes con cierto tiempo ellos. El 2do caso cuando los envías uno detrás de otro casi inmediatamente y el 3er caso cuando el canal de transmisión está saturado pero generalmente esa fragmentación al recibir el mensaje ocurrirá con mensajes más largos.

Supongo que esto será problema de "delimitación" de los mensajes, pues con las Indy nunca he visto nada similar. Como siempre, TCP/IP garantiza que, a nivel de aplicación, los mensajes lleguen integros y en orden.

Hasta luego.

[nash]

hola gente soy novato en todo esto de programacion pero por algo se empiesa yo estaba asiendo algo como esto y no se donde poner esto en q clase de boton o en el listview no encuentro como alguien me lo esplica si esta n amable...

saludos!!! y muchas grasias

procedure TForm1.Connect1Click(Sender: TObject);
var
intNumConnect, intSocket: integer;
begin
intNumConnect:=-1;

if listView1.ItemIndex = -1 then begin
    showmessage('There is no server selected');
    exit;
   end
   else
   begin
   intSocket:= StrToInt(listView1.Selected.Caption);
   repeat
   intNumConnect:= intNumConnect + 1;
   if
   ServerSocket1.Socket.Connections[intNumConnect].SocketHandle=IntSocket then
   ServerSocket1.Socket.Connections[intNumConnect].SendText('connect');
   until
   (intNumConnect + 1) = ServerSocket1.Socket.ActiveConnections;
   end
end;