Комнаты для чата

[mitiay]

Ребят помогите сделать комнаты для чата(выдавались с сервера) и отправку личных сообщений.Ничего подобного не нашел!На данный момент есть только вот этот кусок )))

Клиент

var
  Form1: TForm1;
  Name: String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientSocket1.Socket.SendText(Name + ': ' + Edit1.Text);
  Edit1.Clear;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
  Mas: String;
begin
  Mas:= Socket.ReceiveText;
  Memo1.Lines.Add(Mas);
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 13 then
  begin
    Button1.Click;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Name:= InputBox('Введите имя пользователя','Логин: ','Пользователь1');
  ClientSocket1.Port:= 28015;
  ClientSocket1.Host:= '192.168.1.38';
  ClientSocket1.Active:= True;
end;

Сервер

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ServerSocket1.Port:= 28015;
  ServerSocket1.Active:= True;
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('Connected: ' + Socket.RemoteAddress + ';');
end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('Disconnected: ' + Socket.RemoteAddress + ';');
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  I: Integer;
  Mas: String;
begin
  Mas:= Socket.ReceiveText;
  Memo1.Lines.Add('Say ' + Mas + ';');
  for I := 0 to ServerSocket1.Socket.ActiveConnections -1 do
  begin
    ServerSocket1.Socket.Connections[I].SendText(Mas);
  end;
end;

[Stilet]

Ну а чем сей код тебя не устроил?

[mitiay]

Сообщение от Stilet

Ну а чем сей код тебя не устроил?

Код нормальный,только нужно чтоб бы были комнаты чата допустим "общая" "приватная"

[Stilet]

А у тебя уже сделан список чатлан?
Программа твоя работает со списком подключенных или только точка-точка?

[mitiay]

Сообщение от Stilet

А у тебя уже сделан список чатлан?
Программа твоя работает со списком подключенных или только точка-точка?

Да работает со списком пользователей(кто в чате)
begin
Memo1.Lines.Add('Connected: ' + Socket.RemoteAddress + ';');
end;

[mitiay]

С отправкой личный сообщений разобрался а вот с комнатами нет (((

[mitiay]

Голову уже поломал!Для каждой комнаты запускать отдельный сервер думаю глупо... То есть нужно както разбить один сервер на несколько как я понимаю... Ребят подскажите!!!

[mitiay]

Удалите топик