Delphi多线程学习（2）：Delphi中的多线程类TThread。

2010-02-22 17:08:46

Delphi把多线程相关的API封装在TThread这个类中，可以方便实现多线程运用。首先看下TThread的声明：

TThread = class private FHandle: THandle; FThreadID: THandle; FCreateSuspended: Boolean; FTerminated: Boolean; FSuspended: Boolean; FFreeOnTerminate: Boolean; FFinished: Boolean; FReturnValue: Integer; FOnTerminate: TNotifyEvent; FSynchronize: TSynchronizeRecord; FFatalException: TObject; procedure CallOnTerminate; class procedure Synchronize(ASyncRec: PSynchronizeRecord); overload; function GetPriority: TThreadPriority; procedure SetPriority(Value: TThreadPriority); procedure SetSuspended(Value: Boolean); protected procedure CheckThreadError(ErrCode: Integer); overload; procedure CheckThreadError(Success: Boolean); overload; procedure DoTerminate; virtual; procedure Execute; virtual; abstract; procedure Synchronize(Method: TThreadMethod); overload; property ReturnValue: Integer read FReturnValue write FReturnValue; property Terminated: Boolean read FTerminated; public constructor Create(CreateSuspended: Boolean); destructor Destroy; override; procedure AfterConstruction; override; procedure Resume; procedure Suspend; procedure Terminate; function WaitFor: LongWord; class procedure Synchronize(AThread: TThread; AMethod: TThreadMethod); overload; class procedure StaticSynchronize(AThread: TThread; AMethod: TThreadMethod); property FatalException: TObject read FFatalException; property FreeOnTerminate: Boolean read FFreeOnTerminate write FFreeOnTerminate; property Handle: THandle read FHandle; property Priority: TThreadPriority read GetPriority write SetPriority; property Suspended: Boolean read FSuspended write SetSuspended; property ThreadID: THandle read FThreadID; property OnTerminate: TNotifyEvent read FOnTerminate write FOnTerminate; end;

由于TThread是一个抽象类，所以不能直接创建实例，要创建其派生类的实例。

一般的使用流程是这样的：

1、先新建一个以TThread为父类的派生类；

2、覆写构造函数，将特定的参数传递进来，保有存为类的私有变量；

3、覆写Execute方法，将线程要实现的操作放到这个过程中；

4、如果需要与主线程VCL同步的话，调用Synchronize方法；

5、Execute执行完后线程自行终止，如果指定了终止事件则执行OnTerminate指定的过程。

      来一个例子：主窗体上画一个位图BitMap，点击Button1就创建一个线程，线程在位图左边逐像素拷贝出一个相同的位图，同时主窗体的进度条显示拷贝的进度。点击Button2可以随时中止这个拷贝线程。线程中止后，执行一个自定义的中止事件。

 

unit Demo; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls; type TForm2 = class(TForm) Button1: TButton; ProgressBar1: TProgressBar; Button2: TButton; Edit1: TEdit; procedure FormCreate(Sender: TObject); procedure FormPaint(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure TerminatedProc(Sender:TObject);//线程终止时执行的过程 private { Private declarations } public { Public declarations } end; type TCopyThread = Class(TThread) private FPoint:TPoint; procedure UpdateProgressBar; //用于同步主线程的进度条 protected procedure Execute;Override; public Constructor Create(p:TPoint); End; var Form2: TForm2; CopyThread:TCopyThread; implementation {$R *.dfm} var BitMap:TBitMap; {TForm2类} procedure TForm2.Button1Click(Sender: TObject); var p:TPoint; begin p.X:=BitMap.Width; P.Y:=0; CopyThread:=TCopyThread.Create(p); CopyThread.OnTerminate:=TerminatedProc;//指定线程终止时执行的过程 ProgressBar1.Max:=BitMap.Width*BitMap.Height; ProgressBar1.Position:=0; end; procedure TForm2.Button2Click(Sender: TObject); begin if Assigned(CopyThread) then begin CopyThread.Terminate; end; end; procedure TForm2.FormCreate(Sender: TObject); begin BitMap:= TBitmap.Create; BitMap.LoadFromFile('c:/car.bmp'); end; procedure TForm2.FormDestroy(Sender: TObject); begin BitMap.Free; end; procedure TForm2.FormPaint(Sender: TObject); begin Self.Canvas.Draw(0,0,BitMap); end; procedure TForm2.TerminatedProc; begin MessageBox(Handle,'线程已终止','提示信息',MB_OK); end; { TCopyThread类 } constructor TCopyThread.Create(p: TPoint); begin FPoint:=p; inherited Create(False); end; procedure TCopyThread.Execute; var i,j:Integer; dot:TColorRef; DC:HDC; begin FreeOnTerminate:=True; //线程执行完后自动释放对象资源 DC:=GetDC(Form2.Handle); for i := 0 to BitMap.Width - 1 do for j := 0 to BitMap.Height - 1 do if not Terminated then //如果线程没有终止（放上这句为了随时可以终止线程） begin //为了执行时间久一点，所以逐个像素拷贝 dot:=GetPixel(DC,i,j); SetPixel(DC,i+FPoint.X,j+FPoint.Y,dot); Synchronize(UpdateProgressBar); //与主线程VCL同步 end; end; procedure TCopyThread.UpdateProgressBar; begin Form2.ProgressBar1.Position:=Form2.ProgressBar1.Position+1; end; end.

说明：1、线程类可以单独放在一个单元中，与主窗体互相Uses。

         2、线程类的Create构造函数中，可以根据需要传入多个任意类型的参数，而不像CreateThread这个API函数中只能传入一个指针。

         3、线程的Excecute过程中，最好加上if not Terminated then 不停地检查是线程是否被终止，这样可以在线程未执行完成前终止线程。

         4、Synchronize过程，与主线程VCL同步，其实其中的方法是由主线程来执行的，所以Synchronize的参数方法UpdateProgressBar执行的越少越好。不要将执行耗时的操作放到这里，否则跟单线程一样，窗体会“死”掉。可以试验一下，将像素拷贝工作这个循环放到UpateProgressBar过程里，这样执行的时候，无法再进行其他操作（如Edit框中输入东东）。

         5、线程的OnTerminate指定的子程序，应该是主线程的成员，因为它是由主线程执行的。这个子程序必须加入相应的参数格式如（Sender :TObject），否则不能编译通过。

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/asciil/archive/2009/07/17/4355888.aspx