Как грамотно разлепить пакеты?

[xkor]

finomen, счтываешь из сокета всё что там есть в буфер, далее извлекаешь по одному из буфера все целые пакеты и удаляешь их из буфера, опять считываешь всё из сокета и добавляешь в буфер, опять извлекаешь все целые пакеты, ну и так далее)
так я делаю в своих последних программах, в пакетхаке у меня было сделано по другому, написал обёртку к recv которая вызывала recv, далее если recv прочем данных меньше чем запрашивалось то снова вызывала её в цикле пока не было прочитано всех данных...

[Smith]

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

finomen, счтываешь из сокета всё что там есть в буфер, далее извлекаешь по одному из буфера все целые пакеты и удаляешь их из буфера, опять считываешь всё из сокета и добавляешь в буфер, опять извлекаешь все целые пакеты, ну и так далее)

А как тогда с пакетами у которых начало только пришло, а конец в следующем буфере? Ведь при добавлении следующего буфера начало затрется и пакет потеряется, если это начало сохранять то получается как у автора схема. Или я чего то не так понял?

ЗЫ xkor можно исходник этой обработки...

[xkor]

procedure TConnection.WriteBuf(var buf; const size: Integer);
var
  i: Integer;
begin
  if size<=0 then Exit;
  i:=Length(fBuf);
  SetLength(fBuf,i+size);
  Move(buf,fBuf[i+1],size);

  ParseBuf;
end;

procedure TConnection.ParseBuf;
var
  pck: PFixPck;
begin
  pck:=@fBuf[1];
  while(Length(fBuf)>=2)and(Length(fBuf)>=pck.size)do begin
   try
    if pck.size<2 then pck.size:=2;
    if isLogin then fBF.bfDecode(pck.id,pck.size-2)
               else fCrypt.DecryptGP(pck.id,pck.size-2)
               ;
    ParsePck(pck); // обработка пакета
   finally
    Delete(fBuf,1,pck.size);
    pck:=@fBuf[1]; // может и не надо но не помешает...
   end;
  end;
end;