delphi 捕捉屏幕异常特殊处理
2017-06-30 17:33
267 查看
Application.OnException := BSException;//异常捕捉
procedure TfmClient.BSException(Sender: TObject; E: Exception);
begin
// EOSError System Error. Code: 5. 拒绝访问。.
if Pos('System Error. Code: 5.',e.Message) > 0 then
abort;
//由于窗体在数据未取到时关闭,就会出在该模块的地址错误。
if Pos('dsnap70.bpl',e.Message) > 0 then
abort;
if Pos('Cannot create form. No MDI forms are currently active',e.Message) > 0 then
halt;
ShowMessage(e.Message); //弹出异常信息
end;
procedure TfmClient.BSException(Sender: TObject; E: Exception);
begin
// EOSError System Error. Code: 5. 拒绝访问。.
if Pos('System Error. Code: 5.',e.Message) > 0 then
abort;
//由于窗体在数据未取到时关闭,就会出在该模块的地址错误。
if Pos('dsnap70.bpl',e.Message) > 0 then
abort;
if Pos('Cannot create form. No MDI forms are currently active',e.Message) > 0 then
halt;
ShowMessage(e.Message); //弹出异常信息
end;
相关文章推荐
- delphi 捕捉屏幕异常特殊处理
- 如何实现SQL Server数据库操作中的异常捕捉和处理
- throw在try中抛出异常,然后用catch捕捉并处理这个异常,同时catch也可以再次抛出这个异常
- C# 生成XML时的特殊字符出现异常处理
- Delphi异常处理try except语句和try finally语句用法以及区别
- DELPHI基础教程 第十二章 异常处理与程序调试(一)
- Delphi异常处理与调试
- Delphi 捕捉全屏幕图像
- (JavaCard) JVM的异常控制器原理,以及编译器对finally的特殊处理
- delphi异常信息捕捉
- 服务器端捕捉asmx产生的未处理异常
- Delphi异常处理对话框
- throw在try中抛出异常,然后用catch捕捉并处理这个异常,同时catch也可以再次抛出这个异常
- 基于Delphi的异常处理技术探究
- DELPHI基础教程 第十二章 异常处理与程序调试(三)
- [转]DELPHI程序的调试与异常处理
- Java程序异常处理的特殊情况
- Delphi异常处理的基本原则和方法
- Delphi异常处理try except语句和try finally语句用法以及区别
- 12.Delphi异常处理与程序调试