der Fehler liegt hier
Delphi-Quellcode:
TMessageRecord = Record
Befehl : string; // <== Hier
inhalt : string; // <== und hier
Farbe : Tcolor;
x1, y1, x2, y2 : integer;
end;
ein String ist nix anderes als ein Pointer
wenn du also sizeof(String) aufrufst bekommst du 4 zurück (so groß ist ein Pointer)
das heißt: du sendest nicht wirklich den String sondern nur Speicheradressen. Du musst dir also vorher das ganze erst zusammenbauen bevor du es mit writebuffer sendest.
Das ganze muss also UNGEFÄHR so aussehen (ich poste nicht den genauen source damit du bischen mitdenken musst)
Delphi-Quellcode:
procedure TClients.Broadcast (MessageRecord: TMessageRecord);
var i: Byte;
LPos: Integer;
Tmpstring: String;
begin
for i := 1 to 32 do
begin
try
if ClArray[i] <> nil then
begin
TmpString := Messagerecord.Befehl + Messagerecord.Inhalt;
Lpos := length(TmpString) + 1;
setlength(TmpString, length(TmpString) + sizeof(TColor) + 4 * Sizeof(Integer));
move(Messagerecord.Farbe, TmpString[LPos], sizeof(TColor) + 4 * Sizeof(Integer));
ClArray[i].Connection.WriteBuffer(MessageRecord, length(TmpString), True);
end;
except
end;
end;
end;
Das Problem ist jetzt allerdings das du auf der anderen Seite nicht weiß wie groß der String "Befehl" ist. Somit musst du diese Information noch mit senden.
(Du solltest dein Source in zukunft mal besser formatieren!!!!)