呼唤高手！异常处理！

[kevin_gao]

想在程序中搞一个统一的异常处理机制，报错可以统一起来，就如同微软和QQ那样，出错之后可以有报告机制，提示是否发送错误什么的，然后统一进行错误代码定义。 有没有比较好的经验介绍？ 或者相关的源码？ 小弟跪谢！

[GoldShield]

哈,你两个是不是另有企图啊^_^

.....
开玩笑的

[bigery]

不会有玻璃的。。。。。吧！hoho

[kevin_gao]

严重鄙视楼上三位灌水的人！

[ssq237712]

根据常见错误类型整一堆错误常量，然后在异常捕获中写个函数统一处理就是了。

[aiirii]

ApplicationEvents1 的 onException 事件

[aiirii]

http://www.eurekalog.com/

http://www.madcodehook.com/

上面的現成的, 已經完成你要的東西, 安裝後直接用就可

[Kevin_Lmx]

-_-#
楼主，怎么你的名字跟偶的这么相似……

[surpassable]

帮搂主顶~~~~~~~~~~~

[beyondtkl]

可以的。。

一般可以運用 delphi自己的異常機制，可以得到出錯得源碼所在文件名，大致行數(不是特別精確),客戶端機器名，時間等等，當然你還可以

定義其它得信息，尤其是數據庫錯誤得話，還可以獲得數據庫返回得錯誤代碼，可以自己進行解析，比如說從英文提示信息到中文提示信息得

翻譯等 我以前是這麼處理得:

try

except
on E: Exception do
begin
try
Assert(False);
except
on E1: Exception do
CommErrLogU.GetAssertInfo(e1.Message, FormName, Line); // here: 獲得出錯得文件名，函數等
end;
CommErrLogU.DealException('1', FormName, Line, e.Message); // here: 獲得數據庫得出錯代碼，信息等，並寫到數據庫或者文件
Exit;
end;
end;