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