Delphi----TThread的使用方法

TThread的使用方法

简述

TThread是Delphi的一个线程类，与win32的的系统调用相比，TThread的功能更丰富，对用户而言自由度更高。下面的代码，会针对TThread的继承使用和同步进行展开。

继承的TThread接口

  TFun = procedure of object;
  TMyATHread = class(TThread)
  private { Private declarations }
    Ffun: TFun;
    procedure Myfuna;
    procedure DoPrgress;
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
    destructor Destroy; override;
  published
    property OnFun: TFun read FFun write FFun;
  end;

继承TThread的相关方法，对于一般情况下，我们需要继承TThread中的excute，用来执行我们的业务代码。但是这种基本的情况下，只能支持无参的情况
那么对于有参的情况我们，可以利用上述的框架去编写代码，如果无参，可以不需要这些步骤，直接在execute中编写业务代码。

• 设置一个私有的TFUN变量（暂时理解成函数指针）
• 设置一个properyty属性

以上两个步骤，是为了实现在利用TThead的方式下，去实现对有参函数的一个调用

具体实现

• 启动执行

procedure TMyATHread.Execute;
begin
  Myfuna;
end;

• 线程功能执行
  控件部分的功能将交给synchronize实现，myfuna中则主要去实现相关业务逻辑

procedure TMyATHread.Myfuna;
var
  i: Integer;
begin
    //控件部分，则放进同步区
    while pos<>100 do
    begin
      synchronize(DoPrgress);
      sleep(50);
      pos:=pos+1;
    end;

end;

• DoProgress中转
  synchronize只能对无参函数进行执行，这里就利用DoPrgress来实现对有参函数的调用(这个FFUN是个TFUN对象，需要我们从外部进行一个赋值)。

procedure TMyATHread.DoPrgress;
begin
  if Assigned(FFun) then FFun;
end;

• 异步代码
  这里因为要在子线程中使用控件，这里使用了同步来实现控件的变动。

procedure TForm2.WriteLog;
begin
    ProgressBar1.Position:=pos;
end;

相关补充（TFUN,property）

1. TFUN
   要实现函数的一个跳转时，我们在类中定义了一个私有的变量，这个变量是同procedure of object来实现的，我这里理解procedure of object实际就是给定的一个函数指针类型，关于更多，可查看链接。
   procedure of object(一个特殊的指针类型)
2. property
   相当于回调
   Delphi 中的属性property（适合初学delphi）
3. synchronize
   对于同步，主要是针对Windows中子线程是不可以去操作主线程的控件的辅助手段，当我们需要在子线程中去实现对窗体类的一个操作，那么我们可以将这部分代码单独封装为一个函数，交给synchronize去执行。