Chat-Programm

[Die Muhkuh]

Herzlich willkommen in der DP

So ein Chat is ja heute sehr beliebt...

Delphi-Quellcode:

{OnClientRead}
var
  I: Integer;
begin
  begin
    for I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
    begin // Anzahl der Teilnehmer
      with ServerSocket1.Socket.Connections[I] do
      begin // Auswahl des Teilnehmers
        if (Connected) then
          SendText(msg); // Text senden
      end;
    end;
  end;