使用事件CreateEvent注意事項

HANDLECreateEvent(

LPSECURITY_ATTRIBUTESlpEventAttributes,// 安全屬性

BOOLbManualReset,// 復位方式

BOOLbInitialState,// 初始狀態

LPCTSTRlpName // 對象名稱

); ^[1]

參數

lpEventAttributes[輸入]

一個指向 SECURITY_ATTRIBUTES結構的指針，確定返回的句柄是否可被子進程繼承。如果lpEventAttributes是NULL，此句柄不能被繼承。

Windows NT/2000：lpEventAttributes的結構中的成員為新的事件指定了一個安全符。如果lpEventAttributes是NULL，事件將獲得一個默認的安全符。

bManualReset[輸入]

指定將 事件對象創建成手動復原還是自動復原。如果是TRUE，那么必須用ResetEvent函數來手工將事件的狀態復原到無信號狀態。如果設置為FALSE，當一個等待線程被釋放以后，系統將會自動將事件狀態復原為無信號狀態。

bInitialState[輸入]

指定事件對象的初始狀態。如果為TRUE，初始狀態為有信號狀態；否則為無信號狀態。

lpName[輸入]

指定事件的對象的名稱，是一個以0結束的字符串 指針。名稱的 字符格式限定在MAX_PATH之內。名字是對大小寫敏感的。

如果lpName指定的名字，與一個存在的命名的事件對象的名稱相同，函數將請求EVENT_ALL_ACCESS來訪問存在的對象。這時候，由於bManualReset和bInitialState參數已經在創建事件的進程中設置，這兩個參數將被忽略。如果lpEventAttributes是參數不是NULL，它將確定此句柄是否可以被繼承，但是其 安全描述符成員將被忽略。

如果lpName為NULL，將創建一個無名的事件對象。

 

 

注意：

1、如果在進程間同步，需要創建具體名稱的事件，即參數lpName不能為nil，事件對象的名稱一樣。

2、手動復原的情況下，先SetEvent發起信號，后面一定要用ResetEvent復原到無信號狀態，一一對應。

如果SetEvent后，所有的事件對象都有信號了。當事件的對象被置為有信號狀態時，任意數量的等待中線程，以及隨后開始等待的線程均會被釋放。

var

  FEvent: Cardinal;

 

FEvent :=  CreateEvent (nil, TRUE, FALSE, 'syn_recansend');//創建時無信號的事件

SetEvent(FEvent);//發起信號

或者

FEvent :=  CreateEvent (nil, TRUE, True, 'syn_recansend');//創建時無信號的事件

 

//手動復原
procedure TForm1.btn5Click(Sender: TObject);
begin
  if WaitForSingleObject(FEvent, INFINITE) = WAIT_OBJECT_0 then  //等於WAIT_OBJECT_0成功返回有信號
  begin

    ReSetEvent(FEvent);//等到信號后置成無信號，以便其他線程等待
    OutputDebugString('寫文件等事情，需要同步的代碼');
    SetEvent(FEvent);//做完上面的事情后置成有信號的狀態，以便其他線程等待到有信號做事情
  end;

end;

  

3、自動復原信號的情況下，SetEvent只會釋放當前等待的一個線程；

當一個自動復原的事件對象的狀態被置為有信號狀態時，該對象狀態將一直保持有信號狀態，直至一個等待線程被釋放；系統將自動將此函數置為無符號狀態。如果沒有等待線程正在等待，事件對象的狀態將保持有信號狀態。

var

  FEvent: Cardinal;

 

FEvent :=  CreateEvent (nil, False, FALSE, 'syn_recansend');//創建時無信號的事件

SetEvent(FEvent);//發起信號

或者

FEvent :=  CreateEvent (nil, False, True, 'syn_recansend');//創建時無信號的事件

 

//自動復原

procedure TForm1.btn5Click(Sender: TObject);

begin  

  if WaitForSingleObject(FEvent, INFINITE) = WAIT_OBJECT_0 then  //等於WAIT_OBJECT_0成功返回信號時，會釋自動釋放信號 

  begin

    OutputDebugString('寫文件等事情，需要同步的代碼');

    SetEvent(FEvent);//做完上面的事情后置成有信號的狀態，以便其他線程等待到有信號做事情   ；

  end;

//這里不要SetEvent(FEvent);，上面的WaitForSingleObject等待成功時才會自動ResetEvent，所以上面才會有SetEvent。

end;

 

4、最后釋放事件

if FEvent <> 0 then

  CloseHandle(FEvent);