TIdTCPServer Byte Packets (Indy10)

[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?

[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 ...