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

[Beermonza]

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

Есть 1 маленькая просьба)... Пожалюйста, напишите об освных коммандах компонентов Server&Client Socket. Или дайте линк на подобную книгу/документацию. Я просто программированием сетей в Делфи раньше вообще почти не занимая(только в лок. сети и то для БД). подвопрос: Как сделать запрос на сервер с клиента на загрузку какого-либо файла?(например, новостей чата).

Основные команды можно изучить в статье, комментарии по крайней мере мне кажется этому способствуют. И потом всегда можно спросить, что именно интересует )
Есть подборка исходников на обширные темы тут: http://www.delphisources.ru/pages/faq/all_articles.html ...смотрите раздел "Сокеты".

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

Если не трудно, напишите пример, как можно переименовать клиента(если ник с матом или нет в нем логики (например, "ппН6гн7к")). Желательно в программном виде.

Извините, нет времени модернизировать специально для кого-то ), ...это дело лично ваше.
Ничего сложного, ...введите новый тип команды, например:
индекс - 9 означает "сменить имя клиента"
было "Алщст40в" , нажимаем на список, узнаем канал, заменяем имя на "Нелогичный", отсылаем по каналу команду "9Нелогичный", ...клиент принимает, определяет, что ключ 9 - это смена имени, находит себя в своем списке и заменяет на Copy({пакет},2,Length({пакет})-1), меняет NikEdit.Text на то же.

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

Блин... не знаю, что-то я туплю...
Никак не могу реализовать бан...

В списке должен быть применен оператор выделения:
i:=IntToStr(UserListView.Selected.Index);
ServerSocket.Socket.Connections[i].Close;

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

Как считаете, как наилучшим образом реализовать анти-мат? создать файл с базой матов и послe
"n" матов в чате от какого-либо
юзера давать предупреждение, позле "х" "пинать", а после "у" банить на "z" минут?

ИМХО, задача для Великого и Могучего Русского Языка почти не выполнимая. Изобретательность в нецензурной лексике на столько велика, что под час даже цензурные выражения с изменением некоторых букв или иное сочетание несет именно тот смысл, который заложил в него автор, но система не в состоянии определить этого.
Проще заложить весь литературный Русский )))) , но тогда потеряется "чатовский слэнг" ...или можно, без ущерба для общения, посадить человечка, он уж точно будет определять нецензурную лексику.

Ну, а если конструктивно, Вы верно мыслите, ...делаем цикл от 1 до длинны сообщения, внутри еще один цикл от текущей позиции до длинны сообщения - текущая позиция , копирование участка ...и, соответственно, проверка в БД (файл или что-то иное). Тут есть недостаток, ...цензурные слова тоже могут быть определены как нецензурные по сочетанию букв, а таких много.

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

З.Ы.2. И всё-таки, как узнать ip того, кто отправил сообщение.

ClientIP:=ServerSocket.Socket.Conne ction[i].RemoteAddress;

[Beermonza]

Сообщение от SoundMan, Май 26th, 2008 | 21:00

... что надо сделать чтобы PopupMenu в TListView вызывалось только над ником ?

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

procedure TForm1.UserListViewMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
// если нажата правая клавиша мыши
// и список пользователей не пустой
// и есть выделеная запись,
// то подключаем PopupMenu1
  If (Button=mbRight)
      And (UserListView.Items.Count>0)
      And (UserListView.SelCount>0) then UserListView.PopupMenu:=PopupMenu1;
end;

Имя пункта меню "Item1"

procedure TForm1.Item1Click(Sender: TObject);
begin
// убираем фокус с записи
  UserListView.Selected.Focused:=False;
// убираем выделение
  UserListView.Selected.Selected:=False;
// отключаем PopupMenu
  UserListView.PopupMenu:=nil;
end;

[SoundMan]

Небольшой вопросик - Как посчитать сколько раз было отправлено сообщение от клиента за определённое время??

[Beermonza]

При отправке сообщения с клиента пропишите счетчик t:=t+1; или Inc(t);
Ставьте еще один таймер, указывайте интервал, внутри вывод в Edit или Label значения t, с последующим обнулением t:=0;
Может это нужно знать на сервере? ...тогда на прием клиентского сообщения со стороны сервера.

[SoundMan]

Большое спасибо!

Может это нужно знать на сервере?

Эммм...Вообще даже и незнаю))
Я хочу сделать следующее: Если клиент начинает флудить (отправлять сообщения очень быстро) то он блокируется на определённое время.

[Beermonza]

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

... Я хочу сделать следующее: Если клиент начинает флудить (отправлять сообщения очень быстро) то он блокируется на определённое время.

Тогда нужен массив, каждая ячейка соответствует номеру пользователя (его каналу), содержимое - счетчику для конкретного канала. Процедура таймера в цикле перебирает весь массив по числу пользователей, и обрабатывает превышения счетчиков в виде блокировки канала или пропуска прослушивания каналов с обязательным обнулением каждого счетчика.
При приеме сообщений сервером по номеру канала массив счетчиков обновляется.

[SoundMan]

Ухххх, это сложнее чем я думал, сам бы до такого не додумался ни за что) Ладно попробую разобраться, спасибо!

[Патрон]

Всем привет, я тут тоже попытался сделать чат... Но у меня такая проблема: в ServerSocket1 ввожу порт "8080" и в ClientSocket1 тоже самое... Сервер создал а друзья входят клиентом, они пишут в чат и видят только свои сообщения, а у меня (сервера) при попытке отправить сообщение вылезает такая ошибка: List index out of bounds (0). Не пойму в чем проблема? может объясните в чем дело? Заранее спасибо.

[N!ckeL]

код отправки можно увидеть?

[Патрон]

Вот:

ServerSocket1.Socket.Connections[0].SendText(edit2.Text);
memo1.Lines.Add(Edit3.Text+': '+Edit2.Text);
edit2.Text:='';