Indy - Records versenden

[Neutral General]

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 ^^