如何显示子线程的当前状态

如何显示子线程的当前状态

刚刚完成的一个小程序是分析使用竖向排列的24针打印头打印一个数据文件，分析每根针的出针次数等一些参数，给机械开发部门做寿命分析等等。

由于数据文件可能很大，分析时间会比较长，因此要能够显示分析进度，否则让比人以为程序死掉了那不是人生一大憾事。

因此，分析工作放在子线程中进行，通过产生“状态改变事件”和“分析结束事件”来通知主线程更新状态。线程定义如下：

//==================================

// MyThread.pas

//===================================//

TStatusChangedEvent = procedure (Percent: Integer) of Object; //状态改变事件

TFinishedEvent = procedure of Object; // 分析结束事件

TMyThread = class(TThread)

Private

FOnStatusChanged: TStatusChangedEvent;

FOnFinished: TFinishedEvent;

protected

procedure Execute; override;

public

OnStatusChanged: TStatusChangedEvent read FOnStatusChanged write FOnStatusChanged;

OnFinished: TFinishedEvent read FOnFinished write FOnFinished;

end;

procedure TMyThread.Execute;

var

Percent: Integer;

begin

...

if (Percent 发生了改变) and Assigned(FOnStatusChanged) then

FOnStatusChanged (Percent);

...

// 分析结束

if Assigned (FOnFinished) then

FOnFinished; // 在分析结束时通知主线程

end;

状态显示由一个窗体实现，该窗体有一个进度条，一个状态Label，一个取消按钮，以及一个定时器。定义如下（没有给出进度条、Label、按钮的代码）

//=====================================

// TFrmStatus.pas

//=====================================//

TFrmStatus = class (TForm) // 显示进度的窗体

Timer1: TTimer;

Procedure FormCreate (Sender: TObject);

Private

Procedure SetPercent (Value: Integer);

Procedure SetTerminate (Value: Boolean);

Public

Property Percent: Integer read FPercent write SetPercent;

Property Terminate: Boolean read FTerminate write SetTerminate;

End;

Procedure TFrmStatus. FormCreate (Sender: TObject);

begin

FTerminate := false;

Timer1.enable := false;

end;

procedure TFrmStatus. SetPercent(Value: Integer); // 设置百分比进度

begin

// 设置控件状态以表示当前的百分比进度

end;

procedure TFrmStatus.SetTerminate(Value: boolean;) // 设置结束状态

begin

if FTerminate <> Value then

begin

FTerminate := Value;

Timer1.Interval := 2;

Timer1.Enable := true;

end;

procedure TFrmStatus.Timer1Timer(Sender: TObject); // 响应定时器，关闭窗口，返回mrOk

begin

Close;

ModalResult := mrOk;

end;

//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

主窗体负责创建分析线程和状态显示窗体，并响应分析线程产生的“状态改变事件”和“分析结束事件”。

// 主窗体

TFrmMain := class(TForm)

private

FFrmStatus: TFrmStatus;

procedure DoStatusChange(Percent: Integer); // 响应分析进度改变事件

procedure DoFinished; // 响应分析结束事件

public

procedure Do;

end;

// 运行分析

procedure TFrmMain.Do;

var

MyThread: TMyThread;

FrmStatus: TFrmStatus;

begin

try

MyThread := TMyThread.Create(true);

MyThread.OnStatusChange := DoStatusChange;

MyThread.OnFinished := DoFinished;

try

FrmStatus := TFrmStatus.Create(nil);

FFrmStatus := FrmStatus;

MyThread.Resume; // 启动线程

if FrmStatus.ShowModal = mrOk then

ShowAnalyseResult; // 显示分析结果

finally

FFrmStatus := nil;

FrmStatus.Free;

end;

finally

MyThread.FreeOnTerminate := true;

MyThread.Terminate;

end;

// 响应状态改变事件，显示进度

procedure TFrmMain.DoStatusChange(Percent: Integer)

begin

if FFrmStatus <> nil then

FFrmStatus.Percent := Percent;

end;