Record via Write- und Readbuffer

[Kalle_XXXX]

Ähm....Ja.
Also so sieht dass ganze jetzt bei mir aus. Kann mir vielleicht jemand erklären, was genau ich noch zu machen hab?

Client

Code:

procedure TFr_MainChat.SpeedButton2Click(Sender: TObject);
var
   BuffSize :Integer;
begin
//Versenden
  if Komponents.IdTCPClient1.Connected = true then
  begin
     ShowMessage('True');
     Configs.Nachricht :=  nachricht_edit.Text;
     BuffSize := SizeOf(Configs);
    Komponents.IdTCPClient1.WriteBuffer(Configs,Sizeof(BuffSize));
  end
  else
  begin
    ShowMessage('Es besteht leider keine Verbindung zum Server');
  end;
end;

Server

Code:

procedure TKomponents.IdTCPServer1Execute(AThread: TIdPeerThread);
var
   CB     :String;
   BuffSize :Integer;
begin
         Fr_MainServer.Memo1.lines.add('Servername vor Execute:... '+Configs.Servername);
         BuffSize :=  SizeOf(Configs);
         Fr_MainServer.Memo1.lines.add('RecBuffSize:... '+IntToStr(BuffSize));
         Athread.Connection.ReadBuffer(Configs, SizeOf(BuffSize));
         Fr_MainServer.Memo1.lines.add('Servername nach Execute:... '+Configs.Servername);
end;

Plies Höäülp