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