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

[rzawm]

Beermonza, блин досадно, но ладно, буду дальше ломать RxRichEdit, может выйдет толк. Всё равно всем спасибо

[Shouldercannon]

Как можно уберечь сервер чата от особо одаренных юзеров, которые любят выходить из программ при помощи Завершения процесса или выключать компьютер с работающим преложением после чего сервер чата ругается
"Windows socket error: Удаленный хост принудительно разорвал существующее подключение (10054), on API 'recv'"

"Asynchronous socket error 10053"

[Beermonza]

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

Как можно уберечь сервер чата от особо одаренных юзеров, которые любят выходить из программ при помощи Завершения процесса или выключать компьютер с работающим преложением после чего сервер чата ругается
"Windows socket error: Удаленный хост принудительно разорвал существующее подключение (10054), on API 'recv'"

"Asynchronous socket error 10053"

Пост #69, там описан перехват ошибок сокета.

[rzawm]

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

Как можно уберечь сервер чата от особо одаренных юзеров, которые любят выходить из программ при помощи Завершения процесса или выключать компьютер с работающим преложением после чего сервер чата ругается
"Windows socket error: Удаленный хост принудительно разорвал существующее подключение (10054), on API 'recv'"

"Asynchronous socket error 10053"

Можно ещё попробовать что то типа Form.Destroy а там ClientSocket1.Active:=False; и т.д.

[Shouldercannon]

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

Shouldercannon, в постах ранее есть про отображение ника и IP как узнать тоже есть. ShowColorMassage выводит в поле чата все, что имеет тип string. Для таблицы бана достаточно создать массив типа string, в него отправлять IP. При коннекте очередного клиента смотреть все не пустые записи в массиве и удалять только что созданный канал пользователя, если есть совпадение IP. Также нужно создать файл, в него записывать все содержимое массива бана, ...при запуске сервера, считывать данные в массив.

Да было дело

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

Спасибо за помошь!
Можно-ли сделать, чтобы ip клиента было видно серверу в самом чате возле его ника? Пробовал - получилось не то - ip видно тогда всем пользователям. т.е. необходимо, чтобы сервер при получении сообщения определял ip того, от кого оно пришло. В локальном чате всё гораздо проще...

Только на него не дали реализации в коде.

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

Можно ещё попробовать что то типа Form.Destroy а там ClientSocket1.Active:=False; и т.д.

Я имел ввиду, что когда клиент коряво выходит, то сервер ругается и хорошо не вылетает. Но всеравно надо залатать эту дыру.

[Beermonza]

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

Можно ещё попробовать что то типа Form.Destroy а там ClientSocket1.Active:=False; и т.д.

Да, да, ...при сбое или падении клиента банальным перезапуском компа, сервер не получит команду к завершению сеанса корректным образом, поэтому есть перехват ошибок сокета. Нужно "сказать" форме в OnCreateForm, что обработку ошибок будет выполнять рукописная процедура ClException:

Application.OnException := ClException;

А вот сама процедура:

procedure TForm1.ClException(Sender: TObject; Error: Exception);
begin
  If (Error.ClassName = 'ESocketError') then
    Begin
      // что нужно сделать, вывести сообщение в поле, или
      // может быть опросить все каналы заново.
    end
  else Application.ShowException(Error);   // ошибки не сокета пусть показывает
end;

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

[Shouldercannon]

Beermonza покажите позалуйста как будет выглядеть эта процедура в коде я в сокетах не очень разбираюсь

Можно-ли сделать, чтобы ip клиента было видно серверу в самом чате возле его ника? И чтобы его IP небыло видно клиентам (только в юзерлисте сервера).

[Beermonza]

Подробно расписывать код не буду, только помогу от чего оттолкнуться.
Сначала нужно расширить список, добавить колонку для IP-адресов. Правый клик на компоненте TListView, выбрать Columns Editor. Добавить нужные столбцы, один или несколько. Вот так можно добраться до записей:

// первый столбец строки i
UserListView.Items.Item[i].Caption := {строка};
// и дальше до последующих столбцов до n в той же строке i
UserListView.Items.Item[i].SubItems.Strings[n] := {строка};

Как брать IP-адрес знаем. Остается прописать в процедуре UpdateUserList условие, если активен серверный сокет, то заполнять лист с IP-адресами, если клиентский, то заполнять обычным образом, как и было ранее в коде.

[Shouldercannon]

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

Да и как разрулить эту ситуацию. Когда на сервер приходит личное сообщение, то ноль эмоций

Вот решил проблему

// если приватный пользователь - "сервер"
                     If PrivateUser=Form2.ENick.Text then
                       Begin
// добавим в REChat сообщение клиента
                         ShowColorMessage(Copy(text,1,5)+Copy(text,7+Length(PrivateUser),len-Length(PrivateUser)-1), 1);

sndPlaySound('sounds/privatemessage.wav', SND_ASYNC);

Можно ли на сервере прямо из юзер листа взять конкретно юзера и выкинуть его из чата?

[Beermonza]

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

Можно ли на сервере прямо из юзер листа взять конкретно юзера и выкинуть его из чата?

Выбираем канал и закрываем его ServerSocket.Socket.Connections[i].Close, после чего идет обновление UpdDo := True