Переводил свой чат с UDP на TCP и столкнулся с тем, что пакеты данных по пути к серверу склеиваются и наоборот от сервера к клиенту. Алгоритм решения проблемы составить не смог, примеров и информацию также не нашел.
procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
Var MemoryBuffer: string;
i, p: integer;
MemoryChange: string;
login, password, UserSender, UserClientMessage, TextMessage, lastUserConnect: string;
NewUser: boolean;
begin
MemoryBuffer:= Socket.ReceiveText;
if Copy(MemoryBuffer,1,9) = '[Request]' then//проверка на команду в пришедших данных
begin
...//Обработка полученных данных(как клиент, так и сервер по такому принципу)
end;