Каскадный режим | Линейный режим

***all__*** · 14.12.2011 15:54

Хоть udp и считается однонаправленным протоколом, но сетевые игры ведут обмен пакетами в обоих направлениях.
Решил эту задачу так:

Так сервер принимает и формирует ответ:

PHP код:

procedure TForm1.udpSvUDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  strm:TStringStream;
  str:string;
begin
  strm:=TStringStream.Create('');
  strm.CopyFrom(AData, AData.Size);
  svLog.Lines.Add('Handle:'+inttostr(ABinding.Handle));
  svLog.Lines.Add('Size:'+inttostr(AData.Size));
  svLog.Lines.Add('Text:'+strm.DataString);
  str:='Server answer';
  ABinding.SendTo(ABinding.PeerIP,ABinding.PeerPort,str[1],Length(str));
  strm.Free;
end; 

Так клиент отправляет запрос на сервер и принимает ответ.

PHP код:

procedure TForm1.btn3Click(Sender: TObject);
begin
  udpCl1.Send('Client message');
  clLog.Lines.Add(udpCl1.ReceiveString);
end; 

Скачать пример:

.zip

dUDPtest.zip (Размер: 7.14 Кб / Загрузок: 32)

Похожие темы
Тема:		Автор	Ответов:	Просмотров:	Посл. сообщение
	Получить текст между тегами, или произвольными строками	all__	0	988	03.05.2010 8:49 Посл. сообщение: all__

Каскадный режим \| Линейный режим Обмен между TIdUDPClient и TIdUDPServer в обоих направлениях
Автор	Сообщение