send/recv: размер сообщения

[cw_o]

Проблема такая: передающая сторона отсылает пакет размером 2050 байт, а принимающая сторона получает только 1460, остальная часть сообщения доходит во второй раз. Сокеты потоковые. Передаются сообщения по локальной сети, причем такая ситуация происходит через раз: иногда без ошибок принимается сразу 2050, в режиме отладки с брэйкпоинтами всегда верно работает. В чем может быть проблема? думаю, это может быть связано с mtu и фрагментацией сообщения, но за это же должен отвечать транспортный уровень, а не я... Подскажите решение, кто с этим сталкивался...

[Denager]

Я делал так:

var
buf : array [0..1023] of Char;
RcvLen : integer;
TMP : String;
...
ZeroMemory(@buf, 1024);
RcvLen:=recv(Sock,buf,1024,0);
while RcvLen > 0 do
begin
Tmp := Tmp + Copy(buf, 0, RcvLen);
RcvLen := recv(sock, buf, 1024, 0);
end;

[cw_o]

send тоже в цикле? у меня почему-то при повторном вызове recv глюки начинаются нереальные, так что основной поток завешивается, хотя recv срабатывает нормально

[Denager]

send один раз посылаю, переменную типа type TBuf = array [0..65535] of char;

[cw_o]

Все равно мои сообщения объединяются до размера 1460, получается так что приходит первый пакет размером 1460, а следующий такой пакет не успевает прийти и recv во второй раз получает меньше данных, чем нужно... Бред какой-то, пришлось вставить проверку на размер принятых данных и повторный вызов recv (уже третий) при необходимости. Причем что странно, если клиент и сервер поменять местами, то работает все отлично без потерь, может, еще с конкретным железом это связано...