delphi 中线程类 及api线程

[haochin]

我看了万一老师的博客，里面有长篇专门讲线程的，主要讲的是api方法的多线程。

请问大家，在做多线程时，一般是使用delphi的线程类，还是使用api的线程方法啊？


还有大家能不能帮找一个利用delphi线程类来实现多线程的简单例子。

我想了解，怎么样定义线程，线程里的过程怎么写，怎么执行这个线程，怎么样暂停这个线程，怎么样安全终止这个线程等等。

网上的连接也可以。以前对多线程没有深入的研究，现在没有办法工作需要啊。。。

[dinoalex]

都用,API较多. 你可以看VCL里的代码,就知道如何封装的了.

如果你还要DEMO的话,网上很多线程池的,载来看就行了.

[dinoalex]

下面是简单的,放两个LABEL,三个BUTTON

[Code=Delphi(Pascal)]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TMyThread = class(TThread)
ALabel: TLabel;
protected
procedure Execute; override;
public
Constructor Create(CreateSuspended: Boolean);
end;

TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
AList: TList;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
constructor TMyThread.Create(CreateSuspended: Boolean);
begin
inherited Create(true);
end;

procedure TMyThread.Execute;
var
i: Integer;
begin
FreeOnTerminate := True;
for i := 0 to 100000 do
ALabel.Caption:= inttostr(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
mt: TMyThread;
begin
AList.Clear;

mt:= TMyThread.Create(true);
mt.ALabel:= Label1;
mt.Resume;
AList.Add(mt);

mt:= TMyThread.Create(true);
mt.ALabel:= Label2;
mt.Resume;
AList.Add(mt);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
AList:= TList.Create;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
begin
for i:= 0 to AList.Count-1 do
TMyThread(AList.Items[i]).Suspend;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
begin
for i:= 0 to AList.Count-1 do
TMyThread(AList.Items[i]).Resume;
end;

end.
[/Code]

[dinoalex]

BTW,也可以根据封装里的ID来进行控制.

[猴子先生大宝贝]

Delphi的Demo就有多线程例子

[bdmh]

dinoalex写了线程的基本应用代码，楼主看这个应该够用了

[SQLDebug_Fan]

推荐用TThread类，因为DELPHI是从这个里面得到是否是有多线程在运行的。

[luo_342815]

我用TThread，因为比较简单。

[Harryfin]

如果不是特殊需要，建议用TThread

[SQLDebug_Fan]

如果不用TThread类，你自己写线程，需要自己处理全局变量IsMultiThread，来告DELPHI目前是使用多线程，否则会引起BorlandMM出错。

[dinoalex]

API里 CreateThread 的时候会返回一个句柄. 这个句柄可用来控制.

这个句柄还可以用于GetExitCodeThread来检查线程是否退出(执行完).