关于delphi线程同步的实例(教材上没有,作该文之前网上也没有)

导读：
　　 (原创)关于delphi线程同步的实例(教材上没有,作该文之前网上也没有)
　　三、 通过事件同步主线程与从线程的实例
　　▲ 实例定义了一个主类： Tlistfile。该类主要是根具recmail变量，把它存入一个文件或从一个文件中读取出来。在该类上可实现：两个或多个应用程序之间通过文件进行异步问答式通讯。所谓问答式异步通讯是：一个程序发问，只有等到其他程序回答后才能继续发问。在一个时刻只能有一个程序使用该通讯文件，并且发送信息时必须进快完成。
　　▲该类约定了存取所用的文件是同一个文件且存在。
　　▲存recmail变量用savereclist方法，读recmail用loadreclist方法。
　　●savereclist方法实现：用TsaveThread线程实现。
　　当外界调用savereclist方法时，该方法首先创建一个TsaveThread线程，然后运行它，由它完成存取文件的操作，接着挂起主线程，等等TsaveThread线程执行完毕，TsaveThread线程执行完毕唤醒主线程。为了防止多个TsaveThread线程之间的干扰，在TsaveThread线程内用了临界区同步变量进行线程同步。
　　●loadreclist方法实现：用TloadThread线程实现。
　　当外界调用loadreclist方法时，该方法首先创建一个TloadThread线程，然后运行它，由它完成读取文件的操作，接着挂起主线程，等等TloadThread线程执行完毕，TloadThread线程执行完毕唤醒主线程。为了防止多个TloadThread线程之间的干扰，在TloadThread线程内用了临界区同步变量进行线程同步。
　　unit listfile;
　　interface
　　uses Classes,SysUtils,StrUtils,ExtCtrls,SyncObjs,Dialogs,windows;
　　type
　　precmail =^trecmail;
　　Trecmail =record
　　subject :string[150];//异步通信内容
　　recDate :tdatetime;//通信时时间
　　askBL,answerSBL,answerFBL :boolean;//定义了文件的问、开始回答、回答完毕标识。
　　end;
　　TlistFile=class //主类
　　public
　　recmail:Trecmail;
　　constructor create(filename:string);//创建时获得通讯文件名
　　procedure savereclist();
　　procedure loadreclist();
　　destructor destroy;
　　end;
　　TLoadThread=class(TThread) //读取线程
　　protected
　　Procedure Execute;override;
　　end;
　　TSaveThread=class(TThread)式//存取线程
　　protected
　　Procedure Execute;override;
　　end;
　　function IsFileInUse(fName : string ) : boolean;//文件在用检测函数
　　var
　　srecmail:Trecmail;//读存线程与主线程的recmail通信所用的变量
　　sfilename:string;// 异步通讯文件变量
　　Critical1,Critical2:TCriticalSection;//分别是读线程、存线程同步所用的临界变量
　　sevent1,sevent2:tsimpleEvent; /分别是读线程与主线程、存线程与主线程同步所用的同步事件变量
　　implementation
　　function IsFileInUse(fName : string ) : boolean;
　　var
　　HFileRes : Tfilestream;
　　begin
　　Result := false;
　　if not FileExists(fName) then
　　exit;
　　try
　　hfileres:=Tfilestream.create(fname,fmShareExclusive);
　　result:=false;
　　except
　　result:=true;
　　end;
　　try
　　hfileres.Free;
　　except
　　end;
　　end;
　　procedure TLoadThread.Execute;//读线程的执行代在码
　　var
　　fl:file of trecmail; loadBL:boolean;
　　begin
　　Critical1.Enter ;//临界区同步开始
　　loadBL:=true;
　　while true do //循环的原因是当通信文件还在使用是就不停的等待，直到可以使用该文件
　　begin
　　if not (IsFileInUse(sfilename)) then
　　begin
　　if not loadBL then
　　begin
　　Critical1.Leave ;
　　sevent1.SetEvent ;//唤醒挂起的主线程
　　exit;
　　end else
　　begin
　　AssignFile(fl,sfilename);
　　reset(fl);
　　read(fl,srecmail);
　　closefile(fl);
　　loadBL:=false;
　　end;
　　end;
　　end;
　　Critical1.Leave ;//临界区同步结束
　　end;
　　procedure TSaveThread.Execute;// 存线程的执行代在码
　　var
　　fl:file of trecmail; saveBL:boolean;
　　begin
　　Critical2.Enter ;//临界区同步开始
　　saveBL:=TRUE;
　　while true do //循环的原因是当通信文件还在使用是就不停的等待，直到可以使用该文件
　　begin
　　if (not IsFileInUse(sfilename)) then
　　begin
　　if not saveBL then
　　begin
　　Critical2.Leave ;
　　sevent2.SetEvent ;//唤醒挂起的主线程
　　exit;
　　end else
　　begin
　　AssignFile(fl,sfilename);
　　rewrite(fl);
　　write(fl,srecmail);
　　closefile(fl);
　　saveBL:=false;
　　end;
　　end;
　　end;
　　Critical2.Leave ;//临界区同步结束
　　end;
　　constructor TlistFile.create(filename:string);
　　begin
　　sfilename:= filename;//得到同步文件名
　　Critical1:= TCriticalSection.Create ;//创建读临界区同步对象
　　Critical2:= TCriticalSection.Create ;//创建存临界区同步对象
　　end;
　　procedure TlistFile.savereclist();//存文件操作
　　var
　　saveThread:TSaveThread;
　　begin
　　srecmail:=recmail ;//得存文件时，存线程要用到的要存通讯数据
　　sevent2:=TSimpleEvent.Create ;//创建与存线程同步所用的同步事件对象
　　sevent2.ResetEvent;//此处决定了该事件操纵的线程是主线程，因为第一次调用它的是主线程。
　　//用了该方法后，再用WaitFor(INFINITE);时，主线程将被挂起
　　saveThread:= TSaveThread.create(true);//创建存线程对象，创建后不立即执行。
　　saveThread.FreeOnTerminate :=true;//此处是当存线程执行完毕后自动灭亡，并释放资源。
　　saveThread.Resume;//唤醒存线程让之运行，以执行存文件任务
　　sevent2.WaitFor(INFINITE);//主线程被挂起，直到存线程执行完毕唤醒它
　　sevent1.Release ;//释放sevent2所用到的资源
　　end;
　　procedure TlistFile.loadreclist();//读文件操作
　　var
　　LoadThread:TLoadThread;
　　begin
　　sevent1:=TSimpleEvent.Create ;// 创建与读线程同步所用的同步事件对象
　　sevent1.ResetEvent; //此处决定了该事件操纵的线程是主线程，因为第一次调用它的是主线程。
　　//用了该方法后，再用WaitFor(INFINITE);时，主线程将被挂起
　　LoadThread:= TLoadThread.create(true); //创建读线程对象，创建后不立即执行。
　　LoadThread.FreeOnTerminate :=true;
　　loadThread.Resume ;//唤醒读线程让之运行，以执行读文件任务
　　sevent1.WaitFor(INFINITE); //此处是当读线程执行完毕后自动灭亡，并释放资源。
　　recmail:=srecmail ;//主线程得到读线程读到的通讯数据，以使文件通过recmail访问
　　sevent1.Release ;//释放sevent1所用到的资源
　　end;
　　destructor TlistFile.destroy;
　　begin
　　inherited destroy;
　　Critical1.Destroy ;
　　Critical2.Destroy ;
　　end;
　　end.
　　本帖最近评分记录
　　softwolf中天币 +20我很赞同2006-3-11 07:13
　　 TOP

本文转自
http://bbs.366tian.net/thread-273358-1-1.html