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

[Shouldercannon]

Ошибка сокета на клиенте появляется, когда я убиваю сервер или после того как я снова запускаю сервер и пишу в чат с клиента ов ремя подключения. Тоесть ошибки две.

[Beermonza]

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

Ошибка сокета на клиенте появляется, когда я убиваю сервер или после того как я снова запускаю сервер и пишу в чат с клиента ов ремя подключения. Тоесть ошибки две.

Очень странно, ...у меня с запущенного EXE никаких ошибок сокета не показывает, и не должно, ...процедура отлавливает их. Что у вас за ОС такая? ...у меня работает и на XP и на Vista и на Windows 7, последние две под лицензией, сообщений таких не вылетает.

[Shouldercannon]

Самопальная сборка Windows Zver
1. Ошибка после крушении сервера
2. Ошибка после отправки сообщения во время подключения к серверу (сервер перезапущен)
Была ещё ошибка с 10052
P.S. Ошибки не показываются в самой программе только из под Delphi

[Beermonza]

Тогда это не ошибки, если не показываются не из под Delphi, на то они и отфильтровываются. Проверьте, появляется ли у клиента событие OnError.

[Shouldercannon]

Проверьте, появляется ли у клиента событие OnError.

Event Сокета OnError? Как проверить?

Скачал отсюда версию чата 2.0 и там такая же борода, только после первого отправленного сообщения в режиме ожидания подключения клиент подключился затем второе сообщение прошло нормально.

В прикреплённом файле проект, над которым я проводил эксперимент.

[Beermonza]

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

Event Сокета OnError? Как проверить?

В тело код, чтобы в поле чата добавлялась надпись "Ошибка", ...если появиться в тесте, значит туда перенести запуск таймера переподключения.
Я не знаю почему у вас так реагирует на ошибки сокета ОС.

[Shouldercannon]

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

В тело код, чтобы в поле чата добавлялась надпись "Ошибка", ...если появиться в тесте, значит туда перенести запуск таймера переподключения.
Я не знаю почему у вас так реагирует на ошибки сокета ОС.

procedure TForm1.ClientSocketError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  RichView1.Add('Ошибка', 3);
  RichView1.Format;
end;

Вывелось, когда завершил работу сервера через Диспетчер задач.

И в этом обаботчике по нулям (не переподключается). Таймер переподключения работает исправно (каждые 5 секунд стабильно делает ClientSocket.Active := True;), но при перезапущенном сервере не подключается. Думал маршрутизатор виноват, но и тут облом, даже проброска порта не помогла.

[Beermonza]

Вот так попробуйте:

procedure TForm1.ClientSocketError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  ConnectTimer.Enabled := True;
end;

При коннекте:

procedure TForm1.ClientSocketConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ConnectTimer.Enabled := False;


  ...

end;

В обработке нужна отправка пакета:

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

Так у вас?

[Shouldercannon]

Всё также, только добавил ClientSocket.Socket.SendText('0'); и переподключение сработало. Работает даже без

procedure TForm1.ClientSocketError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  ConnectTimer.Enabled := True;
end;

1. В данной модели чата реально генерировать ID по IP? С ID будет проще управлять клиентами (бан, админка и т.д.).

[Beermonza]

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

1. В данной модели чата реально генерировать ID по IP? С ID будет проще управлять клиентами (бан, админка и т.д.).

Номер канала строго связан с листом коннектов компонента сокета, они нумеруются от 0 и до количества каналов - 1. Если делать событийный опрос и обработку по сокету и указателю (технически нагляднее), то модель защиты, путем построения клиентов в очередь, рушится.