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

[Shouldercannon]

Не знаю у меня всё быстро происходит. Навожу курсор на нужную запись и тутже открывается меню в котором сразу выбираю действие.

[Beermonza]

Для интереса сделайте Label в сторонке и выведите в него UserListView.Selected.Index в событии на выбор пункта меню, будет ли совпадать с тем на котором вызывается меню.

[Shouldercannon]

Так

procedure TForm1.UserListViewSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  Label1.Caption := PChar(UserListView.Selected.Index);
end;

ошибки сыпятся

[Beermonza]

Неправильное преобразование, Caption просит String тип:

Label1.Caption := IntToStr(UserListView.Selected.Index);

[Shouldercannon]

Access violation at address и тому подобное, короче при выборе кого-либо из списка одни вот такие ошибки валятся. После ошибки Server = 0, первый юзер = 1, снова после ошибки второй = 2, эти цифры выводятся в Caption Label.
P.S. После перезапуска сервера после клика по первому юзеру всё норально, а дальше валятся ошибки.

[Beermonza]

Ищите по коду разные алгоритмы, от старых версий и новых, ...возможно просто не замечаете.
Можно код на пункт меню посмотреть?

[Shouldercannon]

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

Ищите по коду разные алгоритмы, от старых версий и новых, ...возможно просто не замечаете.
Можно код на пункт меню посмотреть?

Если вы имели ввиду под этим пунты выпадающего меню при выборе юзера.

Результаты эксеперементов

В списке были
Server - 127.0.0.1
Lennox - 77.234.224.154
Shouldercannon - 77.234.194.247

Далее выводил в ShowMessage IP выделенного юзера из списка
Server - List index out of bounds (-1) (не удивительно, что такая ошибка ведь ServerSocket.Socket.Connections[UserListView.Selected.Index - 1].RemoteAddress)
Lennox - 77.234.194.247
Shouldercannon - 77.234.224.154 (поменялись местами)

В данном случае IP правельно определяется если первым подключится Lennox, вторым Shouldercannon, если наоборот результат выше.

С ServerSocket.Socket.Connections[UserListView.Selected.Index].RemoteAddress не лучше
Server - 77.234.224.154
Lennox - 77.234.194.247
Shouldercannon - List index out of bounds (2)

Вот так индекс определяется верно без ошибок, но в событии UserListViewSelectItem просто жесть

procedure TForm1.est1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(UserListView.Selected.Index));
end;

Может и здесь цикл применить, подобный данному

                      // Создаем цикл поиска забаненого пользователя
                      for i3 := 0 to ServerSocket.Socket.ActiveConnections - 1 do
                        begin
                          // Если пользователь найден
                          if UserMas[i3 + 1].Name = BannedUnbannedNick then
                            begin

[Beermonza]

Все ошибки из-за исчезновения выделения при работе со списком и другими объектами. Лучше использовать содержимое того же поля привата, которое уже показывает ник выделенного в списке пользователя, и, да, примените поиск этого имени в массиве UserMas, в данном случае BannedUnbannedNick будет равен PrivateEdit.Text, плюс нужно исключение на значение "Всем", или обработка для бана/разбана всем пользователям, если нужно.

[Shouldercannon]

Тоесть ник выделенного передать в переменную, далее сделать проверку по UserMas и при совпадении отослать в канал команду. Возникает вопрос: как узнать IP найденного юзера для занесения в лог файл?

[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;

Проверяйте.