TThread類之總結

最新推荐文章于 2013-06-24 22:35:15 发布

bambuz

最新推荐文章于 2013-06-24 22:35:15 发布

阅读量514

点赞数

分类专栏：多線程及IOCP編程 delphi 文章标签： random 多线程 thread function class

本文链接：https://blog.csdn.net/bambuz/article/details/6022902

版权

delphi 同时被 2 个专栏收录

34 篇文章 0 订阅

订阅专栏

多線程及IOCP編程

10 篇文章 0 订阅

订阅专栏

TThread 用于在进程中创建多线程. 是抽象类.

線程的要點: Priority , MaxThread_OneCPU =16;同步.

属性:

1 FreeOnTerminate: Boolean;

2. Handle

3. Priority:

4. ReturnValue

5. Suspended

6. Terminated

7. ThreadID

方法:

1.constructor Create(CreateSuspended: Boolean);

3. procedure Execute;

4. procedure Resume;

5. procedure Suspend;

6. procedure Synchronize(Method: TThreadMethod);

7. function WaitFor: LongWord;

示例代碼如下:

type TMyThread = class (TThread) public procedure Execute;override; end; var Form4: TForm4; myth1 : TMyThread; implementation {$R *.dfm} procedure TMythread.Execute; var i : Integer; begin Randomize; for i := 0 to 1000 do begin form4.mmo1.Text := Form4.mmo1.Text + chr(65 + Random(26)); Application.ProcessMessages; // 防止進程阻塞,使程序響應消息隊列中的其它事件 Sleep(200); // 休眠 0.2s end; end; procedure TForm4.btnCreateClick(Sender: TObject); begin if myth1 = nil then begin myth1 := TMyThread.Create(True); // Create and Suspend Thread myth1.FreeOnTerminate := True; myth1.Priority := tpLower; // 修改线程级别为低; 默认值是 tpNormal end; end; procedure TForm4.btnSuspendClick(Sender: TObject); begin if myth1<> nil then if not myth1.Suspended then myth1.Suspend; end; procedure TForm4.btnResumeClick(Sender: TObject); begin if myth1<> nil then if myth1.Suspended then myth1.Resume; end; procedure TForm4.btnFreeClick(Sender: TObject); begin if myth1 <> nil then if myth1.FreeOnTerminate then myth1.Free; // 一般不這樣直接 Free , 代替的是設置: FreeOnTerminate := true; end;