обновление в блоге - Создание многопользовательского чата

[Shouldercannon]

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

Поиск простой. Вот так будет для сервера:

For j2 := 1 to ServerSocket.Socket.ActiveConnections do
  Begin
    If UserMas[j2].Name = BannedUnbannedNick then
      Begin
        // какие-то процедуры
        ...

        // IP пользователя
        BannedIP := ServerSocket.Socket.Connections[j2 - 1].RemoteAddress;
        // отправка команды на бан
        ServerSocket.Socket.Connections[j2 - 1].SendText('21');
      end;
  end;

Проверяйте.

Работает отлично.

1. Нашёл косяк в системе бана. Если в чате два Васи то при бане второго цикл забанит первого, не того кого нужно. Где нужно запретить вход юзеру с уже имеющимся ников в чате?

2.

procedure TForm1.Sendprivatemessag1Click(Sender: TObject);
begin
  // Если список пользователей не пустой и выделена запись
  if (UserListView.Items.Count > 0) and (UserListView.SelCount > 0) then
    begin
      // Запишем в поле "Кому" приватного пользователя
      addressee := UserListView.Selected.Caption;
    end;

  RVEMessage.InsertText(UserListView.Items[UserListView.ItemIndex].Caption + ' (приват) ');
  RVEMessage.Reformat;
  RVEMessage.SetFocus;
end;

Запутался. Для address UserListView.Selected.Caption, а для RVEMessage.InsertText UserListView.Items[UserListView.ItemIndex].Caption. UserListView.Selected.Caption или UserListView.Items[UserListView.ItemIndex].Caption использовать?
Выбор через PopupMenu производится.

3. ServerSocket.Socket.Connections[j2 - 1].RemoteAddress почему - 1?

[Beermonza]

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

1. Нашёл косяк в системе бана. Если в чате два Васи то при бане второго цикл забанит первого, не того кого нужно. Где нужно запретить вход юзеру с уже имеющимся ников в чате?

При авторизации, процедуре таймера в case 1: запишите проверку на совпадение ника, если сработает, то выкидывайте пользователя.

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

2. Запутался. Для address UserListView.Selected.Caption, а для RVEMessage.InsertText UserListView.Items[UserListView.ItemIndex].Caption. UserListView.Selected.Caption или UserListView.Items[UserListView.ItemIndex].Caption использовать?
Выбор через PopupMenu производится.

Понятия не имею что есть RVEMessage.

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

3. ServerSocket.Socket.Connections[j2 - 1].RemoteAddress почему - 1?

Цикл начинается с 1 до ActiveConnections, массив хранит 1-го клиента в 1-ой ячейке, а номер канала начинается в системе от 0-я, ...отсюда такая арифметика.

[Shouldercannon]

1.

Цитата:Сообщение от Shouldercannon
2. Запутался. Для address UserListView.Selected.Caption, а для RVEMessage.InsertText UserListView.Items[UserListView.ItemIndex].Caption. UserListView.Selected.Caption или UserListView.Items[UserListView.ItemIndex].Caption использовать?
Выбор через PopupMenu производится.

Понятия не имею что есть RVEMessage.

Не обращайте внимания на RVEMessage это RichView. Загвостка в том, что вот здесь

address := UserListView.Selected.Caption;

а здесь

RVEMessage.InsertText UserListView.Items[UserListView.ItemIndex].Caption;

и не понятно, толи в обоих случаях использовать UserListView.Selected.Caption или UserListView.Items[UserListView.ItemIndex].Caption. разница в способах получения Caption существенная?

2.

Сообщение от Shouldercannon
1. Нашёл косяк в системе бана. Если в чате два Васи то при бане второго цикл забанит первого, не того кого нужно. Где нужно запретить вход юзеру с уже имеющимся ников в чате?

При авторизации, процедуре таймера в case 1: запишите проверку на совпадение ника, если сработает, то выкидывайте пользователя.

Так буду искать

// Поиск одиноковых ников
for i := 0 to UserListView.Items.Count - 1 do
  begin
    if Pos(Что сверять?, UserListView.Items.Item[i].Caption) <> 0 then
      ServerSocket.Socket.Connections[i - 1].Close;
  end;

3. Данный способ сможет определить IP юзера забаненного удалённым администратором?

For j2 := 1 to ServerSocket.Socket.ActiveConnections do
  Begin
    If UserMas[j2].Name = BannedUnbannedNick then
      Begin
        // какие-то процедуры
        ...

        // IP пользователя
        BannedIP := ServerSocket.Socket.Connections[j2 - 1].RemoteAddress;
        // отправка команды на бан
        ServerSocket.Socket.Connections[j2 - 1].SendText('21');
      end;
  end;

P.S. Думаю что да, просто нужно подтверждение.

[Beermonza]

Давайте попытаемся понять, что значит этот код:

 RVEMessage.InsertText(UserListView.Items[UserListView.ItemIndex].Caption + ' (приват) ');

...почему UserListView.ItemIndex? ...когда первый в списке - сервер, а он канала не имеет, 1-ый клиент на индексе 1, а канал сокета у него 0-ой. Следовательно:

 RVEMessage.InsertText(UserListView.Items[UserListView.ItemIndex - 1].Caption + ' (приват) ');

ItemIndex - та запись, что стоит выделенной, можно считывать этот индекс, а можно и задавать его, выделение будет перескакивать в указанный индекс.

Selected - указывает на активность выделения записи, т.е. запись может быть не выделена но последний клик был по ней, она в рамочке, и ItemIndex будет указывать на нее. Selected позволяет точно знать, что это именно та запись, активная, по которой производился клик.

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

Так буду искать

// Поиск одиноковых ников
for i := 0 to UserListView.Items.Count - 1 do
  begin
    if Pos(Что сверять?, UserListView.Items.Item[i].Caption) <> 0 then
      ServerSocket.Socket.Connections[i - 1].Close;
  end;

Нужно ведь искать совпадение ника целиком, так? ...Миша1, Миша1245 - это разные ники? Вавторизации:

/ код приема ника клиента
                1: Begin
// запишем в массив полученный ник
                     UserMas[i].Name:=Copy(text,2,len);
// отметим, что пользователь записан в список
                     UserMas[i].Rec:=True;
// отметим авторизацию счетчиком
                     Inc(Autores);
                   end;

...ник получается, и прежде чем записывать и авторизировать, нужно проверить весь массив пользователей UserMas на предмет совпадения Copy(text,2,len) и UserMas[j3].Name если найдено совпадение, то закрыть канал, если нет, то продолжить авторизацию.

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

3. Данный способ сможет определить IP юзера забаненного удалённым администратором?

Сервер будет знать все! ...что написано, то и определит, запретов для него не существует, он хозяин и властелин чата.

[Shouldercannon]

Нужно ведь искать совпадение ника целиком, так? ...Миша1, Миша1245 - это разные ники? Вавторизации:

Код:

/ код приема ника клиента
1: Begin
// запишем в массив полученный ник
UserMas[i].Name:=Copy(text,2,len);
// отметим, что пользователь записан в список
UserMas[i].Rec:=True;
// отметим авторизацию счетчиком
Inc(Autores);
end;

...ник получается, и прежде чем записывать и авторизировать, нужно проверить весь массив пользователей UserMas на предмет совпадения Copy(text,2,len) и UserMas[j3].Name если найдено совпадение, то закрыть канал, если нет, то продолжить авторизацию.

Не продумал. Если есть Миша 1245, то Миша 1 сервер не пустит, так как совпадение по Миша 1. Тогда система бесполезная.

[Beermonza]

Если есть "Миша1245", то "Миша1" сервер пропустит, т.к. Copy(text,2,len) и UserMas[j3].Name будут проверяться на полное совпадение символов, включая их количество. Эта система правильная, ...поскольку во многих никах есть часть совпадающих подряд символов, не выкидывать же теперь "Миша" потому, что есть уже "Мишаня", совпадение больше 50% символов.

[Shouldercannon]

1. Так как выбор ника ведётся через PopupMenu, что лучше использовать для внесения выбранного в addressee, поле ввода текста или ещё куда-либо

 RVEMessage.InsertText(UserListView.Items[UserListView.ItemIndex - 1].Caption);

или

UserListView.Selected.Caption;

?

2. Реализация запрета входа юзеров с одинаковым ником.

              // Тип идентификации пользователей
              0: begin
                // Определение комманд
                case com2 of
                // Код приема ника клиента
                0: begin
                  // Проверка на наличие одинаковых ников
                  for i4 := 1 to ServerSocket.Socket.ActiveConnections do
                    begin
                      if UserMas[i4].Name = Copy(text, 3, len) then
                        ServerSocket.Socket.Connections[i4 - 1].Close;
                    end;

                  // Запишем в массив полученный ник
                  UserMas[i].Name := Copy(text, 3, len);

                  // Начало опасного блока, могущего вызывать слипание команд
                  // Обработка забаненых IP
                  for c := 0 to 255 do
                    begin
                      if BanIPMas[c] = ServerSocket.Socket.Connections[i - 1].RemoteAddress then
                        ServerSocket.Socket.Connections[i - 1].SendText('21');
                    end;
                  // Конец опасного блока

                  // Отметим, что пользователь записан в список
                  UserMas[i].Rec := True;
                  // Отметим авторизацию счетчиком
                  Inc(Autores);

                  // Обработка админов
                  for c := 0 to 255 do
                    begin
                      if AdminIPMas[c] = ServerSocket.Socket.Connections[i - 1].RemoteAddress then
                        UserMas[i].Admin := True;
                    end;
                end;

                end;
              end;

Получилось очень весело. Запустил клиент и зашёл в чат, далее запустил вторую копию приложения и зашёл в чат и тут началось интересное. При заходе второго клиента был закрыт канал первого у первого естественного сработал reconnect, после чего он попал в чат, а второй был выгнан. В общем один заходит другой выходит после reconnect-а .

3. Вижу в местах где применяется UserMas[k + 1].Name и прочие с UserMas[... + 1].Name есть Breack. Сброс должен приеняться только с данным кодом? А то и здесь сбросы делал (Code.txt)

[Beermonza]

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

1. Так как выбор ника ведётся через PopupMenu, что лучше использовать для внесения выбранного в addressee, поле ввода текста или ещё куда-либо

RVEMessage.InsertText(UserListView.Items[UserListView.ItemIndex - 1].Caption);

или

UserListView.Selected.Caption;

?

Если при вызове меню активное выделение (темным цветом) с записи пропадает, то применяйте первый код, если нет, то второй.

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

2. Реализация запрета входа юзеров с одинаковым ником.

...
// Проверка на наличие одинаковых ников
for i4 := 1 to ServerSocket.Socket.ActiveConnections do
  begin
    if UserMas[i4].Name = Copy(text, 3, len) then ServerSocket.Socket.Connections[i4 - 1].Close;
  end;
...

И снова невнимательность. Нужно четко знать чего хочешь. Поиск ведется в собственном цикле по-i4, ищется совпадение, оно допустим нашлось, ...так какого клиента нужно выкинуть? ...того, кого нашли по-i4 (это пользователь, что уже в чате) или того, кто у нас только вошел и пытается авторизироваться с недопустимым ником по-i ? почему ServerSocket.Socket.Connections[i4 - 1].Close;, когда нарушитель - i, его и выкидываем.
Следует еще поменять местами код на прием ника и проверку на совпадение:

...
// Запишем в массив полученный ник
UserMas[i].Name := Copy(text, 3, len);
// Проверка на наличие одинаковых ников
for i4 := 1 to ServerSocket.Socket.ActiveConnections do
  begin
    if UserMas[i4].Name = UserMas[i].Name then ServerSocket.Socket.Connections[i - 1].Close;
  end;
...

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

3. Вижу в местах где применяется UserMas[k + 1].Name и прочие с UserMas[... + 1].Name есть Breack. Сброс должен приеняться только с данным кодом?

Break - останавливает цикл, в теле которого он находится, оставляя счетчик на текущей позиции и переходя за цикл на следующий код, ...это как с GoTo, но для частного случая.
Вот счетчик по-t, он считает от 0 до 10. Допустим в теле цикла условие: если t = 5, то Break, что произойдет? ...программа перейдет к следующему коду за циклом, а t останется 5. Где это можно применить? ...при поиске позиции, на которой срабатывает условие. Если цикл от 0 до 1000000 а условие сработает на 5, нужно ли циклу считать дальше? ...не нужно, это расход ресурсов, ...посему применяется сброс, чтобы сразу по срабатыванию условия цикл переставал считать. Это частный случай, когда ищется всего одно совпадение, и остальные на решение уже не влияют. А если нужно считать все совпадения, тогда сброса не требуется.

[Shouldercannon]

Теперь вообще в чат не пускает при условии что в нём только сервер

             // Тип идентификации пользователей
              0: begin
                // Определение комманд
                case com2 of
                // Код приема ника клиента
                0: begin
                  // Запишем в массив полученный ник
                  UserMas[i].Name := Copy(text, 3, len);

                  // Проверка на наличие одинаковых ников
                  for i4 := 1 to ServerSocket.Socket.ActiveConnections do
                    begin
                      if UserMas[i4].Name = UserMas[i].Name then
                        ServerSocket.Socket.Connections[i - 1].Close;
                    end;

                  // Начало опасного блока, могущего вызывать слипание команд
                  // Обработка забаненых IP
                  for c := 0 to 255 do
                    begin
                      if BanIPMas[c] = ServerSocket.Socket.Connections[i - 1].RemoteAddress then
                        ServerSocket.Socket.Connections[i - 1].SendText('21');
                    end;
                  // Конец опасного блока

                  // Отметим, что пользователь записан в список
                  UserMas[i].Rec := True;
                  // Отметим авторизацию счетчиком
                  Inc(Autores);

                  // Обработка админов
                  for c := 0 to 255 do
                    begin
                      if AdminIPMas[c] = ServerSocket.Socket.Connections[i - 1].RemoteAddress then
                        UserMas[i].Admin := True;
                    end;
                end;

                end;
              end;

[Beermonza]

Проверка на самого себя тоже должна быть:

// Проверка на наличие одинаковых ников
For i4 := 1 to ServerSocket.Socket.ActiveConnections do
  Begin
    If (UserMas[i4].Name = UserMas[i].Name) And (i4 <> i) then
      Begin
        ServerSocket.Socket.Connections[i - 1].Close;
        Break;
      end;
  end;