TServer/Client -Socket Datenaustausch

[PetziBaer]

Hallo,

bevor mir jemand den Kopf abreißt, leider bin ich im Netz nicht fündig über eine passende Antwort auf meine Frage geworden.
Ansätze konnte ich mir zusammensuchen aber letzendlich fehtl mir noch etwas.

Zu meinem eigentlichen Vorhaben:

Ich schreibe zur Zeit eine Chat-Applikation mit folgenden Features:

• Login
• Logout
• Message an alle
• Message privat
• (Datentransfer)

Bisher können User:

• sich anmelden
• sich abmelden
• Nachricht an alle schicken

Der Server listet in einer TListBox alle User mit ID und Namen auf.
Diese Date, bzw. nur die Namen, sollen an die Clienten übermittelt werden, damit diese ebenfalls eine ListBox mit den Usern haben.

Messages schreibe ich momentan wie folgt:

Code:

type
  TChatMessage = packed Record
    Text : String[255];
    User : String[255];
    Command : Integer;
  End;


//SENDEN

procedure TForm2.cmd_SendClick(Sender: TObject);
begin
  chatMessage.Text := txt_Send.Text;
  chatMessage.Command := 2;
  txt_Send.Text := '';

  Client.Socket.SendBuf(chatMessage, SizeOf(chatMessage));
end;


//EMPFANGEN

Socket.ReceiveBuf(chatMessage, SizeOf(chatMessage));

  case TCommandEnum(chatMessage.Command) of

    MsgAll:
      begin
        mem_Log.Lines.Add(chatMessage.User + ': ' + chatMessage.Text);
        ...

Jetzt bin ich an dem Punkt angekommen, wo ich die (Daten der) ListBox senden will. Allerdings weiß ich nicht wie ich das machen kann. Das Senden und Empfangen eines Steuerelements wird wohl auch über SendBuf funktionieren. Nur muss ich unterscheiden ob gerade ein Text oder die ListBox-Daten gesendet werden.

Ich hoffe das Problem habe ich verständlich geschildert.

Ich möchte dies gern mit TServerSocket bzw TClientSocket fertig machen bevor hier wieder von INDY oder ähnlichen die Rede ist. Mag sein das es dort fertige Methoden gibt oder so, aber ich will vorerst mit den ServerSocket arbeiten.

Mfg