TIdTCPServer Byte Packets (Indy10)

[DArc]

Hey Delphianer!

Ich möchte eine Server Anwendung schreiben, die mit einem Game Client kommuniziert.
Das Problem ist, das ich nicht weiß wie ich ganze Packets empfange.

Im moment mach ich das so:

Delphi-Quellcode:

  myByte := AContext.Connection.IOHandler.ReadByte;

  if (myByte = 2) then // 0x02 (Connect)
    begin
      Log.Lines.Add('Received: Packet 0x02');
      // usw.
    end
  else if // usw.

Ich empfange also im moment einzelne Bytes was heißen soll, dass ich dann schauen muss was dieses Paket beinhalten kann und
schließlich auswerten msus wieviel Pakete tatsächlich angekommen sind. So habe ich sehr viele If bzw. Case Abfragen.
Würde das Problem gerne mit nem Array oder 'nem Record lösen, kriege das aber nicht wirklich hin.

Wäre cool wenn ihr mir ein Codeschnippsel posten könntet, am besten vllt noch mit folgenden Daten (damit ich die anderen 66 Packets auswerten kann ):

Code:

Packet ID ++++++ Field Name +++++++ Field Type +++++++ Example +++++++ Notes
0x01 . . . . . . Protocol Version . int . . . . . . .. 19 . . . . . .. The latest version of the protocol is 19
0x01 . . . . . . Username . . . . . string16 . . . . . TkTech . . . .. The name of the user attempting to login, max length of 16
0x01 . . . . . . Not used . . . . . long . . . . . . . 0 . . . . . .. 
0x01 . . . . . . Not used . . . . . int . . . . . . .. 0 . . . . . .. 
0x01 . . . . . . Not used . . . . . byte . . . . . . . 0 . . . . . .. 
0x01 . . . . . . Not used . . . . . byte . . . . . . . 0 . . . . . .. 
0x01 . . . . . . Not used . . . . . unsigned byte. . . 0 . . . . . .. 
0x01 . . . . . . Not used . . . . . unsigned byte. . . 0 . . . . . .. 
--------------------------------------------------------------------------------------------------------------------------
Total Size:    23 bytes + length of strings

und zurückschicken müsste ich:

Code:

Packet ID ++++++ Field Name +++++++ Field Type +++++++ Example +++++++ Notes
0x01 . . . . . . Entity ID . . . . . int . . . . . . .. 1298 . . . . . .. The Players Entity ID
0x01 . . . . . . Not used . . . . . string16 . . . . . (empty string). .. Not used
0x01 . . . . . . Map Seed . . . . . long . . . . . . . 971768181197178410 The server's map seed. Must be sent in respawn packets by the client.
0x01 . . . . . . Server mode . . . . . int . . . . . . .. 0 . . . . . .. . 0 for survival, 1 for creative
0x01 . . . . . . Dimension . . . . . byte . . . . . . . . 0 . . . . . .. . Used for specifying the players dimension -1 for hell, 0 otherwise
0x01 . . . . . . Difficulty . . . . . byte . . . . . . . 1 . . . . . .. . .0 thru 3 for Peaceful, Easy, Normal, Hard
0x01 . . . . . . World height . . . unsigned byte. . . 128 . . . . . .. . .Defaults to 128 
0x01 . . . . . . Max players . . . .unsigned byte. . . 8 . . . . . .. . . .Used by the client to draw the player list
--------------------------------------------------------------------------------------------------------------------------
Total Size:    23 bytes + length of strings

wäre total super wenn ihr mir helfen könntet ... ein winziges beispiel genügt, es müssen nicht alle Daten benutzt werden

Mfg DArc

[Astat]

Zitat von DArc:

Hey Delphianer!
wäre total super wenn ihr mir helfen könntet ... ein winziges beispiel genügt, es müssen nicht alle Daten benutzt werden

Mfg DArc

Code:

type
  TMyPacket = packed record
    int0: integer;
    str16: array[0..15] of char;
    long0: Longint;
    int1: integer;
    nbyte0: byte;
    nbyte1: byte;
    nbyte2: byte;
    nbyte3: byte;
  end;

Done!

[DeddyH]

Sicherheitshalber besser so:
str16: array[0..15] of AnsiChar; Sonst kann es nach einem Delphi-Upgrade zu Problemen kommen.

[DArc]

ich habe jetzt aber ein problem mit dem auslesen des packets ...

Delphi-Quellcode:

procedure TForm1.ServerExecute(AContext: TIdContext);
type
  TMyPacket = packed record
    id: Byte;
    length: Byte;
    username: array[0..15] of AnsiChar;
    {
    int0: integer;
    long0: Longint;
    int1: integer;
    nbyte0: byte;
    nbyte1: byte;
    nbyte2: byte;
    nbyte3: byte;
    }
  end;
var ByteBuffer: TIdBytes;
begin
  AContext.Connection.IOHandler.ReadBytes(ByteBuffer, SizeOf(tmypacket));
  BytesToRaw(ByteBuffer, mypacket, SizeOf(tmypacket));
end;

nehmen wir mal ein ganz leichtes beispiel, also das mit dem kleinsten packet:
ich empfange: id (byte), length of username (byte), username (string)
sample: id=0x02(login packet), length of username=1, weil username=77(Zeichen "M" als ASCII-Code)

ich gebe das ganze mit folgendem code aus:

Delphi-Quellcode:

  Log.Lines.Add(IntToStr(mypacket.id));
  Log.Lines.Add(IntToStr(mypacket.length));

aus dem beispielcode resultiert folgendes:

Code:

2
0
1
0
77
0

heißt: ich konnte zwar die bytes auslesen, jedoch landen die alle im mypacket.id und für length ist nix mehr übrig, geschweige denn für username

achja ehe ich es vergesse:
ich empfange überhaupt nichts, solange ich in dieser zeile SizeOf(TMyPacket) stehen habe ...

Delphi-Quellcode:

// ...
AContext.Connection.IOHandler.ReadBytes(ByteBuffer, SizeOf(tmypacket));
// ...

bei mir steht ne zahl drin (irrelevant welche, hauptsache: zahl<=byte, im prinzip logisch da ich immer nur ein byte empfange), kurz:

Delphi-Quellcode:

// ...
AContext.Connection.IOHandler.ReadBytes(ByteBuffer, SizeOf(byte));
// ...

meine fragen noch kurz zusammengefasst:
warum kann ich mein Record nicht vollständig füllen?
warum empfange ich keine werte bei SizeOf(TMyPacket)?

Mfg DArc

[DArc]

niemand ne idee?

[FredlFesl]

Was mich ein wenig stutzig macht, ist diese Zeile

Zitat von DArc:

Code:

Total Size:    23 bytes + [u]length of strings[/u]

Ist das nun ein Record mit einer festen Größe oder nicht?

Weiterhin solltest Du dir die Deklaration genauer anschauen, ich seh da nämlich nichts von 'Byte' bei der 'ID'...

[DArc]

danke erst mal für die antwort, schön zu sehen, dass es leute gibt die früh morgens antworten
nehmen wir das beispiel, welches ich im letzten post behandelt habe:
http://mc.kev009.com/Protocol#Handshake_.280x02.29

Weiter oben steht die Definition der "Packets"

Code:

All packets begin with a single "Packet ID" byte. Listed packet size includes this byte. Packets are either "server to client", "client to server", or both. If not specified, assume that the packet can be sent both ways. There is no "length" field; for variable length packets, you must parse to the end to determine the length.

Die Länge des Packets, welches geschickt wird:

Code:

Total Size:    3 bytes + length of strings

soll (glaube ich mal) heißen, dass ich min. 3 bytes zugeschickt bekomme (spekuliere auf benutzername min. 1 zeichen):
1. byte: packet id
2. byte: länge der zeichenkette (länge des benutzernamens)
3. byte: das zeichen selbst

habe ich zB den Namen DArc, empfange ich folgendes (3 Bytes + 3 weitere):
1. byte: packet id = 0x02 => 2
2. byte: länge meines namens = 4
3. byte: das zeichen "D" im ASCII Code
4. byte: das zeichen "A"
5. "r"
6. "c"

zum hinweis auf nicht vorhandene deklaration, ich hab doch in meinem Record folgendes:

Delphi-Quellcode:

  TMyPacket = packed record
    id: Byte;
    length: Byte;
    username: array[0..15] of AnsiChar; // bzw. of Byte
  end;

€dit: wenn ich etwas auf der Protocol Dokumentationsseite falsch entnommen, interpretiert oder überlesen habe, so
bitte ich um verständnis und um korrektur

[DArc]

kommt niemand drauf?

[Klaus01]

Code:

All packets begin with a single "Packet ID" byte. Listed packet size includes this byte. Packets are either "server to client", "client to server", or both. If not specified, assume that the packet can be sent both ways. There is no "length" field; for variable length packets, you must parse to the end to determine the length.

Wenn ich das richtig interpretiere:

Paketaufbau:
Id - Byte
Size - Byte
Data - Array of char

Size beinhaltet die Gesamtlänge des Paketes.
Wenn DArc übertragen wird sollte Size dann 6 sein.

Grüße
Klaus

[DArc]

Ich denke so weit war ich schon, siehe eine antwort früher ...

Zitat von DArc:

habe ich zB den Namen DArc, empfange ich folgendes (3 Bytes + 3 weitere):
1. byte: packet id = 0x02 => 2
2. byte: länge meines namens = 4
3. byte: das zeichen "D" im ASCII Code
4. byte: das zeichen "A"
5. "r"
6. "c"

Delphi-Quellcode:

  TMyPacket = packed record
    id: Byte;
    length: Byte;
    username: array[0..15] of AnsiChar; // bzw. of Byte
  end;

mein problem ist immer noch wie beschrieben ...