擴(kuò)展Delphi的線程同步對(duì)象(1)

2019-11-18 18:54:28

字體：大中小

供稿：網(wǎng)友

在編寫多線程應(yīng)用程序時(shí)，最重要的是控制好線程間的同步資源訪問，以保證線程的安全運(yùn)行。Win 32 API提供了一組同步對(duì)象，如：信號(hào)燈(Semaphore)、互斥（Mutex）、臨界區(qū)（CriticalSection）和事件(Event)等，用來解決這個(gè)問題。

　　Delphi分別將事件對(duì)象和臨界區(qū)對(duì)象封裝為Tevent對(duì)象和TcritialSection對(duì)象，使得這兩個(gè)對(duì)象的使用簡(jiǎn)單且方便。但是如果在Delphi程序中要使用信號(hào)燈或互斥等對(duì)象就必須借助于復(fù)雜的Win32 API函數(shù)，這對(duì)那些不熟悉Win32 API函數(shù)的編程人員來說很不方便。因此，筆者用Delphi構(gòu)造了兩個(gè)類,對(duì)信號(hào)燈和互斥對(duì)象進(jìn)行了封裝（分別為TSemaphore和TMutex），希望對(duì)廣大Delphi編程人員有所幫助。

　　一、類的構(gòu)造
　　我們先對(duì)Win32 API的信號(hào)燈對(duì)象和互斥對(duì)象進(jìn)行抽象，構(gòu)造一個(gè)父類THandleObjectEx，然后由這個(gè)父類派生出兩個(gè)子類Tsemphore和Tmutex。

　　類的源代碼如下：

　　unit SyncobjsEx;

　　interface

　　uses Windows,Messages,SysUtils,Classes,Syncobjs;

　　type

　　 THandleObjectEx = class(THandleObject)

　　// THandleObjectEx為互斥類和信號(hào)燈類的父類

　　 PRotected

　　 FHandle: THandle;

　　 FLastError: Integer;

　　 public

　　 destructor Destroy; override;

　　 procedure Release;override;

　　 function WaitFor(Timeout: DWord): TWaitResult;

　　 property LastError:Integer read FLastError;

　　 property Handle: THandle read FHandle;

　　 end;

　　 TMutex = class(THandleObjectEx)//互斥類

　　 public

　　 constructor Create(MutexAttributes: PSecurityAttributes; InitialOwner: Boolean;const Name:string);

　　 procedure Release; override;

　　 end;

　　 TSemaphore = class(THandleObjectEx)

　　//信號(hào)燈類

　　public

　　constructor Create(SemaphoreAttributes: PSecurityAttributes;InitialCount:Integer;MaximumCount: integer; const Name: string);

　　procedure Release(ReleaseCount: Integer=1;PreviousCount:Pointer=nil)；overload;

上一篇：在Delphi中讀取另一臺(tái)計(jì)算機(jī)的屏幕

下一篇：用Delphi編寫安裝程序(1)