Delphi中使用TThread进行多线程开发总结

发布日期: 2010-06-30

文章字数: 770

阅读时长: 2 分

最近项目的Demo开发使用Delphi 2010，其中使用了多线程开发技术

这里采用VCL的TThread类完成多线程开发，直接使用CreateThread的办法之前用过很多，这里就当练习，试试采用TThread类

TThread类类似VC中的CThread，主要是采用面向对象思想对CreateThread封装了一层，方便多线程的代码编写，线程执行所需要的相关参数可以很方便的设置，线程的操作和线程状态的获取也很方便。至于内部原理，有兴趣的话可以看看VCL源代码，这里就不深入探讨了。

所使用TThread完成多线程开发，可以按照如下步骤进行：

1。从TThread派生一个类，例如TxDerivedThread，并重载Execute函数，多线程的核心代码主要就在该函数中

2。如果在线程执行中需要设置相关执行参数，则可以在派生类TxDerivedThread中添加字段，并使外部调用者有办法修改，比如使用公共字段，设置Setter函数，或者公共Property。这些字段在Execute函数中是可以访问到的，这样就达到了对函数设置执行参数的目的。

但是因为在构造线程类对象时，线程默认会自动执行，而不会挂起，这样外界就没有了设置参数的时机，所以如果需要设置线程执行参数，则需要重载构造函数Create，在其中调用TThread的构造函数，并传递参数True，使线程创建后立即挂起，然后设置相关参数，最后再将线程Resume即可，这样外部就能够控制线程的创建了

例如如下的派生类：

TxKernelBuildThread = class(TThread)
private
    main_form: HWND; // 主界面窗口句柄
    procedure SetMainForm(value: HWND);
protected
    procedure Execute; override;
。。。
public
    property MainWnd: HWND write SetMainForm;
。。。
end;

constructor TxKernelBuildThread.Create(suspend: Boolean);
begin
    inherited Create(suspend);
end;

在构造时调用者将suspend传递为True，这样线程在创建之初就会挂起，调用者就有机会设置参数了

例如如下的字段设置函数：

procedure TxKernelBuildThread.SetMainForm(value: HWND);
begin
    if value = 0 then
    begin
        Exit;
    end;
    Self.main_form:=value;
end;

在线程创建之后，就可以设置相关的参数，并在线程执行过程中使用：

例如：

procedure TxKernelBuildThread.Execute;
var
fmt: UnicodeString;
params: UnicodeString;
ret: Integer;
begin
   PostMessage(main_form,THREAD_INDEX_START,Self.id,0);
。。。
end;