delphi下的多线程程序设计 .txt

delphi知识收集 我个人的小小收集

DELPHI下的多线程程序设计(1) 
--------------------------------------------------------------------------------
作者：不详 　来源于：不详 　发布时间：2005-3-22 8:14:52 
DELPHI下的多线程程序设计(1) 

　　　　我们知道，win95或winNT都是“多线程”的操作系统，在DELPHI 2．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；Query：TQuery）； 
　　begin 
　　inheritedCreate（Suspended）； 
　　fQuery：ΚQuery； 
　　FreeOnTerminate：ΚTrue； 
　　end； 
　　procedureTQueryThread．Execute； 
　　begin 
　　fQuery．Open； 
　　end； 
　　end． 
　　在上面这个简单的例子中，我们构造了一个TThread的子类TQuery