编写多线程应用程序.docxVIP

Delphi笔记-多线程序编程?? 2007-12-08 21:20:36|??分类：  HYPERLINK /blog/ \l m=0t=1c=fks_081065083087081066081087074070080080082070085082081 \o Delphi学习笔记 Delphi学习笔记 |??标签： |字号大中小?订阅 ? 线程序是一种操作系统对象，每个Win32应用程序都至少有一个线程，叫做主线程。应用程序中可以自由地创建线程以执行其它任务。线程是以后台方式执行的，并且所有线程都是独立运行的，即使是同一个线程类的多个实例同时运行，它们也是相互独立的。在Delphi中是通过TThread抽象类的派生类来实现多线程的，而不能直接创建TThread的实例。在程序中加入线程有两种方法：1.执行File/New/Others/NewItems/ThreadObject,创建一个包含有新线程的单元。2.直接在程序的单元文件中加入线程类的定义。线程类的定义如下：unit ThreadUnit; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,? Dialogs; type? TForm1 = class(TForm)??? Edit1:TEdit;??? Button1:TButton;??? procedure Button1Click(Sender:TObject);? private??? { Private declarations }? public??? { Public declarations }? end; ? TTestThread=class(TThread)? //线程类的定义? private??? {private declarations}??? Answer:Integer;? protected??? procedure Execute;orverride;? //TThread类的派生类唯一必须覆盖的方法，而且所有的派生类都必须有该方法，线程类的所有实现代码都在该方法中实现的。??? procedure GiveAnswer;? end; procedure TTestThread.GiveAnswer;begin? Form1.Edit1.Text:=IntToStr(Answer);? //对VCL的访问end; procedure TTestThread.Execute;var i:Integer;begin? FreeOnTerminate:=true;? //线程结束时及时消除线程对象，并且线程结束时会触以OnTerminate事件。OnTerminate事件是在主线程中发生的。? OnTerminate:=Form1.ThreadsDone;? //为OnTerminate指定事件处理句柄? for i:=0 todo? begin??? if Terminated then break; //时刻判断用户是否终止线程??? inc(Answer,Round(Abs(Sqrt(i))));??? Synchronize(GiveAnswer);? //将访问VCL的方法放到主线程的环境中执行。? end;end; procedure TForm1.Button1Click(Sender:TObject);var NewThread:TTestThread;begin? NewThread:=TTestThread.Create(false);? //创建新线程。end; TThread的Create被调用时，需要传递一个布尔参数CreateSuspended,当该参数为false时，Create过程会自动调用Execute过程，从而实现线程要完成的功能；当该参数为true时，Create过程不会自动调用Execute过程，线程处于挂起状态，在程序中需要调用Resume()来唤醒线程。之后也可以调用Suspend()来挂起线程。一般情况下，当你调用Create()后，还会有一些TThread属性要求设置。所以，应当把CreateSuspended参数设为True，因为在TThread已执行的情况下设置TThread的属性可能会引起麻烦。当线程对象的Execute过程执行完毕，线程也就结束了。当线程结束时，应当确保将其从内存中消除，可利用将FreeOnTerminate属性设为true来及时消除线程对象。在某些紧急情况下，例如线程代