Склеивание пакетов TClientSocket

[mar4elo]

Как избежать склеивание пакетов при передаче данных.
У меня отправляется один пакет а за ним сразу следующий...приходят склеиные Если можно то пример..

[Garacio_cain]

после каждого пакета в троку добавь какой нибудь символ или строку символов например '#~!%$'

paket:string;
~~~~~~~~~~~
Paket:=paket+'#~!%$'

При приеме данных занеси их в отдельную переменную а затем посмотри в цикле всю строку. как только находишь это ->'#~!%$' то копируй это в дополнительную переменную. Это и будет пакетом.
пример

for i:=1 to length(paket)-5 do
  begin
    if copy(paket,i,5)='#~!%$' then
      begin
        k:=copy(paket,i,m-i);
        m:=i;
      end;
  end;

Где m переменная, в которой будет храниться номер символа окончания последнего разбитого пакета.