Hallo liebe Delphiuser,
Ich habe folgendes Problem:
Mein Chat-Server(socket) soll allen Clients mitteilen wer mit dem Server verbunden ist.
Dies löse ich folgendermaßen:
Server:
Delphi-Quellcode:
for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
begin
for ii := 0 to ServerSocket1.Socket.ActiveConnections-1 do
ServerSocket1.Socket.Connections[ii].SendText('&'+ ServerSocket1.Socket.Connections[i].RemoteAddress);
end;
Client:
Delphi-Quellcode:
procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
SMessage := Socket.ReceiveText;
if '&' = SMessage[1] Then
begin
Delete(SMessage, 1, 1);
Listbox1.Items.Add(SMessage);
exit;
end;
Mein Problem das klappt bei einem Wunderbar.
Sind es aber mehre Clients kommt:
127.0.0.1&127.0.0.1 in der Listbox-spalte
Ich möchte diese aber einzeln aufgelistet haben.
Was kann ich tun.
Vielen dank schon mal im Vorraus.