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

[Shouldercannon]

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

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

Такое имеется, я как раз привёл код в посте. Не выдерживает этот обработчик или где-то есть другая лазейка.

[Beermonza]

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

Такое имеется, я как раз привёл код в посте. Не выдерживает этот обработчик или где-то есть другая лазейка.

Не такое. Ты отлавливаешь только ошибки сокета, ...в примере отлавливаются ошибки приложения, но обрабатываются только сокетные. Легко можно добавить обработку любых ошибок приложения.

[Shouldercannon]

Так делаю отлов всех ошибок приложения

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;

Для сокетных ошибок определённые действия, а все остальные просто добалвяю в StringList (лог-файл). Получается что в else нужно ловить ошибку, которая рояет сервер?

[Beermonza]

Shouldercannon, ты выполняешь SocketException только для сокетов, а если вылетают ошибки приложения (обращения к спискам, памяти и пр., не синхронизации сокетов), то твоя процедура не выполняется. В примере Application.OnException, ...посмотри внимательно.

[Shouldercannon]

Сравним

// Ваш код
...
procedure SocketException(Sender: TObject; Error: Exception);
  private
    { Private declarations }
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  // пусть обработка ошибок идет через специальную процедуру
  Application.OnException := ClException;
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;

// Мой код
...
procedure SocketException(Sender: TObject; Error: Exception);
  private
    { Private declarations }
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := SocketException;
end;

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]

Shouldercannon, прошу прощения, я не увидел где ты прописал привязку, подумал на какую-то процедуру, которой я не встречал, ...мало ли.

В секции Else прописывай обработку другого типа ошибок приложения.

С наступающим Новым Годом!

[Shouldercannon]

Вот та самая ошибка из-за которой падает сервер и она относится к сокетным, в ответ на эту ошибку я обновляю список юзеров. Ил я не в ту сторону смотрю?

[Beermonza]

Запуск из под Delphi? ...или самостоятельно через исполнительный файл?

...если что, завтра посмотрим.

[Shouldercannon]

Запуск из под Delphi

[Beermonza]

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

Запуск из под Delphi

Среда и будет показывать ошибки, ...перехват происходит только при непосредственном запуске исполнительного файла.