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

[werrey]

Добрый день.
Смотрел Ваш пример чата (Multy-user on-line chat (Private)).
Хотелось бы узнать:
1.Если запустить сервер, а потом подключать клиенты, то на 35-ом соединении у клиентов перестают отображаться Ники в ListView.На 36 соединении виден только один Ник во всех 36 клиентах.Почему это происходит и как исправить?
2.Как сделать, чтобы у клиентов не моргал список Ников в ListView при подключении нового клиента, когда их много?
Интервал таймера уменьшил до 1 мс.

Буду очень признателен за ответы!

[Beermonza]

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

1.Если запустить сервер, а потом подключать клиенты, то на 35-ом соединении у клиентов перестают отображаться Ники в ListView.На 36 соединении виден только один Ник во всех 36 клиентах.Почему это происходит и как исправить?

Обратите внимание на цикл приема строки пользователей на стороне клиента, и конкретно на переменную j. Если ее тип по прежнему Byte, то обработать строку из больше чем 256 (+/- сдвиги) символов клиент не сможет. Если не хочется искать такие узкие места, можно просто изменить тип всех числовых переменных на Integer, ...но это порождает привычку варварски тратить ресурсы.

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

2.Как сделать, чтобы у клиентов не моргал список Ников в ListView при подключении нового клиента, когда их много?
Интервал таймера уменьшил до 1 мс.

Я не рассчитывал на то, что простейшая учебная программа станет основой какого-нибудь серьезного продукта, поэтому все механизмы определения параметров пользователей носят универсальный характер, теряя при этом в скорости из-за стандартного способа обновления информации.

Когда подключается/отключается пользователь, сервер шлет полный пакет всех присутствующих, но не выборочно, кто именно подключился или отключился. Процедура отображения ников у клиента в поле TListWiew всегда первым делом очищает весь список и создает новый. Именно эта структура вызывает мерцание при большом количестве строк, кроме того, что содержимое является типом String, так же не отличающимся в скорости считывания/обработки.

Выход - воспользоваться индексом Index записи TListWiew. Пусть клиент примет строчку, и начиная с индекса 1 (0 - сервер) изменит Caption строки, если оно отличается от прежнего. Если число клиентов увеличилось по сравнению с прежним списком, то идет команда добавления новой записи, а если уменьшилось, то последней командой будет удаление ненужной строки в конце списка.

Интервал таймера лучше оставить 100 мс или 200, от него зависит степень устойчивости чата к пользователям-дятлам.

[werrey]

Большое спасибо!
Первый вопрос решился легко.
А вот со вторым вопросом (Как сделать, чтобы у клиентов не моргал список Ников в ListView при подключении нового клиента, когда их много?) - что-то мне не разобраться. Если не трудно Вам и будет время, напишите подробный примерчик пожалуйста.

Заранее благодарю.

[Beermonza]

Подробно могу дать только теоретически, а код придется написать самостоятельно.

Выход на уровень индексов записи и содержимого строки: UserListView.Items.Item[n].Caption

n - счетчик записей. Смотрим прием строки пользователей у клиента, это событие сокета ClientSocketRead, обработка значения 2 в case. Очистка списка UserListView.Items.Clear уже не понадобится, разве что только при отключении/переподключении клиента. Заполнение списка строками происходит вот здесь:

// добавим в UserListView строку
UItems := UserListView.Items.Add;
UItems.Caption := Copy(nettext, pos, x-1);

Нужна проверка Count (число записей) списка UserListView, если он больше текущего значения n, значит обращение к записи по индексу возможно, меняем Caption и добавляем к n единицу, ...если меньше, то нужно добавлять запись. Всегда имеем в виду, что Count содержит число фактических записей, а обращение через Item[n] начинается с 0.

По окончании цикла замены Caption списка нужен нисходящий цикл от конечной записи (Count-1) до последней заполненной по списку (n) с удалением записи из списка.

[saturn63]

Попробовал сделать чат. Всё сделал как в описании, а друзья не могут ко мне к серверу подключиться. Всё также - вводят мой IP и порт сервера, а им пишет Ansychrous socket error 10060
Что не так? В чём ошибка?
Подскажите пожалуйста!

[Beermonza]

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

Попробовал сделать чат. Всё сделал как в описании, а друзья не могут ко мне к серверу подключиться. Всё также - вводят мой IP и порт сервера, а им пишет Ansychrous socket error 10060
Что не так? В чём ошибка?
Подскажите пожалуйста!

Большая вероятность, что ваш IP-адрес маскирует провайдер. Для удачного коннекта сервер должен быть на белом IP-адресе, спросите у повайдера.

[skew]

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

Попробовал сделать чат. Всё сделал как в описании, а друзья не могут ко мне к серверу подключиться. Всё также - вводят мой IP и порт сервера, а им пишет Ansychrous socket error 10060
Что не так? В чём ошибка?
Подскажите пожалуйста!

тоже самое получается. сам к себе присоединяюсь на внутренний IP а друзья не могут

[belovchik]

Доброго времени суток! интересует существует ли в исходнике шифрование(если да, то какой тип) сообщений? а если нет, то как можно подобное бы реализовать? заранее спасибо

[Shouldercannon]

Какую систему защиты можно сделать для данного чата при массовом вылете клиентов? Например, в чате есть 10 человек и я вытаскиваю сетевой кабель из ПК, где находится сервер, после чего вываливается куча ошибок и в конце выходит самая главная ошибка, после чего сервер падает с окном о завершении работы.
Отлов ошибок сокета

procedure TFormMain.SocketException(Sender: TObject; Error: Exception);
begin
  if (Error.ClassName = 'ESocketError') then
  begin
    UpdateUserMas;
    UpdateUserList;
  end
  else SLError.Add(Format('%s - %s', [FormatDateTime('dd.mm.yyyy hh:mm:ss', Now), Error.Message]));
end;

[Beermonza]

Перехват ошибок приложения в сообщении #69