Delphi编程实现捕捉来自线程里的异常

减小字体 增大字体 作者:佚名  来源:转载  发布时间:2010-11-08 00:12:52

Thread我们进行应用和设计时不可缺少的利器,然而它却不是轻易就可以掌握的。作为一个不可视系统组件,它封装在TThread类中,由于一个子线程可以与主线程同时运行,因此,来自子Thread的异常在主程序里未必能捕捉到,这样,来自子线程的异常就会导致Application的错误甚至是崩溃,也可能造成主程序都结束了,某个Thread还因等待同步对象的信号还在那儿自己运行着。所以,对于有必要进行异常控制的Thread就必须进行异常处理,这个异常处理块最好独立于主程序的异常处理模块。我们都知晓对通常异常的捕获都用一个try..finally块来处理,而对来Thread 的异常也不例外:
procedure TMyThread.Execute;
begin
try
// 在安全区应该做的工作
except 
// 处理所有的异常
end;
end;
  通常,这样的处理可以正常的工作,但却不是恰当的解决方法。我们希望不仅把异常信息传递给用户,而且要求在不影响Thread继续工作的前提下,由Application或系统单元(致命异常)来进一步处理异常。要做这样处理,首先,我们在自己的 Thread 类里定义一个异常对象,由这个对象承载各种要处理的异常类实例。其次,建立响应异常的同步事件。对EAbort消息加以抑制,对来自程序本身的异常由Application处理,对系统级异常,一般交与操作系统来完成。以下是一个简单的异常捕捉应用框架。
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    Procedure RunThread;
  public
    { Public declarations }
  end;

  TBaseThread = class(TThread)
  private
    FException: Exception;
    procedure DoHandleException;
  protected
    procedure Execute; override;
    // 父类函数为虚,在子类再重载其而处理具体事宜
    procedure HandleException; virtual;
  public
  end;

  TMyThread = class(TBaseThread)
  private
    .. .protected procedure Exec;
    override;
    procedure HandleException; override;
    .. .public .. .
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TBaseThread.DoHandleException;
begin
  // 关闭当前主窗体对鼠标的响应
  if GetCapture then
    SendMessage(GetCapture, WM_CANCELMODE, 0, 0);
  // 判断异常的范围并做相应处理
  if FException is Exception then
    Application.ShowException(FException)
  else
    SysUtils.ShowException(FException, nil);
  .. .
end;

procedure TBaseThread.Execute;
begin
  FException := nil;
  try
    .. .
    // 处理一些事情
      except
    // 如果发生了异常
      HandleException;
  end;
end;

procedure TBaseThread.HandleException;
begin
  // 得到当前异常对象
  FException := Exception(ExceptObject);
  try
    // 避免因 EAbort 消息使程序推出
    if not(FException is EAbort) then
      Synchronize(DoHandleException);
  finally
    FException := nil;
  end;
end;

procedure TMyThread.Execute;
begin
  .. .
end;

procedure TMyThread.HandleException;
begin
  .. .
end;

procedure TForm1.RunThread;
begin
  // 为 TMyThread 类创建实例
  with TMyThread.Create(True) do
  begin
    FreeOnTerminate := True;
    Resume;
  end;
end;
...

Tags:

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论