多線程編程(10) - 多線程同步之Mutex(互斥對象)(2)

代碼文件:unit Unit1;
interface
uses
　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　Dialogs, StdCtrls;
type
　TForm1 = class(TForm)
　　Button1: TButton;
　　procedure Button1Click(Sender: TObject);
　　procedure FormCreate(Sender: TObject);
　　procedure FormDestroy(Sender: TObject);
　end;
var
　Form1: TForm1;
implementation
{$R *.dfm}
var
　f: Integer;　　　{用這個變量協調一下各線程輸出的位置}
　hMutex: THandle; {互斥對象的句柄}
function MyThreadFun(p: Pointer): DWord; stdcall;
var
　i,y: Integer;
begin
　Inc(f);
　y := 20 * f;
　for i := 0 to 50000 do
　begin
　　if WaitForSingleObject(hMutex, INFINITE) = WAIT_OBJECT_0 then
　　begin
　　　Form1.Canvas.Lock;
　　　Form1.Canvas.TextOut(20, y, IntToStr(i));
　　　Form1.Canvas.Unlock;
　　　Sleep(0); {稍稍耽擱一點, 不然有時 Canvas 會協調不過來}
　　　ReleaseMutex(hMutex);
　　end;
　end;
　Result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
　ThreadID: DWord;
begin
　Repaint;
　f := 0;
　CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID);
　CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID);
　CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID);
　CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID);
　CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
　hMutex := CreateMutex(nil, False, nil);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
　CloseHandle(hMutex);
end;
end.

窗體文件:object Form1: TForm1
　Left = 0
　Top = 0
　Caption = 'Form1'
　ClIEntHeight = 140
　ClIEntWidth = 192
　Color = clBtnFace
　Font.Charset = DEFAULT_CHARSET
　Font.Color = clWindowText
　Font.Height = -11
　Font.Name = 'Tahoma'
　Font.Style = []
　OldCreateOrder = False
　OnCreate = FormCreate
　PixelsPerInch = 96
　TextHeight = 13
　object Button1: TButton
　　Left = 109
　　Top = 107
　　Width = 75
　　Height = 25
　　Caption = 'Button1'
　　TabOrder = 0
　　OnClick = Button1Click
　end
end

SyncObJS 單元下有封裝好的 TMutex 類, 好像不如 Api 快, 內部機制也稍有區別, 但使用方法差不多:unit Unit1;
interface
uses
　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　Dialogs, StdCtrls;
type
　TForm1 = class(TForm)
　　Button1: TButton;
　　procedure Button1Click(Sender: TObject);
　　procedure FormCreate(Sender: TObject);
　　procedure FormDestroy(Sender: TObject);
　end;
var
　Form1: TForm1;
implementation
{$R *.dfm}
uses SyncObJS;
var
　f: Integer;
　MyMutex: TMutex;
function MyThreadFun(p: Pointer): DWord; stdcall;
var
　i,y: Integer;
begin
　Inc(f);
　y := 20 * f;
　for i := 0 to 50000 do
　begin
　　if MyMutex.WaitFor(INFINITE) = wrSignaled then
　　begin
　　　Form1.Canvas.Lock;
　　　Form1.Canvas.TextOut(20, y, IntToStr(i));
　　　Form1.Canvas.Unlock;
　　　MyMutex.Release;
　　end;
　end;
　Result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
　ThreadID: DWord;
begin
　Repaint;
　f := 0;
　CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID);
　CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID);
　CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID);
　CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID);
　CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
　MyMutex := TMutex.Create(False);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
　MyMutex.Free;
end;
end.