Delphi多线程实例解析

转自：http://www.enet.com.cn/article/2007/0924/A20070924841584.shtml

 

 

我们都知道当前的Windows操作系统是一个“多线程”操作系统。那么什么是线程呢？线程就是进程中的一个实体，它和进程一样能够独立的执行控制，由操作系统负责调度，其区别就在于线程没有独立的存储空间，而是与同属于一个进程的其他线程共享一个存储空间，这使得多线程之间的通信较进程简单，并且多线程的执行都是并发而且是相互独立的。为了运行所有这些线程,操作系统为每个独立线程安排一些CPU 时间,操作系统以轮转方式向线程提供时间片,这就给人一种假象,好象这些线程都在同时运行。

　　CreatThread函数是用于创建一个线程，CreatThread函数原形及参数说明如下：

　　HANDLE CreatThread（

　　 LPSECURITY_ATTRIBUTES lpThreadAttributes,

　　 DWORD dwStackSize,

　　 LPTHREAD_START_ROUTINE lpStartAddress,

　　 LPVOID lpParameter,

　　 DWORD dwCreationFlags,

　　 LPDWORD lpThreadld

　　 ),

　　参数说明：

　　pThreadAttributes 如果为NULL，该线程使用默认安全属性。如果希望所有子进程能够继承该线程对象的句柄，必须将他的bInheritHand成员初始化为True。

　　dwStackSize 设定线程堆栈的地址空间。如果非0，函数将所有的存储器保留并分配给线的程堆栈。

　　lpStartAddress 线程函数的地址。

　　lpParameter 传递给线程函数的参数。

　　dwCreationFlags 如果是0，线程创建后立即对它进行调度，如果是CREATE_SUSPENDED，系统对它进行初始化后暂停该线程的运行。

　　lpThreadld 用来存放系统分配给新线程的ID。

　　下面这段程序就介绍了我们在使用线程和没有使用线程二种情况下，运行程序之后该程序的反应。当点击Button1按钮时，则建立一个线程，这时候我们可以看到在应用程序进行位图移动的同时，可以对窗体的尺寸大小进行改变或移动窗体位置。当按下Button2按钮时，则不建立线程，我们会发现程序在位图没有完全移动完之前根本不能做其它任何事情，如果我们设置位图循环移动的话，那么感觉这个应用程序就像死掉一样！

 

unit Unit1;
interface
uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, ExtCtrls;
type
    TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    private
    public
    end;
var
    Form1: TForm1;
    implementation
    {$R *.dfm}

function NewThread(P:pointer):Longint;stdcall;
var
    newbmp: TBitmap;
    i,bmpheight,bmpwidth:integer;
begin
    newbmp:= TBitmap.Create;
    newbmp.Width:=500;
    newbmp.Height:=200;
    bmpwidth:=500;
    bmpheight:=200;
    newbmp.LoadFromFile('d:\11.bmp');
    for i:=0 to bmpheight do
    begin
        Form1.Canvas.Lock;
        form1.Canvas.CopyRect(Rect(0,bmpheight-i,bmpwidth,bmpheight),newbmp.Canvas,Rect(0,0,bmpwidth,i));//通过CopyRect方法，使位图实现在From1窗体上的视觉上移
        Form1.Canvas.Unlock;
        sleep(10);//休眠时间
    end;
    newbmp.free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    CThread:Thandle;//声明句柄
    Tid:DWord;
begin
    Cthread:=CreateThread(nil,0,@NewThread,nil,0,Tid);//创建一个线程，同时调用线程函数
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    NewThread(nil);//没有创建线程时，直接调用线程函数
end;
end.