Потеря части данных при отправке через TSocket

[Crystallon]

Доброго времени суток.
Отправляю строку размером в 65536 символов(прямо перед отправкой вывожу в tmemo length(sign_db[LP_i]) чтобы проверить что я наверняка передаю то что нужно и в целом виде, выдает как надо 65536):
Socket.SendText(sign_db[LP_i]);
Передача происходит от сервера к клиенту, клиент получает строку в которой только 3455 символов:
LP_rec:=Socket.ReceiveText;
Length(LP_rec) выводит 3455.
Содержимое изначальной строки(65536 символов) в прикрепленном txt файле(это кусок дампа памяти некоего процесса).
Собственно суть вопроса - в чем может быть причина обрезки строки?
Заранее спасибо за ответ.

http://rghost.ru/22730521

[GunSmoker]

А ничего, что это не текст, а двоичные данные?

[Crystallon]

Сообщение от GunSmoker

А ничего, что это не текст, а двоичные данные?

Еслиб это был обычный текст такого вообще не могло произойти, но даже так все равно часть этих данных передается нормально, почему с другой частью все иначе?

[JUDAS]

1. Через сокеты строки передавать не рекомендуется
2. рекомендую следующий алгоритм
- определить дамп памяти
- принять, что первые 6 байта передачи заголовок например 2 байта - сигнатура и 4 байта длина посылки
- отправлять строку дампом.
------------------
По сути, через приходит вся строка. Но на входе, не возможно определить её длину поэтому система и обрезает посылку.

var SEND : TSendRecord
       sign : word;
       length : integer;
     end;
      Dump : array of char;
begin
  S:= 'Эту строку нам нужно передать';
  SEND.length := 65535;
  SetLenGth(Dump,SEND.length );
  FillChar(Dump[0], SEND.length, 0);
  StrPCopy(Dump[0], S); 
  SEND.sign := $FF0E; // пусть это будет сигнатура
  Socket.SendBuf(SEND.sign,SEND.length +6);
  Finalize(Dump);
end;

на примёме

var RECV : TSendRecord
       sign : word;
       length : integer;
     end;
      Dump : array of char;
begin
  S.ReceiveBuf(Recv, SizeOf(TSendRecord));
  if RECV.sign<>$FF0E then >> ДОСВИДАНИЕ
  SetLenGth(Dump, RECV.length);
  S.ReceiveBuf(Dump[0], RECV.length);
  Finalize(Dump);

принимаете первые 6 байт и выуживаете длину.
Потом принимаете число байт равное SEND.length
----
Если потеря будет имметь место, попробуйте передать вашу посылку по частям , менее 64 кБ с попакетным раздроблением и сборкой.

[Crystallon]

Хм, оригинально... Даже не знал что в сокетах есть такая абсурдная недоработка, а откуда вообще берется число полученных байт? Какой бы текст я не передавал получателю доходит только 3472 байта, почему именно 3472?

[JUDAS]

только 3472 байта

не могу сказать почему именно 3472 потому что не видно всего кода, но могу сказать с уверенностью, при написании серврера на сокетах, я передавал 34000 байт єто точно. Больших массивов я не передавал

[mss]

не знал что в сокетах есть такая абсурдная недоработка

Нет там никакой "абсурдной недоработки".

Справку и документацию читать надо, а не пенять на кривизну сокетов

В ней черным по белому написано:

function SendText(const S: string): Integer; // function !!!!!!!!!!!!!!!!!!!!!!

SendText returns the number of bytes sent. Note that this may be less than the length of the string S if the socket is nonblocking.

[_Troy]

За раз можно отправлять пакет длиной не более 65500 байт.