在软件运行过程中，如果出现意外的错误，如何记录下此错误的信息？(50分)

D

dana

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-19

• #1

在软件运行过程中，如果出现意外的错误，如何记录下此错误的信息？

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-19

• #2

只要不是致命错误,都可能在Application.OnException事件中拦下,
在此事件中写代码把错误信息写入日志文件.

 

Y

yxjdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-19

• #3

exception.message

 

D

dana

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-19

• #4

Application.OnException事件如如何拦下，能否给个代码？

 

P

Puma Wang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-19

• #5

加一个 ApplicationEvents1 控件，
在 TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
事件里 e.Message 可以粗略地知道发生的错误。可以把它写入数据库。
<完>

 

D

dana

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-20

• #6

可是并不知要发生什么错误啊，如何写？

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-20

• #7

procedure Application_Error(Sender: TObject; E: Exception); {程序执行错误时进行提示、处理}
在启动的时候将OnException指向Application_Error，然后在Application_Error里面进行处理
Application.OnException := Application_Error;

procedure TFrmM_Design.Application_Error(Sender: TObject; E: Exception);
begin
ShowMessage(E.Message);//这里你可以将错误显示出来，也可以写入文件
Raise; //如果你想弹出Delphi自己的错误处理对话框，则加上这句话，否则，出错也没有提示了。
end;

 

D

dana

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-26

• #8

多人接受答案了。