packed record in Array of Byte umwandeln

[Mossi]

Hallo zusammen,

ich hab einen Record-Struktur, die ich als ByteArray umwandeln will, um sie dann mit IdTCPClient zu übertragen. Grundsätzlich sollte das ja auch kein Problem sein, aber aus irgendeinem Grund gehen mir ein paar Bytes verloren.

Die Struktur sieht folgendermaßen aus:

Delphi-Quellcode:

THeader = packed record
  signature: array[0..7] of Byte;
  messageType: TMessageType; // 1 Byte
  messageLength: integer;
end;
TMessage = packed record
  header: THeader;
  message: array of Byte;
end;

bei 'signature' und 'message' handelt es sich eigentlich um strings, die ich aber mit CopyMemory entsprechend umgewandelt habe. Der Inhalt dieser Arrays passt auch, wie ich gesehen habe.

So. Jetzt muss ich diesen Record (nachricht: TMessage) aber per Tcp versenden.
client.WriteBuffer(nachricht, sizeof(nachricht), true) Am Server kommt der Header auch vollständig und lesbar an. Die message allerdings sollte eigentlich den String 'connected' enthalten. Es kommt aber nur 4 nichts sagende Bytes an.
Im Delphi-Client stehen in diesem ByteArray aber die richtigen Werte.

Aufgefallen ist mir auch noch folgendes und da liegt wohl auch das Problem:

Delphi-Quellcode:

sizeof(nachricht.message); // -> 4
length(nachricht.message); // -> 9

Was ist jetzt hier schief gelaufen und wie macht man das richtig?