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

[morfey]

Уважаемый Beermonza как нам организовать анти-флуд я думаю надо поставить таймер что бы к примеру юзер мог делать отправку сообщения каждые 3 секунды или 4

И еще вопрос ваши методы что выше только действую на вашем чате ??? или я могу их применить в другом чате где есть компоненты ServerSocket ClientSocket


Или выводить табличку типа
ПРЕДУПРЕЖДЕНИЕ от антифлуд системы вы регулярно превышаете допустимое значения частоты или длины сообщений дальнейшие нарушения могут привести к временному запрету на отправку сообщений

если продолжат флудить значет наказывают юзера отправлять сообщения ваши сообщения будут видны только вам еще 300 секунд

но это я так главное сделать таймер 3-4 секунды на отправку

[Kappi4]

Вообщем, смысл того что я хотел написать...Дубль 2 : по русски)
Значит, когда отправляеш сообщение с сервера то как и положено все клиенты его читают...а у самого серва,то что он отправил, не отображается в мемо. Если, самому себе отправляеш то тогда он видит, а если "всем", то нет.
Отсюда вопрос: что и где надо вписать чтоб все работало как надо
з.ы много раз перепроверял...запускал исходники, скачанные тут...

[Beermonza]

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

Уважаемый Beermonza, как нам организовать анти-флуд? Я думаю, надо поставить таймер чтобы, к примеру, юзер мог делать отправку сообщения каждые 3 секунды или 4.

И еще вопрос: ваши методы, что выше, только действую на вашем чате ??? ...или я могу их применить в другом чате, где есть компоненты ServerSocket ClientSocket ?

Или выводить табличку типа "ПРЕДУПРЕЖДЕНИЕ" от анти-флуд системы: "вы регулярно превышаете допустимое значения частоты или длины сообщений, дальнейшие нарушения могут привести к временному запрету на отправку сообщений" ...если продолжат флудить, значит наказывают юзера, отправляют сообщения: "ваши сообщения будут видны только вам еще 300 секунд".
Но это я так, ...главное сделать таймер 3-4 секунды на отправку.

Все приемы работают везде, где используются вышеназванные сокеты.

Чтобы устранить проблемы с флудерством, нужно использовать метод дискретной временной блокировки клавиши "Отправить сообщение" или ее кода на отправку пакета. Смотрите выше реализацию бана, но, вместо длительной блокировки используйте основной таймер сервера еще и в качестве счета времени блокирования флудеров.
Заведите запись в типе TUserList, например WaitTime: Word. Эта запись будет следить за интервалом между сообщениями. Смотрите процедуру обработки пакетов ServerTimerTimer, Case 0: ...введите условие: если значение UserMas[i].WaitTime меньше некоторого допустимого интервала, то отправить этому клиенту пакет блокировки, а счетчик WaitTime обнулить.
В конце основного цикла по числу каналов (переменная i) нужно прописать счет для UserMas[i].WaitTime (прибавляем единицу) с проверкой на переполнение (условие: если превышено максимальное значение, то обнулять). Тут же условие разблокирования, если по условию счетчик отсчитал положенный таймаут нарушителя, кроме того при состоянии блокирования, т.е. вам нужно продолжение кода статуса UserMas[i].Status, ...возьмите число отвечающее за состояние "Таймаут", ставьте его при блокировке, при разблокировании вернете предыдущий статус (если они будут реализованы вами).
Отсылая команду блокирования можно кроме кода команды отправлять и соответствующее сообщение. Так же нужно "научить" клиента понимать команду (смотрите предыдущие модернизации).

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

В общем, смысл того, что я хотел написать...Дубль 2 : по русски)
Значит, когда отправляешь сообщение с сервера, то, как и положено, все клиенты его читают...а у самого серва, то, что он отправил, не отображается в мемо. Если самому себе отправляешь, то тогда он видит, а если "всем", то нет.
Отсюда вопрос: что и где надо вписать чтоб все работало как надо
з.ы много раз перепроверял...запускал исходники, скачанные тут...

Смотрите код на кнопку "Отправить", ...в любом случае после отправки пакета идет рукописная процедура ShowColorMassage, она-то и отображает содержимое в поле:

ShowColorMassage('0'+FontName+FontSize+FontColor+'['+TimeToStr(Time)+']  '+NikEdit.Text+':  '+TextEdit.Text, 0);

[Kappi4]

Спасибо, за своевременный ответ...будем разбираться)
з.ы. А как сделать еще чтоб время показывало, уральское(+2ч к московскому)

[Shouldercannon]

morfey вот тебе антифлуд система
Beermonza в данном чате можно пересылать лички в отдельном окне?

[morfey]

Shouldercannon спасибо большое мдя я не понял для чего система анти флуда ваша я делаю чат а там в коде не слово про него поясните подробней пожалуйста

[Beermonza]

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

Спасибо, за своевременный ответ...будем разбираться)
з.ы. А как сделать еще чтоб время показывало, уральское(+2ч к московскому)

Время показывает то, что есть в ОС, настройте правильно часы в системе и в чате будет такое же.

[morfey]

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

[Beermonza]

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

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

Ответ:

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

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

Вы мыслете на уровне кнопки, нажал и ап! ...для того, чтобы было "ап!" нужно все запрограммировать и у сервера и у клиента. Чтобы "вот кнопка, обработал ее ,жмешь и бан" - это запретить серверу рассылать остальным сообщения забаненного, он как слал так и будет слать сообщения и ничего ему не сделать одной кнопкой, поскольку она принадлежит только серверу. Можно одним нажатием просто "выпнуть" пользователя, это да.
А как заставить оставаться на связи, но при этом не мочь ничего отсылать по случаю бана, данного за флуд на время - это я описал подробно во всех аспектах и у сервера и у клиента. Дать готовый код - написать за вас, ...у меня нет задачи делать чужую работу, я буду помогать теоретически и структурно, ...если так не годится для вас, извините.

[Shouldercannon]

Хочу реализовать систему запрещающую входить в чат юзерам с определённым IP. Для этого сначала получаем IP подключающегося

NewIP := ServerSocket.Socket.Connections[i - 1].RemoteAddress

Далее сравниваем его с разрешёнными диапазонами

...
function IPtoDWORD(const s: string):DWORD;
var
L: TStringList;
b: packed array [0..3] of byte;
i: Integer;
begin
Result := 0;
  L := TStringList.Create;
    try
      L.Delimiter := '.';
        L.DelimitedText := s;
          for i := 0 to 3 do
            b[3 - i] := StrToInt(L[i]);
              Result := pdword(@b[0])^;
    finally
      L.Free
    end;
end;
...
if (NewIP >= IPtoDWORD('192.168.0.0')) and (NewIP <= IPtoDWORD('192.168.0.255')) then
  //Пускаем в чат
    else
      ServerSocket.Socket.Connections[i - 1].SendText('запрет'); //Отсылаем команду запрета
        ServerSocket.Socket.Connections[i - 1].Close; //Закрываем канал
          if (NewIP >= IPtoDWORD('193.168.0.0')) and (NewIP <= IPtoDWORD('193.168.0.255')) then
            //Пускаем в чат
            if (NewIP >= IPtoDWORD('194.168.0.0')) and (NewIP <= IPtoDWORD('194.168.0.255')) then
              //Пускаем в чат
                if (NewIP >= IPtoDWORD('195.168.0.0')) and (NewIP <= IPtoDWORD('195.168.0.255')) then
                  //Пускаем в чат
...

Способ немного громоздкий. Можно сделать его попроще с загрузкой диапазонов из файла?