DELPHI32下的多線程程序設計梁毅 (2000年8月10日) 

本站更新  分類:   作者:李韜  推薦:   閱讀次數(shù):626  
(http://www.codesky.net)  

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

我們知道，win95或winNT都是“多線程”的操作系統(tǒng)，在DELPHI2.0中，我們可以充分利用這一特性，編寫出“多線程”的應用程序。
1 對以往在DOS或16位windows下寫程序的人來說，“多線程”仍然是陌生的，但如同以前我們從DOS下的單任務過渡到windows3.1下的多任務，如今我們又必須過渡到“多線程”領域，畢竟計算機時代是在不斷發(fā)展的。不過，幸運的是，在DELPHI2.0下進行多線程程序設計并不需要我們去學習龐大的WIN32API函數(shù)，我們可以利用DELPHI下標準的多線程類TThread來完成我們的工作。 

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

下面就是一個基本的繼承TThread生成的多線程類。

　　QuerThrd.Pas
　　unit　QuerThrd;
　　interface
　　uses
　 　Classes,DBTables;
　　type
　　TQueryThread＝class(TThread)
　　private
　　fQuery:tQuery;
　　protected
　　procedure　Execute;override;
　　public
　　　constructor　Create(Suspended:Boolean;Query:TQuery);
　　end;

　　implementation
　　constructor
　　　TQueryThread.Create(Suspended:Boolean;Query:TQuery);
　　begin
　　　inheritedCreate(Suspended);
　　　fQuery:＝Query;
　　　FreeOnTerminate:＝True;
　　end;

　　procedure　TQueryThread.Execute;
　　begin
　　　fQuery.Open;
　　end;
　　end.

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