Delphi多线程实例解析
来源:互联网 发布:淘宝天猫双十一销售额 编辑:程序博客网 时间:2024/06/09 13:46
转自: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;interfaceuses 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.
- Delphi多线程实例解析
- delphi 多线程实例
- Delphi的多线程开发实例
- Delphi的多线程开发实例
- Java多线程-实例解析
- Java多线程-实例解析
- Java多线程-实例解析
- 多线程函数实例解析
- Java多线程-实例解析
- java多线程实例解析
- Java多线程-实例解析
- Linux多线程编程实例解析
- Linux多线程编程实例解析
- Linux多线程编程实例解析
- Linux多线程编程实例解析
- Linux多线程编程实例解析
- Delphi编程:三层数据库构架实例解析
- 113_《DELPHI接口技术开发实例解析》
- C书籍
- 生不如屎
- 黑马程序员-字符串
- Android异步加载图片详解之方式二(3)
- 不要去预见烦恼或担心可能永远不会发生的事情。置身于明媚的阳光之中吧。
- Delphi多线程实例解析
- 网线网卡wifi使用方法
- 个人整理的一些常见的开源测试工具
- win7电脑如何建立wifi热点?
- Android异步加载图片详解之方式二(2)
- 【转】定点数和浮点数区别
- Android的文本和输入---复制和粘贴(一)
- 解决libvirt权限问题
- ibatis自定义返回列