擴展Delphi的線程同步對象(1)

2019-11-18 18:54:28

字體：大中小

來源：轉載

供稿：網(wǎng)友

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

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

　　一、類的構造
　　我們先對Win32 API的信號燈對象和互斥對象進行抽象，構造一個父類THandleObjectEx，然后由這個父類派生出兩個子類Tsemphore和Tmutex。

　　類的源代碼如下：

　　unit SyncobjsEx;

　　interface

　　uses Windows,Messages,SysUtils,Classes,Syncobjs;

　　type

　　 THandleObjectEx = class(THandleObject)

　　// THandleObjectEx為互斥類和信號燈類的父類

　　 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)

　　//信號燈類

　　public

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

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

上一篇：在Delphi中讀取另一臺計算機的屏幕

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