delphi多线程编程.docx
- 文档编号:11663224
- 上传时间:2023-03-29
- 格式:DOCX
- 页数:21
- 大小:24.63KB
delphi多线程编程.docx
《delphi多线程编程.docx》由会员分享,可在线阅读,更多相关《delphi多线程编程.docx(21页珍藏版)》请在冰豆网上搜索。
delphi多线程编程
◆delphi多线程编程之一create和Free◆
(调试环境:
Delphi2007+WinXPsp3例程Tst_Thread.dpr)
Google搜到线程的例子都是那个画图的,猛禽那个多线程又太过高深(对于我这一滴水来说),万一老师开线程的博还是要等。
只有自己看着《Delphi5开发人员指南》中文版PDF一步一步来弄懂些初步的东西,到时候可以跟上万一老师的课程。
一、创建:
1、直接书写:
unit Unit1;
interface
uses Classes;
TMyThead = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;
implementation
{用鼠标放在上面的TMyThead上按ctrl+alt+c直接自动生成下面的}
procedure TMyThead.Execute;
begin
inherited;
end;
2、在File菜单的New—Others—DelphiFiles里面选ThreadObject,出来一个对话框,你在Thread名字里填TMyThread后,就会自动生成一个新的Unit2,里面的内容和上面一样。
二、简单例子:
(例程:
Tst_Thread.dpr)
在一个Form上放3个按钮和一个Memo,然后加上下面这段。
TMyThead = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;
var
Form1:
TForm1;
m:
integer;
implementation
{$R *.dfm}
{ TMyThead }
function Func1(const n:
Integer):
Integer; // 定义一个耗时函数来运行
begin
Result:
=Round(abs(Sin(Sqrt(n))));
end;
procedure TMyThead.Execute;
var
i:
integer;
begin
for i :
= 0 to 20000000 do
inc(m,Func1(i)); //m全局变量
end;
procedure TForm1.Button1Click(Sender:
TObject);
var
i:
integer;
begin
for i :
= 0 to 20000000 do
inc(m,Func1(i)); //m全局变量
end;
procedure TForm1.Button2Click(Sender:
TObject);
var
MyThread:
TMyThead;
begin
m:
=0;
MyThread:
=TMyThead.Create(False);
end;
procedure TForm1.Button3Click(Sender:
TObject);
begin
Memo1.Lines.Add('ok'+inttostr(m));
end;
end.
Button1Click后,Button3要过好几秒才能按下(嘿嘿,我的机子好,书上的例子i才200万,我加到2000万Button3才延迟几秒)。
Button2Click后,立刻可以按Button3,这就是线程的好处。
另外,我这里还没搞懂线程在哪安全free,所以干脆不free了。
注意:
当TThread的Create()被调用时,需要传递一个布尔型的参数CreateSuspended。
如果把这个参数设成False,那么当调用Create()后,Excute()会被自动地调用,也就是自动地执行线程代码。
如果该参数设为True,则需要运行TThread的Resume()来唤醒线程。
一般情况下,当你调用Create()后,还会有一些其他的属性要求设置。
所以,应当把CreateSuspended参数设为True,因为在TThread已执行的情况下设置TThread的属性可能会引起麻烦。
再深入一点讲,在构造函数Create()中隐含调用了一个RTL例程BeginThread(),而它又调用了一个API函数CreateThread()来创建一个线程对象的实例。
CreateSuspended参数表明是否传递CREATE_SUSPEDED标志给CreateThread()。
三、线程的安全Free:
(ps:
这是我从PDF上copy整理的,例子稍微改过,本人没有那么高深)
当线程对象的Excute()执行完毕,我们就认为此线程终止了。
这时,它会调用Delphi的一个标准例程EndThread(),这个例程再调用API函数ExitThread()。
由ExitThread()来清除线程所占用的栈。
当结束使用TThread对象时,应该确保已经把这个ObjectPascal对象从内存中清除了。
这才能确保所有内存占有都释放掉。
尽管在进程终止时会自动清除所有的线程对象,但及时清除已不再用的对象,可以使内存的使用效率提高。
利用将FreeOnTerminate的属性设为True的方法来及时清除线程对象是最方便的办法,这只需要在Excute()退出前设置就行了。
设置方法如下:
procedure TMyThead.Execute;
var
i:
integer;
begin
FreeOnTerminate:
=True;
for i :
= 0 to 20000000 do
inc(m,Func1(i));
end;
这样,当一个线程终止时,就会触发OnTerminate事件,就有机会在事件处理过程内清除线程对象了。
若提前退出,Excute()就要不断检查Terminated属性的值。
上面的代码继续加上:
procedure TMyThead.Execute;
var
i:
integer;
begin
FreeOnTerminate:
=True; //终止后自动free
for i:
=0to 20000000 do
begin
if Terminated then Break;
inc(m,Func1(i));
end;
end;
注意:
某些紧急情况下,你可以使用Win32API函数TerminateThread()来终止一个线程。
但是,除非没有别的办法了,否则不要用它。
例如,当线程代码陷入死循环时。
TerminateThread()的声明如下:
functionTerminateThread(hThread:
THandle;dwExitCode:
DWORD);
TThread的Handle属性可以作为第一个参数,因此,TerminateThread()常这样调用:
TerminateThread(MyThread.Handle,0)
如果选择使用这个函数,应该考虑到它的负面影响。
首先,此函数在WindowsNT与在
Windows95/98下并不相同。
在Windows95/98下,这个函数能够自动清除线程所占用的栈;而在WindowsNT下,在进程被终止前栈仍然保留。
其次,无论线程代码中是否有try...finally块,这个函数都会使线程立即停止执行。
这意味着,被线程打开的文件没有被关闭、由线程申请的内存没有被释放等情况。
而且,这个函数在终止线程的时候也不通知DLL,当DLL关闭时,这也容易出现问题。
四、线程的挂起和唤醒:
当线程Create()中的CreateSuspended属性为True时,线程创建后并不立即执行。
可以用用Suspend()和Resume()来动态地挂起或唤醒。
//挂起和唤醒
procedure Func2(MyThread:
TMyThead;Memo:
TMemo);
var
PassTime:
Cardinal;
begin
MyThread.Suspend;
PassTime:
=GetTickCount;
Memo.Lines.Add('m:
'+inttostr(m));
Sleep(2000); //等待2秒
PassTime:
=GetTickCount-PassTime;
Memo.Lines.Add('SuspendTime:
'+inttostr(PassTime)+'*m:
'+inttostr(m));
MyThread.Resume;
PassTime:
=GetTickCount;
Sleep(2000);
PassTime:
=GetTickCount-PassTime;
Memo.Lines.Add('ReSumeTime:
'+inttostr(PassTime)+'*m:
'+inttostr(m));
end;
procedure TForm1.Button5Click(Sender:
TObject);
var
MyThread:
TMyThead;
begin
m:
=0;
MyThread:
=TMyThead.Create(False);
Func2(MyThread,Memo1);
end;
运行结果:
Memo1
m:
0
SuspendTime:
2000*m:
0
ReSumeTime:
2000*m:
9630399
五、取得线程的时间:
(本节只是介绍GetThreadTimes()的用法,可略过)
上例可以看见,用Windows.GetTickCount()来取得线程运行时间是不准确的。
Win32提供了一个API函数GetThreadTimes(),定义如下:
BOOLWINAPIGetThreadTimes(
HANDLEhThread,
LPFILETIMElpCreationTime,线程创建的时间
LPFILETIMElpExitTime,线程退出的时间。
如果线程还在执行,此值无意义。
LPFILETIMElpKernelTime,执行操作系统代码所用的时间。
LPFILETIMElpUserTime执行应用程序本身代码所用的时间。
);
函数返回值失败时为0,成功为不等于零的数。
可用GetLastError()来取得更详细的资料。
以上四个参数都是TFileTime类型。
此类型在Windows单元中声明如下:
typedefstruct_FILETIME{
DWORDdwLowDateTime;
DWORDdwHighDateTime;
}64位数,以100纳秒(1纳秒=10亿分之一秒)的时间间隔自1601年1月1号(UTC)表示。
TFileTime的长度是64位,为了进行数学运算可以把它转换为Int64。
例如两个TFileTime的值比较大小:
IfInt64(UserTime)>Int64(KernelTime)thenBeep;
Delphi只提供了FileTimeToDosDateTime,FileTimeToLocalFileTime和FileTimeToSystemTime这三个转换函数,所以要自己写和TdateTime的转换函数。
上面的例子加多一个函数:
procedure Func3(MyThread:
TMyThead;Memo:
TMemo); //计算线程时间
function FileTimeToDateTime(FileTime:
TFileTime):
TDateTime; //TFileTime转化成TDateTime
var
SysTime:
TSystemTime;
begin
if not FileTimeToSystemTime(FileTime,SysTime) then
Raise Exception.CreateFmt('FileTimeToSystemTime failed.'+
'Error code %d',[GetLastError]);
with SysTime do
Result:
=EncodeDate(wYear,wMonth,wDay)+
EncodeTime(wHour,wMinute,wSecond,wMilliseconds);
end;
var
CreateTime,ExitTime,KernelTime,UserTime:
TFileTime;
begin
if GetThreadTimes(MyThread.Handle,CreateTime,ExitTime,KernelTime,UserTime) then
begin
Memo.Lines.Add('创建时间:
'+DateTimeToStr(FileTimeToDateTime(CreateTime)));
Memo.Lines.Add('退出时间:
'+DateTimeToStr(FileTimeToDateTime(ExitTime)));
Memo.Lines.Add('Win时间:
'+DateTimeToStr(FileTimeToDateTime(KernelTime)));
Memo.Lines.Add('进程时间:
'+DateTimeToStr(FileTimeToDateTime(UserTime)));
end;
end;
procedure TForm1.Button5Click(Sender:
TObject);
var
MyThread:
TMyThead;
begin
m:
=0;
MyThread:
=TMyThead.Create(False);
Func2(MyThread,Memo1);
Memo1.Lines.Add('---------------');
Func3(MyThread,Memo1);
end;
运行结果:
Memo1
m:
0
SuspendTime:
2000*m:
0
ReSumeTime:
2000*m:
9585649
---------------
创建时间:
2008-10-1019:
59:
31
退出时间:
1601-1-1
Win时间:
1601-1-1
进程时间:
1601-1-223:
59:
58
还是不清楚如何具体运用。
◆delphi多线程编程之二◆
(调试环境:
Delphi2007+WinXPsp3例程:
Tst_Thread2.dpr)
一、线程的局部变量threadvar
type
TForm1 = class(TForm)
Button1:
TButton;
Memo1:
TMemo;
procedure Button1Click(Sender:
TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TMyThread=class(TThread)
private
FNewStr:
string;
protected
procedure Execute;override;
public
constructor Create(const ANewStr:
string);
end;
var
Form1:
TForm1;
implementation
{$R *.dfm}
var
n:
integer;
threadvar
GlobalStr:
string;
procedure SetShowStr(const S:
string;Memo:
TMemo);
begin
if s=''then
//MessageBox(0,pchar(GlobalStr),'The String is...',MB_OK)
begin
inc(n);
Memo.Lines.Add(inttostr(n)+GlobalStr);
end else GlobalStr:
=S;
end;
constructor TMyThread.Create(const ANewStr:
string);
begin
FNewStr:
=ANewStr;
Inherited Create(False);
end;
procedure TMyThread.Execute;
begin
FreeOnTerminate:
=True; //终止后自动free
SetShowStr(FnewStr, Form1.Memo1);
SetShowStr('', Form1.Memo1);
end;
procedure TForm1.Button1Click(Sender:
TObject);
begin
n:
=1;
SetShowStr('Hello World', Form1.Memo1); //Global:
='Hello World'
SetShowStr('', Form1.Memo1); //show 1Global
TMyThread.Create('Mygodsos'); //Global:
='Mygodsos',show 2Global
Sleep(100);
SetShowStr('', Form1.Memo1); //show 3Global
end;
end.
当GlobalStr声明不同时,结果分别是:
Threadvarvar
1HelloWorld1HelloWorld
3HelloWorld3Mygodsos
2Mygodsos2Mygodsos
Delphi利用关键字threadvar封装API线程局部存储。
它能使你在第一个运行的线程中创建一个全局变量的拷贝。
如果用ThreadVar声明变量,则在程序结束前必须手动释放其占用的空间(这个手动释放的问题不知道d2007解决没有?
)
(ps我看到很多关于threadvar释放要:
=''的,若不是string类型的给如何释放?
)
二、双线程看看Threadvar:
把Execute()里Create(False)改成Create(True)
procedure TForm1.Button2Click(Sender:
TObject);
var
MyThread1:
TMyThread;
MyThread2:
TMyThread;
begin
n:
=0;
SetShowStr('Hello World',Form1.Memo1); //Global:
='Hello World'
SetShowStr('',Form1.Memo1); //show Global
MyThread1:
=TMyThread.Create('thread 1:
'); //Global:
='Mygodsos',show Global
MyThread2:
=TMyThread.Create('thread 2:
'); //Global:
='Mygodsos',show Global
MyThread1.Resume;
MyThread2.Resume;
Sleep(100);
SetShowStr('',Form1.Memo1); //show Global
end;
当GlobalStr声明为不同,结果对比是:
ThreadvarVar
1HelloWorld1HelloWorld
4HelloWorld4thread2:
2thread1:
3thread2:
3thread2:
2thread1:
这里出现一个十分有趣的问题,若sleep()位置不同,结果不一样。
MyThread1.Resume;
Sleep(100);
MyThread2.Resume;
//Sleep(100);
改成这样后,结果是:
ThreadvarVar
1HelloWorld1HelloWorld
3HelloWorld3thread1:
2thread1:
2thread1:
4thread2:
4thread2:
留意一下前面的序号,似乎sleep()的作用比较奇怪。
三、Sleep()函数
Win32API过程Sleep()。
此过程声明如下:
procedureSleep(dwMilliseconds:
DWORD);stdcall;
Sleep()过程用来告诉操作系统,当前的线程在参数dwMilliseconds指定的时间内不需要分配任何CPU时间。
插入这个调用是使很多的任务在发生时,使执行哪个线程有一些随机性。
通常,可以把参数dwMilliseconds设为0。
尽管,这并没有使当前的线程真的“睡眠”,但它使操作系统把CPU时间分给了其他优先级相等或更高的线程。
要小心Sleep()神秘的时间调整问题。
Sleep()可能会使你的机器出现特别的问题。
这种问题在另一台机器上可能无法再现。
对上面的例子,改回以下,把global设成var声明:
MyThread1.Resume;
MyThread2.Resume;
Sleep(100);
执行几次,结果:
1HelloWorld1HelloWorld
4thread2:
4thread2:
3thread2:
2thread1:
2thread1:
3thread2:
看来sleep后,在主进程中先返回哪个线程是有一定的随机性的。
但前面的序号还是一样的,意思是虽然主进程返回哪个线程的次序不一样,但线程执行的次序还是没变。
不知道我这样理解对不对。
◆Delphi多线程编程之三同步读写全局数据◆
(调试环境:
Delphi2007+WinXPsp3例程:
Tst_Thread3.dpr)
开始研究最重要的多线程读写全局数据了,结合书上的例子,我修改成下面的情况:
unit Tst_Thread3U;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;
type
TForm1 = cl
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- delphi 多线程 编程