多線程編程(2) – 多線程同步之 Event (事件對象)

據說 Event(事件對象) 是多線程最原始的同步手段, 我覺得它是最靈活的一個.
Event 對象(的控制代碼表)中主要有兩個布爾變數, 從它的建立函數中可以看得清楚:

function CreateEvent(  lpEventAttributes: PSecurityAttributes; {安全設定}  bManualReset: BOOL;                     {第一個布爾}  bInitialState: BOOL;                    {第二個布爾}  lpName: PWideChar                       {對象名稱}): THandle; stdcall;                      {返回物件控點}//第一個布爾為 False 時, 事件對象控制一次後將立即重設(暫停); 為 True 時可手動暫停.//第二個布爾為 False 時, 對象建立後控製為暫停狀態; True 是可運行狀態.
和其他同類相比, 它的靈活性在於可隨時 "啟動運行"(SetEvent) 和 "暫停運行"(ResetEvent);
甚至還有個 PulseEvent 函數, 能控制執行一次後立即暫停, 很是方便.
var
  f: Integer;      {用這個變數協調一下各線程輸出的位置}
  hEvent: THandle; {事件對象的控制代碼}
function MyThreadFun(p: Pointer): DWORD; stdcall;
var
  i,y: Integer;
begin
  Inc(f);
  y := 20 * f;
  for i := 0 to 200000 do
  begin
    if WaitForSingleObject(hEvent, INFINITE) = WAIT_OBJECT_0 then
    begin
      Form1.Canvas.Lock;
      Form1.Canvas.TextOut(20, y, IntToStr(i));
      Form1.Canvas.Unlock;
    end;
  end;
  Result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Repaint; f := 0;
  CloseHandle(hEvent); {如果已經建立過}
  hEvent := CreateEvent(nil, True, True, nil);
end;
{建立線程}
procedure TForm1.Button2Click(Sender: TObject);
var
  ThreadID: DWORD;
begin
  CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID);
end;
{暫停}
procedure TForm1.Button3Click(Sender: TObject);
begin
  ResetEvent(hEvent);
end;
{啟動}
procedure TForm1.Button4Click(Sender: TObject);
begin
  SetEvent(hEvent);
end;
{啟動後執行一次立即暫停}
procedure TForm1.Button5Click(Sender: TObject);
begin
  PulseEvent(hEvent);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Caption := '建立 Event 對象';
  Button2.Caption := '建立線程';
  Button3.Caption := 'ResetEvent';
  Button4.Caption := 'SetEvent';
  Button5.Caption := 'PulseEvent';
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
  CloseHandle(hEvent);
end;