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

[Beermonza]

Ну, можно и так, хотя если используется процедура ShowColorMassage({текст},{индекс}), то достаточно написать так:

text:=Socket.ReceiveText();
ShowColorMassage(text,0);

...если клиент правильно сформировал заголовок, то цвет и стиль текста выведется автоматически.
Если же у вас нет специальной процедуры, тогда перед каждым выводом сообщения, нужно прописать параметры шрифта и присвоить текст в текущую ячейку:

ChatRichEdit.SelAttributes.Name
ChatRichEdit.SelAttributes.Size
ChatRichEdit.SelAttributes.Color
ChatRichEdit.SelAttributes.Style
ChatRichEdit.SelText

[ToBad]

Здравствуйте !
Большое спасибо за Ваш проект и предоставленные исходники.
Так как изучать работу сокетов начал именно на этих исходниках, хочу спросить совета как решить возникшую проблему.
Я добавил автоконнект клиентов через 3 секунды после потери связи с сервером. Проверяю всё на одном компе локально. Клиентов запускаю батником 7-10 штук. Имя генерируется рандомоно, длиной 6 символов.
Проблема состоит в том, что при отключении сервера и повторном включении, один раз на 5-7 включений, при опросе имён клиентов происходит сбой. Я в мемо записываю все передачи и приём, и вот что происходит не правильно:
1) Сервер регистрирует многочисленные подключения.
2) Он рассылает 1 для опроса имени в каждый канал.
3) Клиент получает 1 и отправляет свой ник. Размер строки 7 символов. (Я убрал шрифты и цвета).
4) Сервер проверяет каналы и получает ответы. В идеале должно придти 7 отправленных символов. Проверяю так же с помощью ServerSocket.Socket.Connections[i-1].ReceiveLength, но на некоторых каналах длинна полученной строки удвоена. Причём ReceiveLength тоже указывает на удвоеный размер приёма.

С чем может быть связана эта проблема ? При 30 подключениях ошибка выскакивает постоянно, пакеты приходят не только удвоенные, но и утроенные.

[Beermonza]

ToBad, у TCP/IP есть одна особенность, если вы подряд отправите три пакета, это не означает, что они придут как три пакета и обработаются каждый в отдельности, ...для снижения нагрузки на сеть эти три пакета могут объединиться в один, без нашего вмешательства, и соответственно, размер пакета будет в три раза больше, и обработаются только первые несколько байт по шаблону, остальные будут либо проигнорированы, либо сочтутся за команду и выскочит ошибка, если программист этого не предусмотрел. В своем примере я вообще ничего не предусматривал, поскольку это дело уже каждого лично, гораздо большую пользу имеет сам способ организации связи. Решение тут простое, введите в шаблон команды после байта индекса - байт длины пакета, напишите процедуру, которая принимает на обработку пакеты любой длины и вырезает из них отдельные команды. Принцип примерно такой:
1) передаем пакет;
2) смотрим первый байт, определяем команду;
3) смотрим следующий байт, определяем длину части;
4) вырезаем команду из пакета, обрабатываем;
5) если весь пакет больше длины вырезанной части, переходим к этой части и выполняем с пункта 2.

Обратите внимание, что при подключении нового пользователя идет опрос всех уже присутствующих. Здесь нужно строго следить, чтобы прием и отправка по одному взятому каналу выполнялась в нужной последовательности.

[ToBad]

Beermonza, спасибо за быстрый ответ !
Насчёт длины пакета - так и сделаю, но странно то, что неправильные данные просто дублируются 2-3 раза. То есть сервер посылает 3 запроса на Comp1-Copm3, а в ответ получает тоже 3 пакета, но такого вида:
1Comp1
1Comp21Comp2
1Comp3

Попробую передавать длину, это должно помочь. Ещё хотел бы спросить, какие неприятности могут ожидать при большом числе клиентов, например 150-200. У длины передаваемой строки есть ограничение в 255 символов ? Можно ли избежать опроса всех пользователей при коннекте или дисконнекте нового ? Есть ли возможность формировать и изменять юзер лист при срабатывании ServerSocketClientConnect и ServerSocketClientDisconnect ? Как это лучше реализовать ? Я в сокетах очень большой новичёк...

[Beermonza]

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

Насчёт длины пакета - так и сделаю, но странно то, что неправильные данные просто дублируются 2-3 раза. То есть сервер посылает 3 запроса на Comp1-Copm3, а в ответ получает тоже 3 пакета, но такого вида:
1Comp1
1Comp21Comp2
1Comp3

Ищите ошибки в клиентской части, ваша система рандомайза возможно дает сбой, и шлет вместо одного пакета несколько, или каким-либо образом дублирует пакет перед отправкой. Сервер не может дублировать данные, он их только пересылает по числу каналов, строго одну копию в каждый, не более того.

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

Ещё хотел бы спросить, какие неприятности могут ожидать при большом числе клиентов, например 150-200.

Данная система достаточно устойчиво должна работать, независимо от числа пользователей. Таймер задает интервал опроса, если пользователей будет много и они будут то подключаться, то снова отключаться, можно будет заметить медлительность обновления информации. Используйте управление интервалом, по принципу "чем больше пользователей, тем меньше интервал".

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

У длины передаваемой строки есть ограничение в 255 символов ?

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

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

Можно ли избежать опроса всех пользователей при коннекте или дисконнекте нового ?

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

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

Есть ли возможность формировать и изменять юзер лист при срабатывании ServerSocketClientConnect и ServerSocketClientDisconnect ? Как это лучше реализовать ? Я в сокетах очень большой новичёк...

Эта система обновления уже встроена, на событиях ServerSocketClientConnect и ServerSocketClientDisconnect назначен флаг UpdDo обновления, который разрешает обновлять список пользователей в конце процедуры опроса.

// разрешение на выполнение процедур обновления
  If UpdDo=True then
    Begin
// обновляем массив пользователей
      UpdateUserMas;
// обновляем список пользователей
      UpdateUserList;
// блокируем разрешений
      UpdDo:=False;
    end;

[ToBad]

Beermonza большое спасибо за подсказки !

[bankir82]

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

[parinoff]

Привет всем! Отличная прога! Спасибо!

Но у меня возник вопросик как разнести сервер и клиент по разным приложениям?!
Напишите пожалуйста принцип.

Заранее спасибо!

[Beermonza]

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

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

Создайте еще один таймер, в его теле запишите подключение:

procedure TForm1.ConnectTimerTimer(Sender: TObject);
begin
  ClientSocket.Active := True;
end;

Теперь нужен перехват ошибок сокета. Напишем собственную процедуру:

procedure TForm1.ClException(Sender: TObject; Error: Exception);
begin
  If (Error.ClassName = 'ESocketError') then
    Begin
      // снова пытаемся подключиться через таймер 1 раз в секунду
      ConnectTimer.Enabled := True;
      // меняем надпись клавиши
      ClientBtn.Caption:='Ожидание...';
    end
  else Application.ShowException(Error);   // ошибки не сокета пусть показывает
end;

Добавим в FormCreate связку с процедурой обработки ошибок:

procedure TForm1.FormCreate(Sender: TObject);
begin
// пусть обработка ошибок идет через специальную процедуру
  Application.OnException := ClException;

  ...

Процедура обработки соединения клиентского сокета теперь выглядит вот так:

procedure TForm1.ClientSocketConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
// добавим в ChatRichEdit сообщение о соединении с сервером
// сразу зададим параметры шрифта (Arial, 8, красный, курсив)
  ShowColorMassage('00119['+TimeToStr(Time)+']  Подключение к серверу.', 2);
// подключаться больше не нужно
  ConnectTimer.Enabled := False;
// меняем надпись клавиши
  ClientBtn.Caption:='Отключиться';
end;

Вместо запуска сокета в процедуре клавиши ClientBtn будет запуск таймера:

procedure TForm1.ClientBtnClick(Sender: TObject);
begin
  If ClientBtn.Tag=0 then
    Begin
      ...
      // запускаем клиента
      ConnectTimer.Enabled := True;
      ...

Интервал у ConnectTimer ставим 1000 мс (можно больше), по-умолчанию он выключен (Enabled = False).

[Beermonza]

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

... как разнести сервер и клиент по разным приложениям?! Напишите пожалуйста принцип.

Достаточно просто. Программа и сейчас является клиент-серверной. Вам не нужны будут коды управления клиентским сокетом и некоторые его клавиши. Нужно сделать копию с архива, зайти в среду Delphi и вырезать все, что связано с ClientSocket для серверной части, и в другом проекте вырезать все, что связано с ServerSocket для клиентской части.