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

[Shouldercannon]

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

Юзер, которого нет в сети не может иметь иконку, он не подключен к серверу, его нет в списке пользователей, ...андерстенд?

Ясное дело, что если нет юзера, то нет и иконки
Допустим такая ситуация. Я открыл форму приватных сообщений и у меня в адресате ник юзера, который только что вышел, но я об этом не знаю и шлю ему сообщения. Как быть в этом случае, если вариант с offline юзерами отпал?

[Beermonza]

Если в списке пользователей нет того, кто ранее прислал приват, стало быть его нет в сети, ...или список пользователей нужен только серверу?

[Shouldercannon]

Уже доходит до смешного. Вообще можно реализовать Offline сообщения?

[Beermonza]

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

Уже доходит до смешного. Вообще можно реализовать Offline сообщения?

Ну, дык, смешным проблемам - смешное решение. Для Off-line нужен массив, файлы, и система обработки и записи, ...вспоминайте структуру ICQ, Qip, там есть каталог, все сообщения записываются в файлы, выводятся по открытию программы. Это может быть на сервере как основное, и у клиента как лог. Для вас будет сложно.

[Shouldercannon]

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

Ну, дык, смешным проблемам - смешное решение. Для Off-line нужен массив, файлы, и система обработки и записи, ...вспоминайте структуру ICQ, Qip, там есть каталог, все сообщения записываются в файлы, выводятся по открытию программы. Это может быть на сервере как основное, и у клиента как лог. Для вас будет сложно.

Понял. Вопросов больше по данной теме (offline сообщения) не имею

Юзеры умудряются равершать работу программы, что та в свою очеред не можнт послать на сервер событие Disconnect и из-за этого сервер ждёт пока все юзеры снова авторизуются для рассылки списка юзеров. Может на OnDestroy поставить событие ClientSocket.Active := False;

С ListView можно перед записью вывести несколько иконок?

[Beermonza]

Закрытие клиента кнопкой Reset на системном блоке не исключена, как и завершение процесса с "Диспетчера задач". Это явление редкое, поэтому нужно настроить на опрос клиентов на авторизацию в событии сервера OnClientError, всех поголовно, и создать полный список пользователей, т.е. UpdMas := True;

Есть еще момент, вот обработка ошибок:

procedure TForm1.ClException(Sender: TObject; Error: Exception);
begin
  if (Error.ClassName = 'ESocketError') then
    begin
      // Снова пытаемся подключиться через таймер 1 раз в 5 секунд
      StatusBar1.Panels[1].Text := '';
      StatusBar1.Panels[2].Text := '[' + TimeToStr(Now) + '] Ожидание подключения к серверу...';
      UserListView.Clear;
      ConnectTimer.Enabled := True;
    end
    else
      Application.ShowException(Error); // Ошибки не сокета пусть показывает
end;

Обработка касается любых ошибок, и не только клиентского сокета. Надо бы внести изменения:

procedure TForm1.ClException(Sender: TObject; Error: Exception);
begin
  if (Error.ClassName = 'ESocketError') then
    begin
      If ClientBtn.Tag = 1 then
        Begin
          // Снова пытаемся подключиться через таймер 1 раз в 5 секунд
          StatusBar1.Panels[1].Text := '';
          StatusBar1.Panels[2].Text := '[' + TimeToStr(Now) + '] Ожидание подключения к серверу...';
          UserListView.Clear;
          ConnectTimer.Enabled := True;
        end;  
    end
    else
      Application.ShowException(Error); // Ошибки не сокета пусть показывает
end;

ListView не поддерживает несколько иконок. Можно сделать все варианты, рисунков не много.

[Shouldercannon]

Не совсем понял момент

begin
      If ClientBtn.Tag = 1 then
        Begin

что он даст?

[Beermonza]

Секция:

// Снова пытаемся подключиться через таймер 1 раз в 5 секунд
StatusBar1.Panels[1].Text := '';
StatusBar1.Panels[2].Text := '[' + TimeToStr(Now) + '] Ожидание подключения к серверу...';
UserListView.Clear;
ConnectTimer.Enabled := True;

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

[Shouldercannon]

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

Секция:

// Снова пытаемся подключиться через таймер 1 раз в 5 секунд
StatusBar1.Panels[1].Text := '';
StatusBar1.Panels[2].Text := '[' + TimeToStr(Now) + '] Ожидание подключения к серверу...';
UserListView.Clear;
ConnectTimer.Enabled := True;

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

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

[Beermonza]

Процедура все равно нужна, а секция нет.