Indy - Records versenden

[Neutral General]

Hi,

Also ich will mit meinem Client ein ganzen Record an den Server schicken.
Ich versuche das im Moment so. Aber das geht noch nicht wirklich

TChatMessage:

Delphi-Quellcode:

 TChatMessage = class  // Die Alpha Version der Klasse^^
   From: ShortString;
   Msg: String;
  end;

Client:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 DSAClient.Port := 1354; // DSAClient = IDTCPClient
 DSAClient.Host := '192.168.2.102'; // Zu testzwecken meine eigene IP...
end;

procedure TForm1.Button1Click(Sender: TObject);
var Msg : TChatMessage;
begin
 DSAClient.Connect();  
 Msg.From := Edit1.Text;
 DSAClient.WriteBuffer(Msg,Sizeof(Integer));
end;

Server:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 DSA.Active := true; // DSA = IDTCPServer
 DSA.DefaultPort := 1354;
end;

procedure TForm1.DSAExecute(AThread: TIdPeerThread);
var Msg: TChatMessage;
begin
  AThread.Connection.ReadBuffer(Msg,Sizeof(Integer));
  ShowMessage(Msg.From);
end;

Grüße
Michael