Query an Gameserver

[Flodding]

Code:

case self :: GETCHALLENGE_ALL_CLEAR:
            {
               $this->Socket->Write( self :: A2S_PLAYER, $this->Challenge );
               $this->Socket->Read( 14000 );                
               $Type = $this->Buffer->GetByte( );
               
               if( $Type === 0 )
               {
                  return false;
               }
               else if( $Type !== self :: S2A_PLAYER )
               {
                  throw new InvalidPacketException( 'GetPlayers: Packet header mismatch. (0x' . DecHex( $Type ) . ')', InvalidPacketException::PACKET_HEADER_MISMATCH );
               }
               
               break;
            }

Hier werden die Spieler auf dem Server erkannt ja?

Im oberen Teil des Codes finde ich :

Code:

const A2S_PLAYER    = 0x55;

Dies sollte bedeuten, dass der Buffer den ich senden muss so aussehen sollte:

FF FF FF FF 55

Dabei fehlt mir dann aber dieses Challenge ... das versteh ich nicht was damit gemeint ist.

[BadenPower]

Hast Du Dir diese Seite schon angesehen, welche Neutral General bereits gepostet hat?

https://developer.valvesoftware.com/wiki/Server_queries

[Flodding]

Ja und ich lese und lese und lese...

Ich habe das so verstanden:

Insgesammt gibt es 5 verschiedene Arten dem Server Daten abzufragen... diese wären:

A2S_INFO

A2S_PLAYER

A2S_RULES

A2A_PING

A2S_SERVERQUERY_GETCHALLENGE

Um diese Daten abzufragen benötige ich eine UDP/IP Verbindung. Über diese Verbindung muss ich jedes mal den HEADER mitsenden... dieser besteht aus FF FF FF FF (nicht gesplittetes Paket) oder FF FF FF FE (gesplittetes Paket). Da die Größe der Daten die ich abfragen will gering ist, gehe ich davon aus, dass ich nur den ersten HEADER benutzen muss. Somit haben wir den ersten teil des Buffers schon zusammen.

FF FF FF FF

um jetzt die gewünschten Daten zu bekommen muss ich das benütigte Byte hinten dranhängen.

[Flodding]

Okay ... also ich habe jetzt verstanden, dass ich für die Spieler erst ein Challenge brauche...

dieses Challenge bekomme ich auch...

FF FF FF FF 55 FF FF FF FF

Damit bekomme ich dann folgende ausgabe im RAW format:

Code:

ÿÿÿÿA1º

Lðˆ' €x1€
ÖvŸs'/à'øïŒ+Çvà'¤
'ð½jÇvB
òðFtÆvà'
B
ò`ð(BÇvB
ò   'ü'   'à'
'T'XðhiÇvà'xðŒÆvSzÆv*  B
ò
ÄðeT¼vB
òÄð².D$ñÿÿÿÿà'ÀðìðPñ$ñÈ pqç
È ôðùJA°í
Y<Ba<Bpqç
�Üê
;&DñR&DZ&DÈñ¹r¹u»t¹u¶c…ûƒž¶cÿÿÿÿ…Îv¶c¶c*i¹uvr¹uWr¹u¶c©¶cpñ(zq¹uøÎv6q¹u(¶c¶c¶clñ¶c°ñŒj¹uðv¥…ûƒòdq¶c…ûƒûƒ€�1/}¹u/}¹u4òجqJ4p;H;wqbj¹u(ò–qûƒ4òb¹u0Àuôpò4k¹uk¹uÎvûƒ€�1/}¹ulòëUÑvY
Z€�1
â`¹uht¹uY
Z;óðû)s¶cY
Z
€�1ÿû)sò°´FY
Z€x1¶cЙ!sðv¥ðv¥ó,p¹uðv¥_¶cЙ!s&
ëƒ
üÀ2©§0wÐ2Xîþîþ
p2/(2Й!sò°
$ôZ<+w
œ±0w$ôÎW-wÓ<+w©±Mu6/P
/Í«ºÜP
/¨t
/¤ó
èÖvP
/h2”ÎvЙ!s
$
¸2Øû0pw‘m¹ux
pw/Š¦0wÐ2Xîþîþ/p2
   ¶cÈ2h2Øû0h
õ/è¬0w€2¨ª8+w�°Mu/x2/
”/Dpw¶c…ò°P
//
P
/h2žÂB€å
¬ô5w/
h2¸Š5wpw€
//P
/x2® 
h2õq
eW0ôÐW3whõ4õ5w//p2ê¸*wp2//ê¸*wp2xõ°5w8
/”5wõ°Mu/// g§ g

ÿÿÿÿA heisst ja nun dass es die antwort auf die Anfrage ist ein Challenge zu bekommen...

Jetzt ist mein "neues" Problem, dass ich nicht weiss wie ich die nächsten Query senden soll...

FF FF FF FF 55 CHALLENGE im RAW Format?!

[Flodding]

Okay habs jetzt hinbekommen, dass ich in der RAW data meine Spielernamen sehe...

jetzt hänge ich an dem Punkt die Spielernamen einzeln auszulesen und zu zählen...

hier der php-code der umgewandelt werden muss...

Code:

$Players = Array( );
         $Count   = $this->Buffer->GetByte( );
         
         while( $Count-- > 0 && $this->Buffer->Remaining( ) > 0 )
         {
            $Player[ 'Id' ]    = $this->Buffer->GetByte( ); // PlayerID, is it just always 0?
            $Player[ 'Name' ]  = $this->Buffer->GetString( );
            $Player[ 'Frags' ] = $this->Buffer->GetLong( );
            $Player[ 'Time' ]  = (int)$this->Buffer->GetFloat( );
            $Player[ 'TimeF' ] = GMDate( ( $Player[ 'Time' ] > 3600 ? "H:i:s" : "i:s" ), $Player[ 'Time' ] );
            
            $Players[ ] = $Player;
         }
         
         return $Players;

Ich weiss leider nicht, wie ich in Delphi aus dem Byte was zurück kommt nur die Strings auslese...

[Sir Rufo]

Im Prinzip ist es ganz einfach (wenn man sich die Daten genau anschaut).

Dann fällt auf, dass jeder String mit einem 00 Byte abgeschlossen ist.

Wie ich denn darauf komme?

A2S_INFO

1. Header: byte
2. Payload: string

Code:

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

Schauen wir uns das Datenpaket an, dann finden wir die ersten 4 Bytes mit FF , dann den Header mit 54 und der Rest ist der String ... öh, bis auf das letzte Byte 00 .

Nächstes Beispiel angesehen

Code:

FF FF FF FF 49 02 67 61 6D 65 32 78 73 2E 63 6F     ÿÿÿÿI.game2xs.co
6D 20 43 6F 75 6E 74 65 72 2D 53 74 72 69 6B 65    m Counter-Strike
20 53 6F 75 72 63 65 20 23 31 00 64 65 5F 64 75     Source #1.de_du
73 74 00 63 73 74 72 69 6B 65 00 43 6F 75 6E 74    st.cstrike.Count
65 72 2D 53 74 72 69 6B 65 3A 20 53 6F 75 72 63    er-Strike: Sourc
65 00 F0 00 05 10 04 64 6C 00 00 31 2E 30 2E 30    e......dl..1.0.0
2E 32 32 00                                        .22.

Aha, da sind ja wieder diese 00 Bytes zwischen den einzelnen Strings. Sehr schön.

Um dieses jetzt vernünftig zu lösen, baut man sich eine Klasse, die aus einem Stream diese Daten-Formate auslesen kann (so wie im PHP-Skript).

[Flodding]

Habs jetzt per Zufall irgendwie hinbekommen...

ich lass es nicht mehr in das memo schreiben.
Anstelledessen wandele ich "irgendetwas" von InttoStr und lass es als label anzeigen... anzahl der Spieler funktioniert so...

Aber ich weiss nicht warum

Delphi-Quellcode:

udp1.ReceiveBuf(y,sizeof(y));

players := IntToStr(y[5]);
label7.Caption := players;

Das geschieht gleich nachdem ich das Paket mit dem Challengekey gesendet habe.