多线程编程（13） - 多线程同步之Event（事件对象）

多线程编程（13） - 多线程同步之Event（事件对象）2009-12-08 博客园万一据说 Event（事件对象）是多线程最原始的同步手段, 我觉得它是最灵活的一个.

Event 对象（的句柄表）中主要有两个布尔变量, 从它的建立函数中可以看得清楚:

function CreateEvent（
 lpEventAttributes: PSecurityAttributes; {安全设置}
 bManualReset: BOOL;           {第一个布尔}
 bInitialState: BOOL;          {第二个布尔}
 lpName: PWideChar            {对象名称}
）: THandle; stdcall;           {返回对象句柄}
//第一个布尔为 False 时, 事件对象控制一次后将立即重置（暂停）; 为 True 时可手动暂停.
//第二个布尔为 False 时, 对象建立后控制为暂停状态; True 是可运行状态.

和其他同类相比, 它的灵活性在于可随时 "启动运行"（SetEvent）和 "暂停运行"（ResetEvent）;

甚至还有个 PulseEvent 函数, 能控制执行一次后立即暂停, 很是方便.

本例效果图:

代码文件:

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
type
 TForm1 = class（TForm）
  Button1: TButton;
  Button2: TButton;
  Button3: TButton;
  Button4: TButton;
  Button5: TButton;
  procedure FormCreate（Sender: TObject）;
  procedure FormDestroy（Sender: TObject）;
  procedure Button1Click（Sender: TObject）;
  procedure Button2Click（Sender: TObject）;
  procedure Button3Click（Sender: TObject）;
  procedure Button4Click（Sender: TObject）;
  procedure Button5Click（Sender: TObject）;
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
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;
end.