多线程编程(1) - 先入门

先编写一个循环 50000 次的程序，每次在程序界面左上方（10,10）的位置输出数字，代码如下：

procedure TForm1.btn2Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to 500000 do
  begin
    Canvas.TextOut(10, 10, IntToStr(i));
  end;
end;

上面程序运行时, 在程序运行期间拖动窗体，窗体基本是 卡"死" 的。

解决卡死方法1（Application.ProcessMessages）

一个简单的办法( Application.ProcessMessages )来解决这个问题，代码如下：

procedure TForm1.btn2Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to 500000 do
  begin
    Canvas.TextOut(10, 10, IntToStr(i));
    Application.ProcessMessages; // 解决方法之一
  end;
end;

这个 Application.ProcessMessages  它会检查并先处理消息队列中的其他消息.
但这算不上多线程, 运行中拖动窗体, 你会发现循环会暂停下来...

在 Delphi 中使用多线程有两种方法:

1. 调用 API
2. 使用 TThread 类

解决卡死方法2（调用 API）

function MyTest(p: Pointer): Integer; stdcall;
var
  i: Integer;
begin
  for i := 0 to 500000 do
  begin
    Form1.Canvas.Lock; // 在 Canvas 中 Lock ，其他访问先暂停
    Form1.Canvas.TextOut(10, 10, IntToStr(i));
    Form1.Canvas.Unlock; // 用完了，解锁
  end;
  Result := 0;
end;

procedure TForm1.btn3Click(Sender: TObject);
var
  ID: Cardinal;
begin
  CreateThread(nil, 0, @MyTest, nil, 0, ID);
end;

CreateThread 要使用的函数是系统级的，不能是某个类的方法，必须有严格的格式（参数、返回值）要求，还必须用上 stdcall 是协调参数顺序的，虽然这里只有一个参数没有顺序可言，但这是使用系统函数的惯例。

CreateThread 还需要一个 var 参数来接收新建线程的 ID，在 Delphi 10.3.3 中为 Cardinal 类型。

解决卡死方法3（使用 TThread 类）

TThread 类有一个抽象方法（Execute），抽象类只能被继承使用，下面继承为 TMyThread，主要是实现抽象方法 Execute，等我们实例化 TMyThread 后，首先会执行 Execute 方法中的代码。

type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
  end;

implementation

{$R *.dfm}
{ TMyThread }

procedure TMyThread.Execute;
var
  i: Integer;
begin
  inherited;
  FreeOnTerminate := True;
  for i := 0 to 500000 do
  begin
    Form1.Canvas.Lock;
    Form1.Canvas.TextOut(10, 10, IntToStr(i));
    Form1.Canvas.Unlock;
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  MyThread: TMyThread;
begin
  MyThread := TMyThread.Create(True);
  MyThread.Resume;

  //TMyThread.Create(False); 也可以这样实例化

  //with TMyThread.Create(True) do Resume; 还可以这样实例化
end;

在上面代码中，实例化用到的 MyThread 变量，毫无用处，可以直接

 TMyThread.Create(False);

执行或者

with TMyThread.Create(True) do Resume;

线程建立后不会立即调用 Execute，可以在需要的时候用 Resume 方法执行线程。

在 TThread 类的例子中，还有一个这样的句子：

FreeOnTerminate := True;

由于 TThread 的特殊性，很多时候我们不能确定线程什么时候执行完毕，因此不能 Free，如果 FreeOnTerminate 为 True，线程执行完毕后自动释放。