基本的线程实例(delphiXE)

闲着无事，写了几个线程的基本实例做练习。附源码

 

pas:

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

dfm:

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