Delphi 7 chat Nachrichten-trennung

[TDR]

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.

[Sir Rufo]

Du schickst die Nachricht ja schon mit einem & Zeichen an die Clients um denen mitzuteilen, das ist eine Client-Info.

Ist also bei dir das Zeichen für BeginMessage. Häng jetzt noch ein Zeichen dran für EndMessage.
Das kannst du dann auf der Client-Seite auswerten.

[Bummi]

hast Du den äußeren und den inneren Interator vertauscht?
Erst Liste generieren, dann Liste an aller versenden.

[TDR]

Zitat von Sir Rufo:

Du schickst die Nachricht ja schon mit einem & Zeichen an die Clients um denen mitzuteilen, das ist eine Client-Info.

Ist also bei dir das Zeichen für BeginMessage. Häng jetzt noch ein Zeichen dran für EndMessage.
Das kannst du dann auf der Client-Seite auswerten.

Zitat von Bummi:

hast Du den äußeren und den inneren Interator vertauscht?
Erst Liste generieren, dann Liste an aller versenden.

OK erstmal danke für die Antworten

ich denke im prinziep kann man aus euren antworten ja was machen:

Delphi-Quellcode:

for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
  begin
Message := Message + '&' + ServerSocket1.Socket.Connections[i].RemoteAddress); + ';'
   end;
for ii := 0 to ServerSocket1.Socket.ActiveConnections-1 do
      ServerSocket1.Socket.Connections[ii].SendText(Message);

[TDR]

Allerdings

Wie empfange ich das jetzt?

besser gefragt: Wie teile ich das?

[TDR]

Wurde so gelöst !!!

[TDR]

Beendet