DELPHI下的多線程程序設(shè)計 (2001年5月15日) 

本站更新  分類:系統(tǒng)   作者:梁毅 李韜  推薦:   閱讀次數(shù):287  
(http://www.codesky.net)  

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

　　我們知道，win95或winNT都是“多線程”的操作系統(tǒng)，在DELPHI2．0中，我們可以充分利用這一特性，
編寫出“多線程”的應(yīng)用程序。

　　對以往在DOS或16位windows下寫程序的人來說，“多線程”仍然是陌生的，但如同以前我們從DOS下的單
任務(wù)過渡到windows3．1下的多任務(wù)，如今我們又必須過渡到“多線程”領(lǐng)域，畢竟計算機時代是在不斷發(fā)展
的。不過，幸運的是，在DELPHI2．0下進行多線程程序設(shè)計并不需要我們?nèi)W習龐大的WIN32API函數(shù)，我們
可以利用DELPHI下標準的多線程類TThread來完成我們的工作。

　　TThread是一個abstract（抽象）類，也就是說，并不需要根據(jù)TThread來聲明變量（而且根據(jù)TThread聲
明的變量也是完全無用），我們要做的是把TThread作為基類，用繼承的形式來生成子類。實際上，根據(jù)
TThread來寫多線程應(yīng)用程序是非常容易的。

　　下面就是一個基本的繼承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．

　　在上面這個簡單的例子中，我們構(gòu)造了一個TThread的子類TQuery