先编写一个循环 50000 次的程序,每次在程序界面左上方(10,10)的位置输出数字,代码如下:
1 procedure TForm1.btn2Click(Sender: TObject);
2 var
3 i: Integer;
4 begin
5 for i := 0 to 500000 do
6 begin
7 Canvas.TextOut(10, 10, IntToStr(i));
8 end;
9 end;
上面程序运行时, 在程序运行期间拖动窗体,窗体基本是 卡"死" 的。
解决卡死方法1(Application.ProcessMessages)
一个简单的办法( Application.ProcessMessages )来解决这个问题,代码如下:
1 procedure TForm1.btn2Click(Sender: TObject);
2 var
3 i: Integer;
4 begin
5 for i := 0 to 500000 do
6 begin
7 Canvas.TextOut(10, 10, IntToStr(i));
8 Application.ProcessMessages; // 解决方法之一
9 end;
10 end;
这个 Application.ProcessMessages 它会检查并先处理消息队列中的其他消息.
但这算不上多线程, 运行中拖动窗体, 你会发现循环会暂停下来...
在 Delphi 中使用多线程有两种方法:
- 调用 API
- 使用 TThread 类
解决卡死方法2(调用 API)
1 function MyTest(p: Pointer): Integer; stdcall;
2 var
3 i: Integer;
4 begin
5 for i := 0 to 500000 do
6 begin
7 Form1.Canvas.Lock; // 在 Canvas 中 Lock ,其他访问先暂停
8 Form1.Canvas.TextOut(10, 10, IntToStr(i));
9 Form1.Canvas.Unlock; // 用完了,解锁
10 end;
11 Result := 0;
12 end;
13
14 procedure TForm1.btn3Click(Sender: TObject);
15 var
16 ID: Cardinal;
17 begin
18 CreateThread(nil, 0, @MyTest, nil, 0, ID);
19 end;
CreateThread 要使用的函数是系统级的,不能是某个类的方法,必须有严格的格式(参数、返回值)要求,还必须用上 stdcall 是协调参数顺序的,虽然这里只有一个参数没有顺序可言,但这是使用系统函数的惯例。
CreateThread 还需要一个 var 参数来接收新建线程的 ID,在 Delphi 10.3.3 中为 Cardinal 类型。
解决卡死方法3(使用 TThread 类)
TThread 类有一个抽象方法(Execute),抽象类只能被继承使用,下面继承为 TMyThread,主要是实现抽象方法 Execute,等我们实例化 TMyThread 后,首先会执行 Execute 方法中的代码。
1 type
2 TMyThread = class(TThread)
3 protected
4 procedure Execute; override;
5 end;
6
7 implementation
8
9 {$R *.dfm}
10 { TMyThread }
11
12 procedure TMyThread.Execute;
13 var
14 i: Integer;
15 begin
16 inherited;
17 FreeOnTerminate := True;
18 for i := 0 to 500000 do
19 begin
20 Form1.Canvas.Lock;
21 Form1.Canvas.TextOut(10, 10, IntToStr(i));
22 Form1.Canvas.Unlock;
23 end;
24 end;
25
26 procedure TForm1.btn1Click(Sender: TObject);
27 var
28 MyThread: TMyThread;
29 begin
30 MyThread := TMyThread.Create(True);
31 MyThread.Resume;
32
33 //TMyThread.Create(False); 也可以这样实例化
34
35 //with TMyThread.Create(True) do Resume; 还可以这样实例化
36 end;
在上面代码中,实例化用到的 MyThread 变量,毫无用处,可以直接
<span style="color:#000000"><span style="background-color:#ffffff"><span style="color:inherit"> TMyThread.Create(False);</span></span></span>
执行或者
<span style="color:#000000"><span style="background-color:#ffffff"><span style="color:inherit">with TMyThread.Create(True) do Resume;</span></span></span>
线程建立后不会立即调用 Execute,可以在需要的时候用 Resume 方法执行线程。
在 TThread 类的例子中,还有一个这样的句子:
<span style="color:#000000"><span style="background-color:#ffffff"><span style="color:inherit">FreeOnTerminate := True;</span></span></span>
由于 TThread 的特殊性,很多时候我们不能确定线程什么时候执行完毕,因此不能 Free,如果 FreeOnTerminate 为 True,线程执行完毕后自动释放。