Query an Gameserver

[Sir Rufo]

Nein, was es ist ist eindeutig von Valve festgelegt: 16 bit signed integer

Was du daraus interpretierst ist und bleibt deine Sache. Du kannst ja auch die ID als HEX-Wert ausgeben, oder daraus ein Bild erzeugen, oder oder oder.
Es ist einfach eine eindeutige ID und das wichtigste ist, dass beim Austausch mit dem Rest der Welt, die korrekte Bytefolge zu dieser ID wieder zurückgegeben wird.

In der Schnittstelle würde ich das immer so belassen, wie es vorgegeben ist ...

[BadenPower]

Zitat von Sir Rufo:

Nein, was es ist ist eindeutig von Valve festgelegt: 16 bit signed integer

Es ist richtig, dass es Valve so hinterlegt hat.

Ist es aber auch richtig?

Ich wage daran zu zweifeln, da dort die "Steam Application ID" ausgegeben werden soll und diese beginnen bei 0. Und bei diesem Gameserver mit diesem Port, den uns Flodding genannt hat ist die AppId laut Steamdb.info nun mal 33930 und nicht -31606.

[DeddyH]

Das ist doch lediglich eine Frage der Interpretation, 2 Byte bleiben 2 Byte.

[Flodding]

EDIT: Frage nach der Antwort gepostet.

Hallo!

Immernoch die "nicht erreichbar" Problematik.

Mein aktueller Code um die Verbindung aufzubauen:

Delphi-Quellcode:

  form4.udp1.RemoteHost:= '5.45.97.44';
  form4.udp1.RemotePort:= '2301';
  form4.udp1.Open;

  if form4.udp1.Connected then
  begin

  form4.Udp1.SendBuf(request, SizeOf(TInfoRequest));
  form4.Udp1.ReceiveBuf(buffer, SizeOf(buffer));

  form4.udp1.WaitForData(1000);
  if Length(buffer)<1 then
  begin
   form4.udp1.Close;
   exit;
  end;

Wenn der Port korrekt ist, wird 1 Sekunde gewartet und dann der "buffer" gelesen.

Ist der Port aber kein QueryPort:

Delphi-Quellcode:

  form4.udp1.RemoteHost:= '5.45.97.44';
  form4.udp1.RemotePort:= '1111'; // Port geändert
  form4.udp1.Open;

  if form4.udp1.Connected then
  begin

  form4.Udp1.SendBuf(request, SizeOf(TInfoRequest));
  form4.Udp1.ReceiveBuf(buffer, SizeOf(buffer));

  form4.udp1.WaitForData(1000);
  if Length(buffer)<1 then
  begin
   form4.udp1.Close;
   exit;
  end;

Das Programm hängt sich auf.
Ich hab schon nachgelesen und scheinbar hängt es sich nicht wirklich auf, sondern lauscht weiterhin und wartet auf Antwort.

Ich bin auf diese Option gestoßen:
form4.udp1.BlockMode := bmNonBlocking Damit soll das angeblich funktionieren, jedoch bekomme ich dann immer die Meldung vom "OnError"-Event, dass keine Verbindung aufgebaut werden konnte.

Delphi-Quellcode:

procedure TForm4.udp1Error(Sender: TObject; SocketError: Integer);
begin
showmessage('Could not connect. The server you are trying to query might be down');
udp1.Active:= false;
end;

Irgendwelche Ideen?

[Flodding]

Ich habe das OnError Event erstmal deaktiviert, weil der immer ausgelöst wurde wenn WaitForData zu lange gedauert hat.

Habs so ausprobiert jetzt:

Delphi-Quellcode:

  form4.udp1.RemoteHost:= form4.edit1.Text;
  form4.udp1.RemotePort:= form4.edit2.Text;
  form4.udp1.Open;

  if form4.udp1.Connected then
  begin
  form4.Udp1.SendBuf(request, SizeOf(TInfoRequest));
  CheckTime := Now();
  form4.udp1.WaitForData(1000);

  if (SecondsBetween(Now(),CheckTime) <= 1) then
  begin
  form4.Udp1.ReceiveBuf(buffer, SizeOf(buffer));
  i := 0;
  ...
  ...

Bleibt immernoch hängen und wartet nicht nur 1 Sekunde.

[BadenPower]

Zitat von Flodding:

Ich habe das OnError Event erstmal deaktiviert, weil der immer ausgelöst wurde wenn WaitForData zu lange gedauert hat.

Habs so ausprobiert jetzt:

Delphi-Quellcode:

form4.udp1.WaitForData(1000);

  if (SecondsBetween(Now(),CheckTime) <= 1) then
  begin
  ...

Bleibt immernoch hängen und wartet nicht nur 1 Sekunde.

Warum hast Du nicht meine Werte übernommen.

Also

Delphi-Quellcode:

form4.udp1.WaitForData(5000);

  if (SecondsBetween(Now(),CheckTime) <= 1) then
  begin
  ...

Weil wenn der TimeOut nur 1 Sekunde (Wert 1000) sein soll, dann ist der Unterschied zwischen CheckTime und Now() in der If-Anweiung IMMER kleiner oder gleich 1 Sekunde.

[Flodding]

Nachdem das OnError Event deaktiviert wurde, funktionierte dann auch "bmNonBlocking"

Der Workaround funktioniert zwar, aber die Abfragezeit ist mit 5 Sekunden etwas lang.

Delphi-Quellcode:

  form4.udp1.BlockMode := bmNonBlocking;
  form4.udp1.RemoteHost:= form4.edit1.Text;
  form4.udp1.RemotePort:= form4.edit2.Text;
  form4.udp1.Open;

  if form4.udp1.Connected then
  begin
  form4.Udp1.SendBuf(request, SizeOf(TInfoRequest));
  form4.udp1.WaitForData(250);
  form4.Udp1.ReceiveBuf(buffer, SizeOf(buffer));
  i := 0;

Dies funktioniert so ohne extra Zeitüberprüfung. Ob Queryport offen oder eben nicht.

[BUG]

Da es mir Schmerzen verursacht, es immer wieder zu lesen: Es gibt keine UDP-Verbindung! UDP ist ein verbindungsloses Protokoll. Die Verbindung gibt es auf Anwendungsebene ... also das was du gerade programmierst.
Bezüglich des Fehlers: Guck dir mal den Errorcode an ... eventuell steht da nur so WSAEWOULDBLOCK drin.