Zitat von
generic:
ich hab das hier mal gerade überflogen, aber ein möglicher fehler kann sein das bei deinem code hier eine klasse ist und kein record.
dann weiter ist die msg ein dynamischer string (es sei den du hast dem compiler umgeschaltet.
Delphi-Quellcode:
TChatMessage = class
From: ShortString;
Msg: String;
end;
in
Delphi-Quellcode:
TChatMessage = record
From: ShortString;
Msg: ShortString;
end;
Sizeof(Integer)
ist auch nicht so klug weil du die groesse des records ermitteln musst.
also lieber Sizeof(TChatMessage)
--
ups das war senden - schau dir die
indy demos an dort ist ein chatserver mit records drin.
records zu versenden ist aber nicht sonderlich klug - weil die längen fest sind.
die pakete die du schickt ob "hallo" oder "das ist ein langer text" sind gleich gross und belasten unnötig die leitung/traffic
Ehm ich habe mich oben nur verschrieben. TChatMessage ist bei mir ein Record. Und ich habe mittlerweile auch Sizeof(TChatMessage) geschrieben aber es klappt noch nicht:
Client:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Msg : TChatMessage;
begin
DSAClient.Connect();
Msg.From := Edit1.Text;
DSAClient.WriteBuffer(Msg,Sizeof(TChatMessage),true);
end;
Server:
Delphi-Quellcode:
procedure TForm1.DSAExecute(AThread: TIdPeerThread);
begin
AThread.Connection.ReadBuffer(Msg,Sizeof(TChatMessage));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := Msg.From;
end;
Ich muss nur sagen das mir was komisches aufgefallen ist. Wenn ich mit diesem Quellcode dem Server was sende (Egal was im Edit beim Client steht) dann steht nach dem ButtonClick als Caption 'TCustomControl'.
Das verwirrt mich irgendwie ^^