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

[spirit-ua]

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

Самой последней строчкой в FormDestroy можно написать sleep(2000); - это затянет отключение на 2 секунды, и сообщение пролезет.

Через цикл или sleep я могу сделать, это я писал в первых своих постах, ну да ладно. Вопрос решил другим способом: я написал систему регистрации в которой исключил дублирование ников, подключение и отвал клиентов я контролирою на стороне сервера и рассылаю клиентам.

[Beermonza]

Раз все решилось, значит так тому и быть, а вообще sleep в любой процедуре последней строчкой даст задержку ее конца, в FormDestroy, например, форма не уничтожится еще 2 секунды, за это время сообщение точно дойдет до сервера и тот отравит системный ответ, что все получено, и спустя 2 секунды форма уничтожится, закрыв сокет. Просто если паузы не делать, то зависит от пинга сети как быстро сообщение дойдет до сервера.

[spirit-ua]

Возникла проблема:
когда становиться "много" пользователей (больше 4х) некоторым отправляется двойной список клиентаов, в чем дело?

[Beermonza]

Сообщение от spirit-ua

Возникла проблема:
когда становиться "много" пользователей (больше 4х) некоторым отправляется двойной список клиентаов, в чем дело?

Такого не заметил, ...может быть переменная StrUserList не очищена перед составлением очередного списка? ...это на сервере, ...или у клиента не прописано UserListView.Items.Clear; ...но как-то странно, то правильно отображается, то нет. Опишите подробно, как создаются клиенты, на одной машине или на разных.

[spirit-ua]

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

Такого не заметил, ...может быть переменная StrUserList не очищена перед составлением очередного списка? ...это на сервере, ...или у клиента не прописано UserListView.Items.Clear; ...но как-то странно, то правильно отображается, то нет. Опишите подробно, как создаются клиенты, на одной машине или на разных.

У меня есть регистрация клиентов, и когда пользователь прицепился для прохождения регистрации на сервере он добавляется в список клиентов, а остальным список рассылается без неавторизированых пользователей.
Я сменил код в двух места на сервере
1.

 // Isxodnik ------------
 //If UserMas[i].Rec=False then ContList:=1;
 //StrUserList := StrUserList + IntToStr(UserMas[i].Image) + UserMas[i].Name + Chr(152);
 // Isxodnik ------------

 // Main
 If UserMas[i].Rec = True then StrUserList := StrUserList + IntToStr(UserMas[i].Image) + UserMas[i].Name + Chr(152);
 // Main     ------------

2.

 // Isxodnik ------------
 // ServerSocket.Socket.Connections[i].SendText('2'+StrUserList);
 // Isxodnik ------------

 // Main
 If UserMas[i+1].Rec = True then ServerSocket.Socket.Connections [i].SendText('2'+StrUserList); 
 // Main

Таким образом я отправляю список клиентов только авторизированым пользователям и у меня некоторым приходит 2, или жаже 3-я строка пользователей...
Если возращаю измениние 1 в исходное положение все работает, но список отправляется njm тем клиентам которые вошли раньше чем неизвестный клиент, после него уже никому список не проходит...

[Shouldercannon]

Вижу и у spirit-ua тоже дублируются ники. Возникла такая проблема. Есть человек который убивает сервер чата таким образом:
подключаешься отключаешься к порту сервера с частатой 100 раз в сек и он замучивается всем список юзеров отсылать в итоге вообще падает. Что-то связанное с Эксплойт. Как жащититься от такого? И как отсылать всем не весь список юзеров, а только того юзера что отключился или подключился?

[Beermonza]

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

[Shouldercannon]

Смотрел бан систему и вот что непонравилось. После того как IP опознан начинается отсылка команды забаненому

// обработка забаненых IP
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;

и эта отсылка начинает слаться ежесекундно на клиент тем самым грузит. Как от этого избавиться?

[Beermonza]

А где конкретно это записано? ...кроме того, от подключения и отключения может спасти еще изменение процедур TForm1.ServerSocketClientConnect и TForm1.ServerSocketClientDisconnect , в них прямой вызов UpdDo:=True; и обновление массива и списка от 1 до 255, и все это по таймеру, слишком быстро, нужно замедлить, и проверять по числу каналов, но не по всему.

[Shouldercannon]

Записано в ServerTimer. После обработки шлётся команда с сервера на клиент и ради любобытсва в обработчике команды клиента на бан я сделал добавление новой строки в чат (бан) и когда комада обработалась в чат ежесекундно писалось бан.