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

[Shouldercannon]

Сообщение от 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.
Этот случай просто выкидывает забаненых клиентов.

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

Не совсем понял этот момент

For n:=0 to 255 do

тут происходит сравнение, если да то как-то странно не понятно.

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

Так вот, ...перед тем как это условие будет проверять наличие пакета, нужно организовать цикл перебора списка забаненых клиентов

Так

// цикл по существующим каналам
      For i:=1 to ServerSocket.Socket.ActiveConnections do
        Begin

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

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

[Beermonza]

Если код написан, значит материал теории понят )

[Shouldercannon]

Есть ещё одна проблема. Делаю систему оповещения о спамерах. Есть два предупреждения на третий же бан (блокировка управляющих частей чата). Проблема в следующем, после того как юзер забанен мне надо отослать на сервер IP флудильщика.
Что нужно сделать, чтобы IP дошёл до сервера?
P.S. Естественно для этого нужно будет создать новую команду, у меня она будет 5.

[Beermonza]

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

Есть ещё одна проблема. Делаю систему оповещения о спамерах. Есть два предупреждения на третий же бан (блокировка управляющих частей чата). Проблема в следующем, после того как юзер забанен мне надо отослать на сервер IP флудильщика.
Что нужно сделать, чтобы IP дошёл до сервера?
P.S. Естественно для этого нужно будет создать новую команду, у меня она будет 5.

IP любого клиента вы узнаете автоматически из команды RemoteAddress серверного сокета. Пока канал "жив" адрес вы всегда сможете получить, и ни в коем случае не нужно определять его на стороне клиента и отсылать на сервер. Дважды спам проходит, на третий раз нужно перед закрытием канала записать IP в массив бана.

[mnbvcxz11]

Вопрос по теме как сделать так чтобы сервер не принемал на стороене сервера одинаковый Ник от клиента

[Beermonza]

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

Вопрос по теме как сделать так чтобы сервер не принемал на стороене сервера одинаковый Ник от клиента

Выполните регистрацию как положено, с паролями. Для этого нужно создать тип команды в которой передается ник и пароль, через знак разделения. После приема сервером пакета регистрации, клиент входит, если ник совпадает или пароль неверный, то посылать ответный пакет под тем же ключом команды и так, пока не будут выполнены все условия. Ну вы сами все понимаете. Сложного ничего нет, начните, я помогу.

[mnbvcxz11]

Вопрос про бан почему при переподключении клиента код этот не работает хотя Ip Этот же
For n:=0 to 255 do
Begin
If BanMas[n] = ServerSocket.Socket.Connections[i-1].RemoteAddress then
ServerSocket.Socket.Connections[i-1].Close;
end;

Вот я вывел в memo1 ip адреса

procedure TForm1.Button2Click(Sender: TObject);
begin
with ServerSocket.Socket do
begin
for i:=0 to activeConnections-1 do
memo1.lines.add(Connections[i].RemoteAddress+':'+IntToStr(Connect ions[i].RemotePort));
end; // with

[Shouldercannon]

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

Вопрос про бан почему при переподключении клиента код этот не работает хотя Ip Этот же
For n:=0 to 255 do
Begin
If BanMas[n] = ServerSocket.Socket.Connections[i-1].RemoteAddress then
ServerSocket.Socket.Connections[i-1].Close;
end;

Вот я вывел в memo1 ip адреса

procedure TForm1.Button2Click(Sender: TObject);
begin
with ServerSocket.Socket do
begin
for i:=0 to activeConnections-1 do
memo1.lines.add(Connections[i].RemoteAddress+':'+IntToStr(Connect ions[i].RemotePort));
end; // with

Вы забаненый IP в массив вбили?

[mnbvcxz11]

Вот этой кнопкой удаляю клиента
procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket.Socket.Connections[ServerSocket.Socket.ActiveConnectio ns-1].RemoteAddress;
ServerSocket.Socket.Connections[ServerSocket.Socket.ActiveConnectio ns-1].Close;
UpdDo:= True;
end;

Вот этой кнопкой занашу в мемо1
procedure TForm1.Button2Click(Sender: TObject);
begin
with ServerSocket.Socket do
begin
for i:=0 to activeConnections-1 do
memo1.lines.add(Connections[i].RemoteAddress+':'+IntToStr(Connect ions[i].RemotePort));
end; //

Как дальше запретить этим клиентам т.е. как сделать чтобы на стороне сервера проверялось(или Мемо или Массив записей удаленных)

[mnbvcxz11]

Ответ на вопрос Вы забаненый IP в массив вбили?

В смысле вбили
For n:=0 to 255 do
Begin
If BanMas[n] = ServerSocket.Socket.Connections[i-1].RemoteAddress then
ServerSocket.Socket.Connections[i-1].Close;
end;

Я так понял массив BanMas[n] должен автоматом брать удаленные, но он их не берет(удаленных клиентов) Не работает

Или я не так понял вопрос