Delphi——Application.OnException

最新推荐文章于 2021-07-20 00:02:10 发布
原创 最新推荐文章于 2021-07-20 00:02:10 发布
· 544 阅读 · 1 ·
版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#delphi

本文介绍了如何在 Delphi 应用程序中使用 Application.OnException 事件来捕获和处理异常。通过在窗体创建时设置 Application.OnException 为自定义的处理函数，当程序发生异常时，可以显示异常信息并终止应用。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

1）窗体设计
在这里插入图片描述
2）窗体展示
在这里插入图片描述
在这里插入图片描述
3）代码：
unit Unit5;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm5 = class(TForm)

btn1: TButton;

procedure FormCreate(Sender: TObject);
procedure btn1Click(Sender: TObject);

private
procedure AppException(Sender: TObject; E: Exception);
end;

var
Form5: TForm5;

implementation

{$R *.dfm}

type
MyException = Class(Exception);

procedure TForm5.FormCreate(Sender: TOb

最低0.47元/天 解锁文章
【Delphi 基础知识 21】on E: Exception do 异常处理
记录日常技术经验
01-17 769
这种结构的目的是在程序执行过程中，如果发生了try块中的代码引发的异常，程序会跳转到相关的except块，执行异常处理代码。: 这是处理异常的实际代码块，包含了对异常的处理逻辑。: 这是一个异常处理的标识符，E 是一个变量，它会引用实际的异常对象。Exception 是基础的异常类，它是所有异常的祖先类。是用于处理异常的语法结构。这是一个异常处理块，用于捕获并处理发生在try块中的异常。: 当try块中的代码引发异常时，程序会跳转到这里来处理异常。: 这是一个关键字，表示接下来的代码块可能引发异常。
delphi线程异常处理_Delphi异常处理中的异常处理
cumao2792的博客
09-12 890
delphi 打印异常处理 Here's an interesting fact: No code is error free — in fact, some code is full of "errors" on purpose. 这是一个有趣的事实：没有代码没有错误-实际上，某些代码故意充满了“错误”。 What's an error in an application? An err...
application-defined exception
weixin_34211761的博客
04-09 881
dataSnap服务器，客户端调用的时候写错了一句话， SQLConnection1->CloneConnection(); 改为 SQLConnection1->Close();   就好了，查了一天。 调试的时候报错，还能继续运行，在服务器上crash崩溃退出。"Project ... faulted with message: 'application-defined...
学习官方示例 - TApplication.OnException
weixin_33698823的博客
09-26 206
为什么80%的码农都做不了架构师？>>> ...
delphi OnException捕捉全局异常错误的方法
qq_33577118的博客
07-20 1244
软件总有想不到的异常发生，比如网络访问不了。。。 如果系统弹出错误窗体，软件有可能就会终止运行，特别是那些不是人工守着的软件，这个delphi源代码就让所有的窗体显示在软件本身的文本框中，而不能让它弹出来，软件不会中断将继续运行！ private { Private declarations } public procedure GlobalExceptionHandler(Sender: TObject; E: Exception); { Public declarations }
请用中文详细解释一下这段代码的编程逻辑和作用： @Override public void doAfterAllAnalysed(AnalysisContext context) { try { if (this.hasError || this.interrupt) { return; } this.setProcess(100); if (this.requireTransaction()) { TransactionStatus transactionStatus = TransactionUtil.getTransaction(); try { this.afterAllAnalysed(context); TransactionUtil.commit(transactionStatus); } catch (Throwable throwable) { TransactionUtil.rollback(transactionStatus); if (throwable instanceof Exception) { try { this.onException((Exception) throwable, context); } catch (Exception e) { throw new RuntimeException(e); } } throw throwable; } } else { this.afterAllAnalysed(context); } try { this.doComplete(); } catch (Exception e) { try { this.onException(e, context); } catch (Exception ex) { throw new RuntimeException(e); } } } finally { ExcelImportUtil.finished(this.taskId); } }
06-01
- `this.onException((Exception) throwable, context)`：执行 `onException` 方法。 - `throw new RuntimeException(e)`：抛出运行时异常。 - `throw throwable`：抛出错误。 - `else`：如果不需要事务处理，则...
if (mInstrumentation == null || 1399 !mInstrumentation.onException(mReceiver, e)) { 1400 Trace.traceEnd(Trace.TRACE_TAG_ACTIVITY_MANAGER); 1401 throw new RuntimeException( 1402 "Error receiving broadcast " + intent 1403 + " in " + mReceiver, e); 1404 }
06-03
这段代码看起来像是 Android 的广播接收器相关的代码。具体来说，它检查 `mInstrumentation` 是否为空，如果是，则抛出一个运行时异常。否则，它将使用 `mInstrumentation` 对象处理异常，并尝试结束跟踪。...
让Delphi改变系统提示信息..rar
05-12
5. **自定义错误处理**：通过重写Application.OnException事件，可以在程序发生错误时显示自定义的错误信息，而不是系统默认的错误对话框。 6. **使用第三方组件库**：还有一些第三方库，如DevExpress、TMS ...
Delphi开发入门教程简述.docx
最新发布
03-26
- **实践**: 在应用程序启动时设置Application.OnException事件，以便处理所有未被捕获的异常。 #### 六、VCL使用技巧 1. **利用TThread进行多线程编程** - **解释**: 多线程编程可以提高应用程序的响应速度。 -...
delphi 异常处理和程序检错
09-16
（tw繁体文档）详细讲解delphi异常处理机制，程序错误检查方法，有代码实例。常见的异常处理do...except( on Exception do)...end,自定义异常处理。
delphi APPLICATIONEVENTs使用
03-22
TApplication.OnIdle 　　当应用程序变为空闲时，OnIdle事件发生。 　　使用OnIdle事件，可以写一个应用程序空闲时执行特定处理的事件处理程序。当应用程序不处理代码时，称为应用程序空闲。例如，当应用程序等待来自用户的输入时，应用程序为空闲。 　　TIdleEvent类型是OnIdle事件的类型，它指向一个应用程序空闲时运行的方法。TIdleEvent类型有一个布尔型参数Done,默认时该参数为True。若参数Done为True，当OnIdle事件返回时，调用Windows API WaitMessage函数。只有在应用程序消息队列中出现一个新消息时，WaitMessage函数才放弃对其他应用程序的控制。参数Done为False时，即使应用程序不忙，也不放弃对其他应用程序的控制。 　　当应用程序转移到空闲状态时，只调用一次OnIdle事件。除非参数Done设置为False,否则不连续调用OnIdle事件。将参数Done设置为False的应用程序，将消耗过多的CPU时间，从而影响整个系统性能。 在delphi中， 当在一个窗口上放置一个ApplicationEvents控件时,Application将会把所有的事件都转寄到ApplicationEvents; 也就是说,ApplicationEvents可以拦截到应用程序的全部事件,包括OnActivate\OnHelp\OnIdle\OnRestore\OnShortCut等等, 甚至可能通过OnMessage事件,在其中截取所有post到应用程序中所有窗口的消息,如WM_PAINT,WM_KEYDOWN, WM_KEYUP等常见的windows消息; 所以当有消息到来的时候就会触发它的OnMessage事件，在OnMessage中监视消息就可以了。 Action的事件有OnExecute和OnUpdate，OnExecute事件在控制被触发时响应，比如说按钮被按下，菜单被按下，而OnUpdate事件是在应用程序空闲时被调用， APPLICATIONEVENTS是用来捕获程序级事件的 ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean); {通过　Perform　向窗体发送 消息;　OnMessage　收不到} {通过　SendMessage　向窗体发送 消息;　OnMessage　收不到} {通过　PostMessage　向窗体发送　 消息;　OnMessage　可以收到}
Delphi 的Application
木木
08-16 9647
TApplication是用于Delphi应用程序的类型，该类在单元forms中声明。TApplication是Delphi构造 Windows应用程序所需的类型，其方法和属性集中包括了 Windows操作系统中创建、运行和销毁应用程序等既定的基本操作和属性，因此在用Delphi编写 Windows应用程序时简化了用户和Windows环境之间的借口。    TApplication封装了以下功能：
请帮忙看看这Delphi代码是哪里出错了!!!!
peng7513的专栏
04-26 628
代码如下:program gzglxt; uses  Forms,  main in main.pas {Main_Form},  login in login.pas {Login_Form},  usergl in usergl.pas {usergl_Form},  password in password.pas {password_Form},  yggl in ygg
Delphi 2010，在主窗体中使用Application.ProcessMessages提示错误的解决办法
一名Delphier
03-30 1968
<br />先上图<br /><br />这是structure面板里提示的错误。我们知道ProcessMessages是Forms单元的全局变量Application的成员，但是这里引用了Forms单元，为什么还照样提示这个错误呢？发现编译的时候照样会通过，就是这个提示搁那儿硌应人。更有意思的，这提示只在主窗体为活动编辑窗口时才有，在其它单元里，就没有。<br />可能是IDE的bug吧。<br />不管这么多，前面加多了一个Forms，即Form.Application.ProcessMessages，
截获Delphi中的异常
zgqtxwd的专栏
04-30 682
<!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"
Application_Error VS OnException 遇到的坑
ansui0780的博客
01-07 252
在工作中遇到一个巨坑，就是关于Application_Error和OnException, 本身我的应用程序设置了全局异常OnException处理，手动抛出异常，OnException正常捕捉，但有一次我将一个方法，修改了一下， 结果就诡异了，请求返回状态码一直是500，但是异常并未捕捉到，百思不得其姐，然后就跟踪方法执行过程，发现我的业务代...
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值