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