Эффективное решение проблемы склеивания пакетов.

[Stilet]

Всем доброго.
Есть такая проблема как склеивание пакетов при передаче по сокетам, т.е. если я выполняю подряд операции

ClientSocket1.Socket.SendText(m);
ClientSocket1.Socket.SendText(m);

То эти две строки которые я передаю склеются в одну.
А мне нужно следующее:
Каждая ClientSocket1.Socket.SendText должна либо ждать пока сервер ее полностью обработает, можно даже с застопорением программы, пока ответ не придет, либо сам сервер должен распознавать что пришли две разных команды-строки, и уже либо их обрабатывать по порядку, либо на каждую заводить отдельный поток.

Вопрос: Какими средствами, компонентами это проще всего реализовать? Я сейчас остановился на стандартных TServerSocket;
TClientSocket;
Можно ли их как-то настроить делать такие вещи?

Заранее спасибо. Если будет ссылки на литературу, примеры, описания буду только рад.

[raxp]

ну склеится и бог с ним, пусть сидят в буфере пока не отправятся... пусть сервер разбором занимается, например добавлять #13

ClientSocket1.Socket.SendText(m + #13);
ClientSocket1.Socket.SendText(m + #13);

а ожидание лишняя головная боль.


upd
-------

Эх... Ну так вот не хотелось по этой тропинке идти...

тут узкое место либо при передаче, либо буфер c накоплением на приеме... как-бы от задачи зависит, если нужно клиенту четко знать, что команда не просто дошла, но и выполнилась на сервере, тогда и обратную связь-бы нужно.

[Stilet]

пусть сервер разбором занимается

Эх... Ну так вот не хотелось по этой тропинке идти...
Не верю чтоб борландовцы не придумали решения этой мелкой проблемы.
по крайней мере в IdHTTPServer она решена...
Но что-то не очень хочется Инди пользовать, я пока не очень понял как с ними работать.

[Anton911]

Скажите пожалуйсто, вот у меня проблема с склеиваниями пакетов, я бы может и добавил бы на сервер "разборщик пакетов", но просто у меня сами клиентские-сокеты сохраняется в переменную-массив. Вот пример:

Программа-сервер Событие OnConnect:

procedure TAntiCheatGTA.ServerSClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
NewUser := TUser.Create;
ActiveConnections:=ActiveConnections+1;
NewUser.Number := ActiveConnections;
NewUser.Socket := Pointer(Socket);
Socket.Data := NewUser;
PlayersCount.Text:=inttostr(ActiveConnections);
end;

Программа-сервер Событие OnRead:

SetLength(s, Socket.ReceiveLength);
SetLength(s, Socket.ReceiveBuf(Pointer(s)^, Length(s)));
sss:=MyCodeEncode(s,1);
len:=Length(sss);
TUser(Socket.Data).SuperInf:=sss;
TUser(Socket.Data).Name:=Copy(sss,1,Pos('|',sss)-1);
TUser(Socket.Data).Cheater:=Copy(sss,Pos('|',sss)+1,len-1);
TUser(Socket.Data).Version:=Copy(sss,len-4,len);
len:=Length(TUser(Socket.Data).Cheater);
Delete(TUser(Socket.Data).Cheater,len-4,len);
len:=Length(TUser(Socket.Data).Version);
Delete(TUser(Socket.Data).Version,1,len-4);
len:=Length(TUser(Socket.Data).Version);
Delete(TUser(Socket.Data).Version,len,len);

Получается, что когда пользователь коннектится для него создается отдельная переменная и туда сохраняется сам сокет( но суть не в этом), после чего клиент отсылает пакет данных, которые сервер читает и заносит в TUser. Так вот если 2 или больше клиента пошлют такой пакет, то информация склеивается. Если я буду разберать принятый склееный пакет, то будут утеряны Socket.Data.

[Пепел Феникса]

а именно и придется разбирать согласно вашему протоколу.
ибо TCP считается потоковым протоколом.

Так вот если 2 или больше клиента пошлют такой пакет, то информация склеивается.

это ж как вы читаете так что у вас склеиваются данные от разных клиентов?

[Stilet]

Если что я не помошник. Я на НТТР пересел, и проблем с многопользовательской схемой не получаю.