[Alex_Gordon]

Не подскажете как сделать subj?

[NumLock]

есть такое, работает правда только по локалке (вроде), протокол тожа не помню, зато есть функция прибить сервер:
http://data.cod.ru/97710

[Alex_Gordon]

Я узнал, что нужно отослать запрос по UPD на мастерсервер, чтобы получить список серверов. Вот пример запроса:

Код:

0000   31 FF 30 2E 30 2E 30 2E    1.0.0.0.
0008   30 3A 30 00 00             0:0..

У меня вопросы?
1) Как собственно отослать запрос при помощи Indy?
2) Как принять ответ? И куда он сохранится?

[NumLock]

не знаю где ты такое взял. у меня вот так опрос идет:

Код:

IdUDPServer.Broadcast(#255#255#255#255'TSource Engine Query'#0, 27015);

A2S_INFO
Request format
Server info can be requested by sending the following byte values in a UDP packet to the server. FF FF FF FF 54 53 6F 75 72 63 65 20 45 6E 67 69 ÿÿÿÿTSource Engi
6E 65 20 51 75 65 72 79 00 ne Query
i.e. -1 (int), 'T' (byte), "Source Engine Query" (string)

http://developer.valvesoftware.com/wiki/Server_Queries

[Alex_Gordon]

Мне все равно не очень понятно. Можешь дать пример кода?

[NumLock]

Код:

IdUDPServer.Broadcast(#255#255#255#255'TSource Engine Query'#0, 27010);
  IdUDPServer.Broadcast(#255#255#255#255'TSource Engine Query'#0, 27011);
  IdUDPServer.Broadcast(#255#255#255#255'TSource Engine Query'#0, 27012);
  IdUDPServer.Broadcast(#255#255#255#255'TSource Engine Query'#0, 27013);
  IdUDPServer.Broadcast(#255#255#255#255'TSource Engine Query'#0, 27014);
  IdUDPServer.Broadcast(#255#255#255#255'TSource Engine Query'#0, 27015);
  IdUDPServer.Broadcast(#255#255#255#255'TSource Engine Query'#0, 27016);
  IdUDPServer.Broadcast(#255#255#255#255'TSource Engine Query'#0, 27017);
  IdUDPServer.Broadcast(#255#255#255#255'TSource Engine Query'#0, 27018);
  IdUDPServer.Broadcast(#255#255#255#255'TSource Engine Query'#0, 27019);
  IdUDPServer.Broadcast(#255#255#255#255'TSource Engine Query'#0, 27020);

[Alex_Gordon]

А как получить ответ сервера в файл\мемо?

[NumLock]

у TIdUDPServer событие OnUDPRead

[Alex_Gordon]

А что принимать-то?

[NumLock]

сервер ответит чем-нить подобным:

'яяяяm10.4.84.102:27015'#0'[Counter-Strike 1.6 DS]'#0'de_nonstop'#0'cstrike'#0'Counter-Strike'#0#$F' /dw'#0#1'www.counter-strike.net'#0#0#0#1#0#0#0#0'ћч'#$A#0#1#0#$F

красным выделена кое-какая инфа сервера: ip : port, dedserv name, map, mod Counter-Strike

[Alex_Gordon]

Ты говоришь событие OnUdpRead, какой код для принятия ответа в мемо?
Я не понимаю, как считать ответ из OnUdpRead

[NumLock]

ну что-то типа этого:

Код:

procedure TFormMain.IdUDPServerUDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  c: Char;
  s: String;
begin
  MemoServers.Lines.Add(ABinding.PeerIP+':'+IntToStr(ABinding.PeerPort));
  while AData.Read(c, 1)<>0 do if (c>=#32) and (c<=#255) then s:=s+c;
  // s
end;

[zeal1209]

можете пожалуйста выложить полную процедуру отправки данных на сервер.

да и еще: у меня в в процедуре IdUDPServerUDPRead вместо AData: TStream стоит AData: TBytes. как с этим быть?