基本的線程執行個體(delphiXE)

閑著無事，寫了幾個線程的基本執行個體做練習。附源碼

 

pas:

unit unMain;</p><p>interface</p><p>uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, StdCtrls, ComCtrls, SyncObjs;</p><p>type<br /> TForm1 = class(TForm)<br /> Button1: TButton;<br /> Button2: TButton;<br /> Button3: TButton;<br /> Button4: TButton;<br /> ProgressBar1: TProgressBar;<br /> ProgressBar2: TProgressBar;<br /> ProgressBar3: TProgressBar;<br /> ProgressBar4: TProgressBar;<br /> Button5: TButton;<br /> Button6: TButton;<br /> Button7: TButton;<br /> Edit1: TEdit;<br /> Button8: TButton;<br /> Button9: TButton;<br /> Button10: TButton;<br /> procedure Button1Click(Sender: TObject);<br /> procedure Button2Click(Sender: TObject);<br /> procedure Button3Click(Sender: TObject);<br /> procedure Button4Click(Sender: TObject);<br /> procedure FormCreate(Sender: TObject);<br /> procedure FormDestroy(Sender: TObject);<br /> procedure Button5Click(Sender: TObject);<br /> procedure Button6Click(Sender: TObject);<br /> procedure Button9Click(Sender: TObject);<br /> procedure Button7Click(Sender: TObject);<br /> procedure Button8Click(Sender: TObject);<br /> procedure Button10Click(Sender: TObject);<br /> private<br /> { Private declarations }<br /> public<br /> { Public declarations }<br /> end;</p><p> TDrawTextThread = class(TThread)<br /> protected<br /> procedure Execute; override;<br /> end;</p><p> TIncValueToMemoThread = class(TThread)<br /> protected<br /> procedure Execute; override;<br /> end;</p><p> Txthread = class(TThread)<br /> protected<br /> procedure Execute; override;<br /> procedure prg;<br /> end;</p><p> Tythread = class(TThread)<br /> protected<br /> procedure Execute; override;<br /> procedure prg;<br /> end;</p><p>var<br /> Form1: TForm1;<br /> incValue: integer = 0;<br /> Flock: TCriticalSection;<br /> FEvent: TEvent;<br /> FExitSign: TEvent;</p><p>function DrawText(p: Pointer): integer; stdcall;</p><p>implementation</p><p>{$R *.dfm}</p><p>var<br />hforresum: Tythread;</p><p>function DrawText(p: Pointer): integer; stdcall;<br />var<br /> i: integer;<br />begin<br /> result := 0;<br /> for i := 0 to 50000 do<br /> begin<br /> Form1.Canvas.Lock;<br /> try<br /> Form1.Canvas.TextOut(20,20,intToStr(i));<br />// Application.ProcessMessages;<br /> finally<br /> Form1.Canvas.Unlock;<br /> end;<br /> end;<br />end;</p><p>procedure TForm1.Button10Click(Sender: TObject);<br />begin<br /> if not hforresum.Terminated then<br /> hforresum.Suspend;<br />end;</p><p>procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> DrawText(nil);<br />end;<br />procedure TForm1.Button2Click(Sender: TObject);<br />var<br /> thdl,tid: THandle;<br />begin<br /> thdl := CreateThread(nil,0,@DrawText,nil,CREATE_SUSPENDED,tid);<br /> if thdl <> 0 then<br /> ResumeThread(thdl);<br />end;</p><p>procedure TForm1.Button3Click(Sender: TObject);<br />begin<br /> with TDrawTextThread.Create(true) do<br /> Resume;<br />end;</p><p>procedure TForm1.Button4Click(Sender: TObject);<br />var<br /> i: integer;<br />begin<br /> for i := 0 to 3 do<br /> TIncValueToMemoThread.Create(False);<br />end;</p><p>procedure TForm1.Button5Click(Sender: TObject);<br />begin<br /> FEvent.SetEvent;<br />end;</p><p>procedure TForm1.Button6Click(Sender: TObject);<br />begin<br /> Txthread.Create(False);<br />end;</p><p>procedure TForm1.Button7Click(Sender: TObject);<br />begin<br /> FExitSign.SetEvent;<br />end;</p><p>procedure TForm1.Button8Click(Sender: TObject);<br />begin<br /> if not hforresum.Terminated then<br /> hforresum.Resume;<br />end;</p><p>procedure TForm1.Button9Click(Sender: TObject);<br />begin<br /> hforresum := Tythread.Create(False);<br />end;</p><p>procedure TForm1.FormCreate(Sender: TObject);<br />begin<br /> Flock := TCriticalSection.Create;<br /> FEvent := TEvent.Create(nil,False,False,'ev');<br /> FExitSign := TEvent.Create(nil,True,False,'evExit');<br />end;</p><p>procedure TForm1.FormDestroy(Sender: TObject);<br />begin<br />Flock.Free;<br />FEvent.Free;<br />FExitSign.Free;<br />end;</p><p>{ TDrawTextThread }</p><p>procedure TDrawTextThread.Execute;<br />begin<br /> inherited;<br /> FreeOnTerminate := True;<br /> DrawText(nil);<br />end;</p><p>{ TIncValueToMemoThread }</p><p>procedure TIncValueToMemoThread.Execute;<br />var<br /> p: TProgressBar;<br />begin<br /> inherited;<br /> FreeOnTerminate := true;<br /> if incValue = 0 then<br /> p := form1.ProgressBar1<br /> else if incValue = 1 then<br /> p := form1.ProgressBar2<br /> else if incValue = 2 then<br /> p := form1.ProgressBar3<br /> else<br /> p := form1.ProgressBar4;<br /> inc(incValue,1);<br />// Flock.Enter;<br /> WaitForSingleObject(FEvent.Handle,INFINITE);<br />// FEvent.ResetEvent;<br /> while p.Position < p.Max do<br /> begin<br /> p.Position := p.Position + 1;<br /> sleep(50);<br /> end;<br /> FEvent.SetEvent;<br />// Flock.Leave;</p><p>end;</p><p>{ Txthread }</p><p>procedure Txthread.Execute;<br />begin<br /> inherited;<br /> Synchronize(prg);<br />end;</p><p>procedure Txthread.prg;<br />begin<br /> while form1.ProgressBar1.Position < form1.ProgressBar1.Max do<br /> begin<br /> Form1.ProgressBar1.Position := Form1.ProgressBar1.Position + 1;<br /> Sleep(100);<br /> end;<br />end;</p><p>{ Tythread }</p><p>procedure Tythread.Execute;<br />begin<br /> inherited;<br /> prg;<br />end;</p><p>procedure Tythread.prg;<br />begin<br /> while True do<br /> begin<br /> if WaitForSingleObject(FExitSign.Handle,0) = WAIT_OBJECT_0 then<br /> begin<br /> FExitSign.ResetEvent;<br /> Terminate;<br /> exit;<br /> end;<br /> form1.ProgressBar1.Position := 0;<br /> while form1.ProgressBar1.Position < form1.ProgressBar1.Max do<br /> begin<br /> Form1.ProgressBar1.Position := Form1.ProgressBar1.Position + 1;<br /> Sleep(100);<br /> end;<br /> Suspend;<br /> end;<br />end;</p><p>end.

dfm:

object Form1: TForm1<br /> Left = 0<br /> Top = 0<br /> Caption = 'Form1'<br /> ClientHeight = 318<br /> ClientWidth = 553<br /> Color = clBtnFace<br /> Font.Charset = DEFAULT_CHARSET<br /> Font.Color = clWindowText<br /> Font.Height = -11<br /> Font.Name = 'Tahoma'<br /> Font.Style = []<br /> OldCreateOrder = False<br /> OnCreate = FormCreate<br /> OnDestroy = FormDestroy<br /> PixelsPerInch = 96<br /> TextHeight = 13<br /> object Button1: TButton<br /> Left = 8<br /> Top = 221<br /> Width = 177<br /> Height = 25<br /> Caption = #30011'1~50000'#30340#25968#23383'('#20027#32447#31243')'<br /> TabOrder = 0<br /> OnClick = Button1Click<br /> end<br /> object Button2: TButton<br /> Left = 8<br /> Top = 252<br /> Width = 177<br /> Height = 25<br /> Caption = #30011'1~50000'#30340#25968#23383'(createthread)'<br /> TabOrder = 1<br /> OnClick = Button2Click<br /> end<br /> object Button3: TButton<br /> Left = 8<br /> Top = 283<br /> Width = 177<br /> Height = 25<br /> Caption = #30011'1~50000'#30340#25968#23383'(TThread)'<br /> TabOrder = 2<br /> OnClick = Button3Click<br /> end<br /> object Button4: TButton<br /> Left = 8<br /> Top = 190<br /> Width = 177<br /> Height = 25<br /> Caption = #21551#21160#22235#20010#32447#31243#20998#21035#36882#22686#36827#24230#26465<br /> TabOrder = 3<br /> OnClick = Button4Click<br /> end<br /> object ProgressBar1: TProgressBar<br /> Left = 8<br /> Top = 48<br /> Width = 329<br /> Height = 16<br /> Smooth = True<br /> SmoothReverse = True<br /> TabOrder = 4<br /> end<br /> object ProgressBar2: TProgressBar<br /> Left = 8<br /> Top = 70<br /> Width = 329<br /> Height = 16<br /> Smooth = True<br /> SmoothReverse = True<br /> TabOrder = 5<br /> end<br /> object ProgressBar3: TProgressBar<br /> Left = 8<br /> Top = 92<br /> Width = 329<br /> Height = 16<br /> Smooth = True<br /> SmoothReverse = True<br /> TabOrder = 6<br /> end<br /> object ProgressBar4: TProgressBar<br /> Left = 8<br /> Top = 114<br /> Width = 329<br /> Height = 16<br /> Smooth = True<br /> SmoothReverse = True<br /> TabOrder = 7<br /> end<br /> object Button5: TButton<br /> Left = 191<br /> Top = 190<br /> Width = 122<br /> Height = 25<br /> Caption = #35774#32622#20026#26377#20449#21495<br /> TabOrder = 8<br /> OnClick = Button5Click<br /> end<br /> object Button6: TButton<br /> Left = 319<br /> Top = 190<br /> Width = 113<br /> Height = 25<br /> Caption = #22312#20027#32447#31243#36208#36827#24230#26465'1'<br /> TabOrder = 9<br /> OnClick = Button6Click<br /> end<br /> object Button7: TButton<br /> Left = 216<br /> Top = 252<br /> Width = 75<br /> Height = 25<br /> Caption = 'exit'<br /> TabOrder = 10<br /> OnClick = Button7Click<br /> end<br /> object Edit1: TEdit<br /> Left = 384<br /> Top = 8<br /> Width = 121<br /> Height = 21<br /> ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861<br /> TabOrder = 11<br /> Text = 'Edit1'<br /> end<br /> object Button8: TButton<br /> Left = 216<br /> Top = 283<br /> Width = 75<br /> Height = 25<br /> Caption = 'resume'<br /> TabOrder = 12<br /> OnClick = Button8Click<br /> end<br /> object Button9: TButton<br /> Left = 216<br /> Top = 221<br /> Width = 75<br /> Height = 25<br /> Caption = 'start'<br /> TabOrder = 13<br /> OnClick = Button9Click<br /> end<br /> object Button10: TButton<br /> Left = 297<br /> Top = 283<br /> Width = 75<br /> Height = 25<br /> Caption = 'suspend'<br /> TabOrder = 14<br /> OnClick = Button10Click<br /> end<br />end