Расшифровать ответ сервера

[Shouldercannon]

Хочу сделать мониторинг сервера CSS. Использую

procedure TForm1.ComboBox1Select(Sender: TObject);
var serp, port, server: string;
begin
serp:=form1.ComboBox1.Text;
port:=copy(serp,(length(serp)-4),6);
server:=copy(serp,0,(length(serp)-6));
IdUDPClient1.ReceiveTimeout:=2;
IdUDPClient1.Host:=server;
IdUDPClient1.Port:=strtoint(port);
IdUDPClient1.Active:= True;

IdUDPClient1.Send(char(255)+char(255)+char(255)+char(255)+'TSource Engine Query'+Chr(0));

Memo1.Text:=(IdUDPClient1.ReceiveString(120000));
IdUDPClient1.Active:=False;
end;

В ответ приходит: яяяяI[PENZA]Shouldercannon AvP2 CSS Zombie reloaded 3.0.0 Beta 1 No-Steam

А вот как видит тот же самый ответ Сниффер: (скрин)

Вопрос заключается в следующем: как средствами Delphi вывести нормально ответ как на крине в самом низу (то что выделено)?

[raxp]

inttohex и представление символа в его коде вам в помощь.

[Shouldercannon]

Хм оказывается ответ в Хексах приходит. Значит наверно надо так HexToStr?

[Stilet]

Значит наверно надо так HexToStr?

Ну вообще-то помоему сначала переводят HEX в число StrToint а уж потом в символ.

[raxp]

эм.. ответ вам приходит в символьном или бинарном виде, это уже компонент интерпретирует... то что я вижу внизу это представление в hex, а если вы для чтения используете "IdUDPClient1.ReceiveString" он вам в стринге и выдаст... у UDP есть еще метод:

procedure Tcv.UDPDataReceived(Sender: TComponent;
  NumberBytes: Integer; FromIP: String; Port: Integer);
var msg: TStringStream;
    s: string;
begin
 msg:= TStringStream.Create('');
 msg.Position:= 0;
 UDP.ReadStream(msg); // вот вам и бинарный поток
 s:= msg.DataString;
 
 msg.Free
end;

upd
-------

UDP здесь выступает в роли чего?

дык, це мiй компонент UDPClient

[Shouldercannon]

Я немного не понял вот эту строку

UDP.ReadStream(msg); // вот вам и бинарный поток

UDP здесь выступает в роли чего?

На строке

IdUDPClient1.ReadStream(msg); // вот вам и бинарный поток

возникает ошибка [Error] Unit1.pas(52): Undeclared identifier: 'ReadStream'. Где нужно объявить ReadStream?

[raxp]

IdUDPClient1

у вас компонент от indy, я же привел вам в качестве примера - UDPClient с поставки delphi6

[Shouldercannon]

Я сейчас говорю про ReadStream, ругается компилятор говорит, что ReadStream не объявлен. Похоже надо прописать что-то в Uses.

[raxp]

компоненты indy не использую в работе....
свойство ReadStream в вашем может просто отсутствовать, гляньте сами после точки <Ctr>+<Space> и появиться выпадающий список со всеми доступными методами вашего компонента (а вообще после точки он и так появляется)

[Shouldercannon]

У меня Delphi 7 и в выпадающем меню нет ReadStream вообще нет ничего с Read