Indy - Readbuffer/Writebuffer ?

[bebo91]

Hallo zusammen,

ich versuche mich auch gerade an einer ähnlichen Aufgabenstellung, allerdings funktioniert das bei mir noch nicht.
Der Record sieht wie folgt aus:

Code:

TTEst= record
  name: String;
  alter: Integer;
end;

Das Senden:

Code:

var
  lTest: TTEst;
begin
  lTest.name := 'bla bla';
  lTest.alter := 101;
  buf := RawToBytes(lTest, SizeOf(TTest));
  AContext.Connection.IOHandler.Write(buf);
end

Das Empfangen:

Code:

var
  lTest1: TTest;
begin
  IdTCPClient1.IOHandler.ReadBytes(buf, SizeOf(TTest), false);
  BytesToRaw(buf, lTest1, SizeOf(TTest));
end

Statt meinen überagenen Daten erhalte ich allerdings folgendes:

Code:

name:   #0#4#$09C5#0#0#0'ù'#0#$14''' '#0#4#$09C6#0#0#૨... (Ist ca. 1 Seite lang)
alter:   101 (das stimmt)

Hat jemand eine Idee, was ich hier falsch mache?

Viele Grüße

bebo91