Con el componente TIDTCPServer
de Indy en Delphi se recibe un paquete fraccionado que el cliente envió de 64 KB.
¿Cómo recibo el paquete completo en el evento Execute del Server?
Gracias
No tienes control de esto, TCP no es un protocolo orientado a mensajes, sino un protocolo orientado al flujo de datos (no sabría como traducir: stream based protocol).
En otras palabras, el stack TCP, en cualquier punto (puede ser la propia tarjeta de red del cliente, routers, switch, hubs, etc.) puede dividir un mensaje en la cantidad de paquetes que considere convenientes (y regularmente lo hace, por ejemplo a medida que los paquetes van atravesando redes antiguas con diferentes capacidades, velocidades o incluso que funcionan sobre protocolos distintos a TCP).
Otra forma de verlo, es que si tu envías los siguientes mensajes
En el cliente, podrías recibir todas las combinaciones de secuencias, por citar algunos ejemplos:
De hecho, hablando de tu pregunta particular, ninguna red que yo conozca sería capaz de transmitir 64 Kb en un solo paquete, el hecho de que tu veas solo dos paquetes es una mera casualidad y producto de la red y equipo particular dónde te encuentras ejecutando tu cliente o servidor, pero en otra red, otro equipo, incluso el mismo equipo bajo condiciones distintas, muy probablemente verías un comportamiento distinto.
Es normal diseñar, sobre TCP, protocolos (de más alto nivel) orientados a mensajes, pero en este caso, para implementar las soluciones debes tener en mente como funciona el protocolo subyacente.
Suena más complicado de lo que es, hay básicamente tres formas de trabajo.
Hay muchos ejemplos de todos estos tipos en el Internet de hoy.
Suponiendo el caso de mensajes de longitud fija, y tomando tu ejemplo de 64Kb, la manera más simple de implementarlo (solo para efectos ilustrativos), es hacer muy grande el ReadTimeout, y que el propio componente TidTCPServer
se encargue de esperar hasta lograr leer los 64Kb, por ejemplo:
function TForm1.BytesToHex(const AData; Size: Cardinal): string;
var
I: Integer;
B: pByte;
const
Digits : array [0..15] of char = '0123456789ABCDEF';
begin
Result := '';
B := @AData;
for I := 0 to Size - 1 do
begin
Result := Result + Digits[B^ shr 4] + Digits[B^ and 15];
if ((I + 1) mod 4) = 0 then
Result := Result + ' ';
Inc(B);
end;
end;
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
Data: TidBytes;
strData: string;
begin
SetLength(Data, 64 * 1024);
//no es recomendable hacer esto en producción, es solo un ejemplo
//Establecer el ReadTimeout a 60 segundos podría romper ciertas cosas
//pues el sistema esperará hasta 60 segundos por cada siguiente paquete
//que potencialmente podría ser de hasta 1 byte de longitud, haciendo
//la espera realmente larga para un _mensaje_ de 64Kb
//en una red lenta.
AContext.Connection.IOHandler.ReadTimeout := 60000;
while AContext.Connection.Connected do
begin
AContext.Connection.IOHandler.ReadBytes(Data, Length(Data), False);
strData := BytesToHex(Data[0], Length(Data));
TThread.Synchronize(nil,
procedure
begin
Memo1.Lines.Add(strData);
Inc(FNumeroMensajes);
Label1.Caption := IntToStr(FNumeroMensajes);
end);
end;
end;
Puedes probar fácilmente la teoría, haciendo un solo envío de 1Mb, desde un cliente, como este:
procedure TForm1.Button1Click(Sender: TObject);
var
Datos: TidBytes;
I: Integer;
begin
Inc(FNumeroMensaje);
IdTCPClient1.Connect;
try
SetLength(Datos, 1024 * 1024);
for I := Low(Datos) to High(Datos) do
Datos[I] := FNumeroMensaje;
IdTCPClient1.IOHandler.Write(Datos);
finally
IdTCPClient1.Disconnect;
end;
end;
Esto, produce que el contador de mensajes en el servidor se dispare a 16. Ya con el código de ejemplo, puedes jugar y enviar, por ejemplo, paquetes de 8Kb, esperar unos cuantos segundos y enviar otro paquete, y verás cómo el servidor los sigue leyendo en fragmentos de 64Kb.