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

[Beermonza]

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

...кровь из носу админка должна автоматом присваиваться.

Сообщение #404, там все описано. При идентификации, в Case 1: должна быть проверка на админа, ...все админы в файле, читаем файл по строкам, сверяем с ником клиента, есть совпадение ника и IP-адреса, значит он админ, делаем пометку админа, ...все! он админ, пока на связи.

[Shouldercannon]

В посте #410 у вас в коде цикл

For i := 0 to 15 do

Он для примера или его нужно дописать?

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

Сообщение #404, там все описано. При идентификации, в Case 1: должна быть проверка на админа, ...все админы в файле, читаем файл по строкам, сверяем с ником клиента, есть совпадение ника и IP-адреса, значит он админ, делаем пометку админа, ...все! он админ, пока на связи.

Да, но в том случае как я понял админка должна активироваться вручную с клиента. Или я не прав?
Как правельно отослать на клиента команду бан/разбан при удалённом управлении

// Отошлём команду бана
ServerSocket.Socket.Connections[ServerSocket.Socket.ActiveConnections - 1].SendText('4');

Данный способ предназначен для работы с клиентами на самом сервере.

[morfey]

Люди помогите где здесь ошибка

procedure TForm1.htmlLite1ImageClick(Sender, Obj: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var st:string;
begin
st:=stringreplace (TImageObj(Obj).Source,extractfilep ath(application.exename)+'img\',' *',[]);
st:=stringreplace(st,'.gif',' ',[]);
if (Obj is TImageObj) then Memo1.SelText:=st;
end;


и еще как сделать бан систему и регистрацию в чате оч надо

[Shouldercannon]

и еще как сделать бан систему и регистрацию в чате оч надо

Уже обсуждалось в этой теме, смотри с самой первой страницы.

[Beermonza]

morfey, не засоряйте тему сторонними вопросами и кодами. Если вам попутно нужно что-то править, это не значит, что в этой теме можно спрашивать подобное, ...вообще не известно что за процедура, что она делает с рисунком, и какого типа ошибка. Совет - начать учиться программированию, с вопросами в раздел "Помощь студентам", там всем "оч надо".

Shouldercannon, в посте #410 примеры правильного написания кода, если хотите чтобы ошибки находились быстро и самостоятельно. Цикл взят с потолка, просто показать как он должен быть записан, от назначения с началом и концом.

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

Да, но в том случае как я понял админка должна активироваться вручную с клиента. Или я не прав?

Админка по описанию будет автоматической, как только клиент зайдет в чат, при идентификации ( Case 1: ) сервер пометит админа и даст ему права удаленного администрирования, читаем внимательно #404 как это нужно сделать.

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

Данный способ предназначен для работы с клиентами на самом сервере.

// Отошлём команду бана
ServerSocket.Socket.Connections[ServerSocket.Socket.ActiveConnections - 1].SendText('4');

ActiveConnections - число рабочих каналов, на которых находятся клиенты, если использовать этот код, то он будет блокировать последнего подключившегося клиента. Мы знаем, что в виду разной загрузки сети и ПК, ответы клиентов на идентификацию могут приходить позже, чем те, у которых сеть свободна и ПК разгружен. Подключившись и "ответив" по разному оба забаненых клиента будут находится в разных условиях. Обе команды на бан получит тот, кто "ответил" позже, если он по списку числится последним, т.е. ActiveConnections - 1. Если список коннектов будет расширяться, то и отправка будет плыть, отправляться последнему клиенту в списке. Вместо этого нужно использовать конкретный канал пользователя, который должен быть заблокирован:

ServerSocket.Socket.Connections[i-1].SendText('4');

Это i-1 только что вошел, это он после проверки (создайте цикл перебора списка блокируемых, пусть условие находит номера каналов в массиве для работы с ними) должен быть заблокирован, ему конкретно и пойдет команда, но не последнему в списке коннектов.
Что касается сервера, ...у него есть список подключившихся, мышью выбираем клиента (так же как и в привате), в цикле ищем имя в массиве UserMas[j].Name, по совпадению отправляем пакет так же, но по j, почему? ...массив числится от 0 до ActiveConnections-1.

[Shouldercannon]

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

В процедуре UpdateUserMas, в ней первыми строками идет очистка прежней информации. Создайте в типе TUserList запись Admin: Boolean, она будет отвечать за администрацию, True - администратор, Flase - нет. Вот часть обновления:

procedure TForm1.UpdateUserMas;
begin
  If ServerSocket.Socket.ActiveConnections > 0 then
    Begin
// очищаем массив
      For i:=1 to 255 do
        Begin
          UserMas[i].Status := 0;
          UserMas[i].Admin := False; // не администратор
        end;

......

    end;

.....

end;

Как только при идентификации пользователя по IP узнается что он админ, запись Admin переводите в True.

Пробую сделать

type
  TUserList = object
  Status: Byte;    // 1 - сервер, 2 - клиент
  Rec: Boolean;    // Отметка записи пользователя в список
  Name: string;    // Имя (ник)
  Image: Byte;     // Индекс иконки
  Admin: Boolean;  // Проверка на админа
end;

дальше ступор. Проверку на админа

                // Обработка админов
                for n := 0 to 255 do
                  begin
                    if AdminIPMas[n] = ServerSocket.Socket.Connections[i - 1].RemoteAddress then
                      ServerSocket.Socket.Connections[i - 1].SendText('8');
                  end;

переносить в procedure TForm1.UpdateUserMas;?

[Beermonza]

Проверка на админа в таймере в Case 1:

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

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

    end;
// -----------------------------------------------------------------------------

...если IP-адрес будет найден, то подключившийся клиент сразу станет админом. Отправлять с пункта 1: ничего нельзя!!!! ...следом идет процедура обновления списка в конце такта таймера, она отсылает списки, ...игнорировать это обстоятельство нельзя, иначе получите слепленные пакеты.
Придется админу делать отдельный запрос на администрирование, и это будет правильно, ...не обязательно пользователь сразу хочет быть админом, путь нажимает кнопку "администрирование", в кнопке запрос по коду "8", сервер пусть принимает и проверяет сначала запись UserMas[i].Admin, если она истинна, то отправляет уже ему пакет с разрешением удаленного администрирования.

[Shouldercannon]

Админка по описанию будет автоматической, как только клиент зайдет в чат, при идентификации ( Case 1: ) сервер пометит админа и даст ему права удаленного администрирования, читаем внимательно #404 как это нужно сделать.

Вот видите, снова пришли к ручной активации, значит под автоматически подразумевалось

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

а не отсылка сразу команды активации.

Цикл в любом случае офрмлять так, даже если между begin и end одна строка кода?

for m := 0 to UserListView.Items.Count - 1 do
  begin
    ...
  end;

Тут тоже ошибок насажал. В место ServerSocket.Socket.Connections[ServerSocket.Socket.ActiveConnectio ns - 1] нужно применить ServerSocket.Socket.Connections[i - 1] и на сервере в списке юзеров есть ник, а справа его IP, может его брать из списка, а не получать с помощью ServerSocket.Socket.Connections[i - 1].RemoteAddress?

Количество команд перевалило за 9, сделал оптимизацию:
4 - запрет входа в чат (проверка диапазона)
5 - 0 (разбанить), 1 (забанить), 2 (автобан)
6 - 0 (деактивировать админку), 1 (активировать админку)

[Beermonza]

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

Если нужно расширить код команд, вводите второй байт, кодировка изменится таким образом: 00 - 09, 10 - 19, 20 - 29 и так до 99, первый байт отвечает за тип команды, второй - за вид, например:

0 - тип передачи пакетов пользователей,
подтипы: 0 - сообщение, 1 - приватное сообщение, 2 - файл;

1 - тип идентификации пользователей,
подтипы: 0 - запрос сервера на ник, 1 - ответ пользователя, 2 - список пользователей;

2 - тип удаленного администрирования,
подтипы: 0 - запрос пользователя на администрирование, 1 - разрешение сервера на администрирование, 2 - передача администратора предупреждения для пользователя, 3 - запрос администратора на блок пользователя, 4 - запрос администратора на отключение пользователя;

и т.д. и тп.

[Shouldercannon]

Чёрт с ним пусть будет активация в ручную, главное чтобы стабильно работало.

1. Что можете сказать по поводу реализации бан/разбан, дать/забрать админку в прикреплённом файле?

2. Не понятно.

Это i-1 только что вошел, это он после проверки (создайте цикл перебора списка блокируемых, пусть условие находит номера каналов в массиве для работы с ними) должен быть заблокирован, ему конкретно и пойдет команда, но не последнему в списке коннектов.

для какой именно работы?

3. При даче/отнятии админки придётся пересматривать флаг UserMas[i].Admin := True;. Допустим, пришёл юзер и определился как админ UserMas[i].Admin := True; и через 5 мин у него забирают админку, отсылая командку 60, а так как до этого произошло UserMas[i].Admin := True;, то получается что при очередной проверке на администратора он снова будет админом при условии того, что во время снятия с админства он был в чате.