VPF::Давайте поговорим о глобальной обработки ошибок

Medved

Дата 6.11.2004, 15:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154

Давайте поговорим о глобальной обработки ошибок. Ее приемущества, недостатки, как ее осуществлять и т.д.?

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

Medved

Дата 6.11.2004, 20:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154

Кто-нибудь знает, как правильно реализовывать глобальную обработку ошибок?

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

Alex

Дата 6.11.2004, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Для организации глобального отлова всех необработанных ошибок я пользуюсь событием OnException компонента TApplication

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Medved

Дата 6.11.2004, 20:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154

Я тоже, но есть какие-то ньюнсы ее реализации?

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

Alex

Дата 6.11.2004, 21:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

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

А вот собственно и мой шаблон

Код


uses
  Classes, Forms, SysUtils, Appevnts;

type
  TerrGl = class(TObject)
    ap: TApplicationEvents;

    constructor Create;
    destructor Destroy; override;

    procedure LogException(Sender: TObject; E: Exception);
end;

var
  errGl: TerrGl;

implementation

{ TerrGl }
// Отлов ошибок /////////////////////////////////////////////////////
constructor TerrGl.Create;
begin
  inherited;
  ap:= TApplicationEvents.Create(nil);
  ap.OnException:= LogException;
end;

destructor TerrGl.Destroy;
begin
  FreeAndNil(ap);
end;

procedure TerrGl.LogException(Sender: TObject; E: Exception);
begin
  try
     .... 
     Здесь запись в лог
     ....
      Application.ShowException(E);
    finally
      Free;
    end;
    
  except on e:Exception do
    Application.ShowException(E);
  end;
end;
/////////////////////////////////////////////////////////////////////

initialization
  errGl:= TerrGl.Create;

finalization
  if Assigned(errGl) then FreeAndNil(errGl);

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »