[sergeok87]

Приветствую всех!

Не получаю ответ от сервера.

Код:

procedure Tf.btnSendClick(Sender: TObject);
var
  buf:string;
begin
  udpSocket.RemoteHost:='hl1master.steampowered.com';
  udpSocket.RemotePort:='27015';
  udpSocket.Connect;
  udpSocket.Sendln(#$71,'');
  udpSocket.Receiveln(buf);
  memo.Lines.Add(buf);
  udpSocket.Disconnect;
end;

Пакет отсылается правильно и доходит до сервера (смотрел сниффером), а вот ответа нет. Программа тупо зависает. Подскажите пожалуйста, что я делаю не так?
Версия Delphi 7 (lite, которая распаковывается в full).

[NumLock]

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

а вот ответа нет

а почему такая уверенность что он должен быть?

[sergeok87]

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

а почему такая уверенность что он должен быть?

это следует из
документации valve.
Следуя написанному, при отправке udp-данных

Код:

udpSocket.Sendln(#$71); //The game server sends each master server "q" (71).

я должен получить ответ вида:

FF FF FF FF 73 0A

(The master servers each respond by sending FF FF FF FF 73 0A followed by a (relatively) unique 4-byte "challenge" number. If you send the master servers an invalid challenge, you will get another challenge as a response.).

[Страдалецъ]

Че-то телнет напрочь висит при опросе вашего адреса и порта. Ни ответа ни привета
Хотя может так и задумано - типа нефиг грязным телнетом лезть на наш игровой сервер.