delphi下的多线程程序设计 (2001年5月15日).txt

delphi 编程技巧

DELPHI下的多线程程序设计 (2001年5月15日) 

本站更新  分类:系统   作者:梁毅 李韬  推荐:   阅读次数:287  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

　　我们知道，win95或winNT都是“多线程”的操作系统，在DELPHI2．0中，我们可以充分利用这一特性，
编写出“多线程”的应用程序。

　　对以往在DOS或16位windows下写程序的人来说，“多线程”仍然是陌生的，但如同以前我们从DOS下的单
任务过渡到windows3．1下的多任务，如今我们又必须过渡到“多线程”领域，毕竟计算机时代是在不断发展
的。不过，幸运的是，在DELPHI2．0下进行多线程程序设计并不需要我们去学习庞大的WIN32API函数，我们
可以利用DELPHI下标准的多线程类TThread来完成我们的工作。

　　TThread是一个abstract（抽象）类，也就是说，并不需要根据TThread来声明变量（而且根据TThread声
明的变量也是完全无用），我们要做的是把TThread作为基类，用继承的形式来生成子类。实际上，根据
TThread来写多线程应用程序是非常容易的。

　　下面就是一个基本的继承TThread生成的多线程类。

　　QuerThrd．Pas

　　unitQuerThrd；

　　interface

　　uses

　　Classes，DBTables；

　　type

　　TQueryThreadΚclass（TThread）

　　private

　　fQuery：tQuery；

　　protected

　　procedureExecute；override；

　　public

　　constructorCreate（Suspended：Boolean；Query：
TQuery）；

　　end；

　　implementation

　　constructor

　　TQueryThread．Create（Suspended：Boolean；Quer
y：TQuery）；

　　begin

　　inheritedCreate（Suspended）；

　　fQuery：ΚQuery；

　　FreeOnTerminate：ΚTrue；

　　end；

　　procedureTQueryThread．Execute；

　　begin

　　fQuery．Open；

　　end；

　　end．

　　在上面这个简单的例子中，我们构造了一个TThread的子类TQuery