2010-02-22 17:08:46
Delphi把多线程相关的API封装在TThread这个类中,可以方便实现多线程运用。首先看下TThread的声明:
由于TThread是一个抽象类,所以不能直接创建实例,要创建其派生类的实例。
一般的使用流程是这样的:
1、先新建一个以TThread为父类的派生类;
2、覆写构造函数,将特定的参数传递进来,保有存为类的私有变量;
3、覆写Execute方法,将线程要实现的操作放到这个过程中;
4、如果需要与主线程VCL同步的话,调用Synchronize方法;
5、Execute执行完后线程自行终止,如果指定了终止事件则执行OnTerminate指定的过程。
来一个例子:主窗体上画一个位图BitMap,点击Button1就创建一个线程,线程在位图左边逐像素拷贝出一个相同的位图,同时主窗体的进度条显示拷贝的进度。点击Button2可以随时中止这个拷贝线程。线程中止后,执行一个自定义的中止事件。
说明:1、线程类可以单独放在一个单元中,与主窗体互相Uses。
2、线程类的Create构造函数中,可以根据需要传入多个任意类型的参数,而不像CreateThread这个API函数中只能传入一个指针。
3、线程的Excecute过程中,最好加上if not Terminated then 不停地检查是线程是否被终止,这样可以在线程未执行完成前终止线程。
4、Synchronize过程,与主线程VCL同步,其实其中的方法是由主线程来执行的,所以Synchronize的参数方法UpdateProgressBar执行的越少越好。不要将执行耗时的操作放到这里,否则跟单线程一样,窗体会“死”掉。可以试验一下,将像素拷贝工作这个循环放到UpateProgressBar过程里,这样执行的时候,无法再进行其他操作(如Edit框中输入东东)。
5、线程的OnTerminate指定的子程序,应该是主线程的成员,因为它是由主线程执行的。这个子程序必须加入相应的参数格式如(Sender :TObject),否则不能编译通过。
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/asciil/archive/2009/07/17/4355888.aspx