[Indy] Readbuffer

[SirThornberry]

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!!!!)