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

[Shouldercannon]

Вот как сделал я
Есть Memo в который погружаются все забаненые IP
В procedure TForm1.FormCreate(Sender: TObject); идет загрузка забаненых IP из файла

MBanIPs.Clear;
MBanIPs.Lines.LoadFromFile((ExtractFilePath(Application.ExeName))+'IPBanList.txt');

далее погружаем из Memo данные в массив

for n:=0 to MBanIPs.Lines.count-1 do
BanMas[n]:=(MBanIPs.Lines[n]);

В var Формы надо прописать

BanMas: array[0..255] of string;

Далее при коннекте делаю проверку
procedure TForm1.ServerTimerTimer(Sender: TObject);

// цикл по существующим каналам
      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].SendText('4'); //Если есть система автоматического переподключения
// при дисконекте закрывать канал бесполезно, юзер всеравно зайдёт в данном случае я посылаю команду на блокировку чата
  end;
// сохраним пакет (если ничего не прислали, по пакет пустой)
          text:=ServerSocket.Socket.Connections[i-1].ReceiveText();

После добавления нового IP обновляю массив

procedure TForm1.UpdateBanMassiv;
var n: integer;
begin
for n:=0 to MBanIPs.Lines.count-1 do
BanMas[n]:=(MBanIPs.Lines[n]);
end;

Сообщение от 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; //

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

Тут можно наверно сделать так

procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket.Socket.Connections[ServerSocket.Socket.ActiveConnections-1].Close;
memo1.lines.add(ServerSocket.Socket.Connections[ServerSocket.Socket.ActiveConnections-1].RemoteAddress);
UpdDo:= True;
//Обновляем массив
end;

[mnbvcxz11]

На стороне сервера как запретить одинаковые логины имена


Вобще ограничение на количество клиентов есть или нет


Надеюсь код выше не даст при повторном подключении клиенту попасть в чат

[Beermonza]

Ограничений по каналам нет, в реале что-то в районе 30 тыс. но есть ограничение на списки и массивы, там установлен предел 255, значит 256 клиентов одновременно. Возможно расширение.

Если в бан-массиве есть IP-адрес злостного нарушителя, то он в чат не попадет, или если идет управление приложением, то попадет, но будет "заморожен".

Одинаковые логины запрещаются системой регистрации, читайте теорию выше.

[mnbvcxz11]

Вопрос по коду это все писать надо в procedure TForm1.FormCreate(Sender: TObject);

В procedure TForm1.FormCreate(Sender: TObject); идет загрузка забаненых IP из файла

Код:

MBanIPs.Clear;
MBanIPs.Lines.LoadFromFile((Extract FilePath(Application.ExeName))+'IPB anList.txt');

далее погружаем из Memo данные в массив

Код:

for n:=0 to MBanIPs.Lines.count-1 do
BanMas[n]:=(MBanIPs.Lines[n]);
В var Формы надо прописать

Код:

BanMas: array[0..255] of string;
Далее при коннекте делаю проверку
procedure TForm1.ServerTimerTimer(Sender: TObject);


По ответу т.е. где выше на этой же странице или на другой


Одинаковые логины запрещаются системой регистрации, читайте теорию выше.


По ответу

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

Ответ: ник же уже есть
Просто любой клиент может написать такой же ник

Надо чтобы бы клиент не смог внести одинаковое имя в чате

[Shouldercannon]

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

Вопрос по коду это все писать надо в procedure TForm1.FormCreate(Sender: TObject);

В procedure TForm1.FormCreate(Sender: TObject); идет загрузка забаненых IP из файла

Код:

MBanIPs.Clear;
MBanIPs.Lines.LoadFromFile((Extract FilePath(Application.ExeName))+'IPB anList.txt');

далее погружаем из Memo данные в массив

Код:

for n:=0 to MBanIPs.Lines.count-1 do
BanMas[n]:=(MBanIPs.Lines[n]);
В var Формы надо прописать

Код:

BanMas: array[0..255] of string;
Далее при коннекте делаю проверку
procedure TForm1.ServerTimerTimer(Sender: TObject);


По ответу т.е. где выше на этой же странице или на другой


Одинаковые логины запрещаются системой регистрации, читайте теорию выше.


По ответу

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

Ответ: ник же уже есть
Просто любой клиент может написать такой же ник

Надо чтобы бы клиент не смог внести одинаковое имя в чате

Только это
Вопрос по коду это все писать надо в procedure TForm1.FormCreate(Sender: TObject);

В procedure TForm1.FormCreate(Sender: TObject); идет загрузка забаненых IP из файла

MBanIPs.Clear;
MBanIPs.Lines.LoadFromFile((ExtractFilePath(Applic ation.ExeName))+'IPBanList.txt');

далее погружаем из Memo данные в массив

for n:=0 to MBanIPs.Lines.count-1 do
BanMas[n]:=(MBanIPs.Lines[n]);

[mnbvcxz11]

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

На свой вопрос ничего не нашол
Надо чтобы бы клиент не смог внести одинаковое имя в чате

[Beermonza]

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

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

На свой вопрос ничего не нашол
Надо чтобы бы клиент не смог внести одинаковое имя в чате

Нарисуйте картинку неактивного пользователя, поместите в ImageList и пользуйте. Задайте на сервере таймер с интервалом 1000 мс и считайте секунды/минуты, если нет ни одного сообщения от пользователя, меняйте значок в листе на неактивный, отсылайте всем новый пакет, особой структуры, в нем по количеству пользователей индексы нужных картинок.

Начните ход мыслей по системе регистрации, там все дела с именами.

mnbvcxz11, пользуйтесь кнопочкой "цитата".

[mnbvcxz11]

По ответу

Т.е. автоматически работать небудет
только вручную


Надо чтобы бы клиент не смог внести одинаковое имя в чате
Скажите хотя бы на какой странице смотреть

[Beermonza]

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

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

Популярней. Вот клиент подключился. Выполняется обновление массива процедурой UpdateUserMas, в ней добавляется в запись "Неизвестный", т.к. имя не известно. Там есть строчка: ServerSocket.Socket.Connections[i-1].SendText('1'); - это команда, состоящая из одного ключа "1", мы отправляем клиенту запрос "Кто он такой".
Смотрим клиента, процедура ClientSocketRead. В case видим, что по ключу у нас вот это: 1: ClientSocket.Socket.SendText('1'+Ni kEdit.Text);. Мы приняв запрос сервера на имя отправляем в ответ свой ник, тот, что ввели в поле NikEdit.Text до подключения.
Теперь посмотрим дальше, что делает сервер приняв команду с ключом "1". Процедура ServerTimerTimer. В case по ключу числится вот это:

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

Что не хватает для полного счастья? ...легко видеть, что нам тут нужен перебор всего массива, с целью сравнить пришедшее имя: Copy(text,2,len); с уже существующими. Если мы встретили совпадения, пишем break (сбросить цикл) и отправляем команду нового типа, например так: ServerSocket.Socket.Connections[i-1].SendText('5');, разумеется, если вы приняли ключ 5 как коллизию имен. При этом UserMas[i].Rec:=True; и UpdateUserList; выполнять не нужно, пусть сервер "долбит" клиента, пока тот не введет "нормальное" имя.
На клиентской стороне нужно в case добавить пункт "5:", в котором вызов некоторой заготовленной формочки, с полем для ввода ника и кнопочкой "Сменить никнейм". Команда подобна этой: 1: ClientSocket.Socket.SendText('1'+Fo rm3.NewNikEdit.Text);, т.е. мы снова шлем инициализацию, сервер снова выполняет проверку в массиве, не "наткнувшись" на совпадение, сервер записывает никнейм и обновляет список клиентов:

UserMas[i].Name:=Copy(text,2,len);
UserMas[i].Rec:=True;
UpdateUserList;

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

[mnbvcxz11]

Где эта самая картинка "Активность" она ведь автоматически должна реагировать
Каким образом картинка "Активность" и "Неактивность" будет включаться и отключаться