浙江福彩3d走势图
我們來自五湖四海,不為別的,只因有共同的愛好,為中國互聯網發展出一分力!

捕捉來自Thread的異常

2013年04月28日03:40 閱讀: 1644 次

    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 Execu override;
      procedure HandleException; override;
      ...
    public
      ...
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.DFM}

    procedure TBaseThread.DoHandleException;

 

[1] [2] 下一頁

分享到: 更多
藍客門戶
©2001-2019 中國藍客聯盟 版權所有.
關于藍客聯盟歷史宗旨章程技術服務聯系我們藍客社區

浙江福彩3d走势图 腾讯分分彩走势图软件安卓版 巴西球员埃弗顿 安徽快三走势爱乐彩 圣诞奇迹电子 斯特拉斯堡白色相簿 ac米兰5那不勒斯 卡昂鞋 手机吃鸡游戏排行 内蒙古快三走势图49 佩佩赫塔菲发疯