Indy TCP Write Record

[DArc]

Hey Delphianer!

Ich hätt da mal ne Frage, undzwar versuche ich mein Record
an ein Server zu schicken.

Delphi-Quellcode:

type
  TMyRecord = packed record
    OpCode:   Byte;
    Data : array[0..255] of char;
  end;

So funktioniert das:

Delphi-Quellcode:

procedure TMyClass.ClientOnConnected(Sender: TObject);
var
  LBytes:   TIdBytes;
  LRecord:  TMyRecord;
  Str:      string;
begin

  Str := 'test';

  FillChar(LRecord, SizeOf(LRecord), #0);
  LRecord.OpCode := 5;
  StrPLCopy(LRecord.Data, (Str), Length(LRecord.Data));
  SetLength(LBytes, SizeOf(LRecord));
  Move(Lrecord, LBytes[0], SizeOf(LRecord));

  Client.IOHandler.Write(LBytes);
end;

Aber wenn ich die Zeile
  Str := 'test'; mit

  Str := (Gebe_String_Zurück); ersetze, dann bekomme ich nen Error:

Code:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00465C39 in module 'Project1.exe'. Read of address 00000090'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

Ich frage mich warum das so ist ...

So empfang ich mein Record

Delphi-Quellcode:

procedure TForm1.ServerExecute(AContext: TIdContext);
var
LBuffer : TIdBytes;
LRecordReceived : TMyRecord;
begin
  //SetLength(LBuffer, SizeOf(LRecordReceived));
  with AContext.Connection do
    try
      IOHandler.ReadBytes(LBuffer, SizeOf(LRecordReceived), false);
      Move(LBuffer[0], LRecordReceived, SizeOf(LRecordReceived));
      showMessage(IntToStr(LRecordReceived.OpCode));
      Log.Lines.Add(LRecordReceived.Data);
    finally
      Disconnect;
  end;
end;

Ich hoffe ihr könnt mir da helfen, ich hab echt keine Ahnung warum das nicht geht.

Mfg DArc

Edit: Achja, während dem Debuggen ist der String korrekt gefüllt.
Edit2: Habe mein Delphi wieder angeschmissen und komischerweise gehts jetzt ... echt merkwürdig, vorallem weil ich zuvor ne Stunde versucht hab das zum Laufen zu bringen
Das Schlimmste ist, dass ich nicht mal weiß woran es lag, weil ich ja nichts geändert habe -.-! Naja es geht jetzt! Vielleicht hat ja jemand interesse an dem Code, dann wär
dieser Post doch nicht ganz umsonst xD