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

[Shouldercannon]

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

Выбираем канал и закрываем его ServerSocket.Socket.Connections[i].Close, после чего идет обновление UpdDo := True

С ServerSocket.Socket.Connections[i].Close поятоянно выдаёт ошибку. Получлось выкидывать юзеров из чата так ServerSocket.Socket.Connections[ServerSocket.Socket.ActiveConnectio ns-1].Close;
Но при закрытии соединения есть подвох, юзер возвращается обратно в чат благодаря системе переподключения , а этого делать не надо.

[Beermonza]

Естественно ServerSocket.Socket.Connections[i].Close в своем оригинале будет выдавать ошибку, поскольку это пример, в котором i - переменная, которая должна содержать фактический номер канала, который нужно узнать по списку пользователей, образом, уже упоминавшимся выше, в частности на использование привата. Разумеется, я не буду всегда приводить конкретный код для пожелавшего его получить, ...только пример и теоретические знания, чтобы научить самостоятельно находить решения.
Теперь, ...если у вас используется система переподключения, которую я описал выше, то ничего подобного на повторное подключение "откинутого" сервером клиента я не наблюдаю. Возможно что-то в коде вы исправили. Процедура Close серверного сокета корректно отключает канал, это не относится с ошибкам сокета, и посему процедура переподключения просто не срабатывает.
Если имеется в виду ручное переподключение посредством клавишь, то у вас должна быть реализована система бана.

[Shouldercannon]

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

Естественно ServerSocket.Socket.Connections[i].Close в своем оригинале будет выдавать ошибку, поскольку это пример, в котором i - переменная, которая должна содержать фактический номер канала, который нужно узнать по списку пользователей, образом, уже упоминавшимся выше, в частности на использование привата. Разумеется, я не буду всегда приводить конкретный код для пожелавшего его получить, ...только пример и теоретические знания, чтобы научить самостоятельно находить решения.
Теперь, ...если у вас используется система переподключения, которую я описал выше, то ничего подобного на повторное подключение "откинутого" сервером клиента я не наблюдаю. Возможно что-то в коде вы исправили. Процедура Close серверного сокета корректно отключает канал, это не относится с ошибкам сокета, и посему процедура переподключения просто не срабатывает.
Если имеется в виду ручное переподключение посредством клавишь, то у вас должна быть реализована система бана.

Нашел я причину по которой выкинутый клиент из чата снова присоединяется. У ClientSocket с свойстве OnDisconnect тоже стоит таймер на автоподключение.

И в правильном ли я месте поставил активацию тамера при дисконекте?

procedure TForm1.ClientBtnClick(Sender: TObject);
begin
  If ClientBtn.Tag=0 then
    Begin
ConnectTimer.Enabled:=True; //Активация таймера при дисконекте или ошибке подключения
// клавишу ServerBtn и поля NikEdit, HostEdit, PortEdit заблокируем
      ServerBtn.Enabled:=False;
      NikEdit.Enabled:=False;
      HostEdit.Enabled:=False;
      PortEdit.Enabled:=False;

[Beermonza]

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

И в правильном ли я месте поставил активацию тамера при дисконекте?

Место старта таймера коннекта выбрано неверно. Ошибка в том, что сокет еще не готов к работе. Запускать таймер нужно после того, как в клиентский сокет будут переданы данные адреса и порта сервера.

[Shouldercannon]

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

Место старта таймера коннекта выбрано неверно. Ошибка в том, что сокет еще не готов к работе. Запускать таймер нужно после того, как в клиентский сокет будут переданы данные адреса и порта сервера.

procedure TForm1.ClientBtnClick(Sender: TObject);
begin
  If ClientBtn.Tag=0 then
    Begin
// клавишу ServerBtn и поля NikEdit, HostEdit, PortEdit заблокируем
      ServerBtn.Enabled:=False;
// запишем указанный порт в ClientSocket
      ClientSocket.Port:=StrToInt(ChatPort);
// запишем хост и адрес (одно значение HostEdit в оба)
      ClientSocket.Host:=ChatHost;
      ClientSocket.Address:=ChatHost;
ConnectTimer.Enabled:=True; //Активация таймера при дисконекте или ошибке подключения
// запускаем клиента
      ClientSocket.Active:=True;
// изменяем тэг
      ClientBtn.Tag:=1;
// меняем надпись клавиши
      ClientBtn.Caption:='Отключиться';
    end

Хм запутался бред какой-то получается. Получается двойная активация сокета при нажатии на ClientBtn.

[Beermonza]

ClientSocket.Active:=True; нужно удалить, это есть в таймере.

[Shouldercannon]

Снова про бан систему.
При старте программы в Memo1 помещаю список забаненых IP, потом этот список помещаю в массив.

var i: integer;
begin
for i:=0 to Memo1.Lines.count-1 do
a[i]:=(Memo1.Lines[i]);

далее получаю IP подключившегося пользователя

s:=(ServerSocket.Socket.Connections[ServerSocket.Socket.ActiveConnections-1].RemoteAddress);

Далее произвожу сравнение

var i: integer;
begin
for i:=low(a) to high(a) do
if not (a[i]=s) then
else
ShowMessage('Совпал!'); //Бан

Теперь вопрос, где на сервере отрезать доступ клиенту к чату?

[Beermonza]

Нужно чтобы клиент вошел, но не мог ничего набирать и смотреть, или что?
Логично проверять IP и ник одновременно, и при совпадении закрывать канал, т.е. забаненый клиент не может подключиться, его просто выкидывают каждый раз.

[Shouldercannon]

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

Нужно чтобы клиент вошел, но не мог ничего набирать и смотреть, или что?
Логично проверять IP и ник одновременно, и при совпадении закрывать канал, т.е. забаненый клиент не может подключиться, его просто выкидывают каждый раз.

Да хотелось бы чтобы он просто был в чате, но ничего не мог в нем делать, если так нельзя то ничего. Ник постоянно меняется, так что только по IP проверить может нормально.
Совсем от темы отклонился

Я хотел спросить в какой процедуре на сервере при совпадении IP не допускать юзера до чата. Вот вы что-то писали

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

Можно сделать еще проще. Нужно вставить в таймер цикл перебирающий массив пользователей, и ищущий пометку бана (это запись в типе), как только пометка найдена, нужно пропускать канал.

procedure TForm1.ServerTimerTimer(Sender: TObject);
begin
// условие на наличие установленных каналов
  If ServerSocket.Socket.ActiveConnections<>0 then
    Begin
// цикл по существующим каналам
      For i:=1 to ServerSocket.Socket.ActiveConnections do
        Begin
          // все что ниже идет через проверку на бан
          ...

Определить номер канала в списке можно так:

UserListView.Selected.Index - 1;
// проверка, чтобы не был выделен сервер

[Beermonza]

Очень просто. Объясню с самого начала. Вот клиент подключился. Процедура в таймере (procedure TForm1.ServerTimerTimer(Sender: TObject); ) работает всегда, даже если не пришло ни одного пакета, ...за наличие пакета отвечает вот этот код:

text:=ServerSocket.Socket.Connections[i-1].ReceiveText();
// условие, что пакет не пуст
If text<>'' then
  Begin

Так вот, ...перед тем как это условие будет проверять наличие пакета, нужно организовать цикл перебора списка забаненых клиентов, в котором в качестве аргумента числится IP-адрес, это BanMas: array[0..255] of String. Например так:

For n:=0 to 255 do
  Begin
    If BanMas[n] = ServerSocket.Socket.Connections[i-1].RemoteAddress then
      ServerSocket.Socket.Connections[i-1].Close;
  end;

Не забываем, что для удобства цикл перебора каналов от 1 до ServerSocket.Socket.ActiveConnectio ns, поэтому фактический номер канала i-1. Т.к. цикл проверяет все текущие каналы, то при каждой смене i, заново просмотрится и массив BanMas.
Этот случай просто выкидывает забаненых клиентов.

Второй вариант менее эффективен. Он позволяет клиенту подключиться к чату, видеть что пишут его участники, но не позволяет ничего отправлять и изменять. Т.е. после определения пользователя сервер шлет управляющий пакет, который заблокирует все элементы управления, преимущественно кнопки, ...но и функции сокета если нужно. Для этого создается новая команда, как? ...читаем исходную статью и добавляем функционал для ее работы.