程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 多線程編程(14) - 多線程同步之WaitableTimer(等待定時器對象)(3)

多線程編程(14) - 多線程同步之WaitableTimer(等待定時器對象)(3)

編輯:Delphi

代碼文件:

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 FormDestroy(Sender: TObject);
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
var
 f: Integer;
 hWaitableTimer: THandle;
function MyThreadFun(p: Pointer): DWord; stdcall;
var
 i,y: Integer;
begin
 Inc(f);
 y := 20 * f;
 {這裡和上面不同, 把等待弄到循環裡面了}
 for i := 0 to 1000 do
 begin
  if WaitForSingleObject(hWaitableTimer, INFINITE) = WAIT_OBJECT_0 then
  begin
   Form1.Canvas.Lock;
   Form1.Canvas.TextOut(20, y, IntToStr(i));
   Form1.Canvas.Unlock;
//   Sleep(1);
  end;
 end;
 Result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
 ThreadID: DWord;
 DueTime: Int64;
begin
 hWaitableTimer := CreateWaitableTimer(nil, False, nil); {這裡的參數也和上面不一樣}
 DueTime := 0;
 SetWaitableTimer(hWaitableTimer, DueTime, 500, nil, nil, False); {500 ms}
 Repaint; f := 0;
 CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID);
 CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID);
 CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
 CloseHandle(hWaitableTimer);
end;
end.

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved