DELPHI32下的多線程程序設計 (2000年11月13日) 

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

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

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

　　TThread是一個abstract(抽象)類，也就是說，并不需要根據TThread來聲明變量(而且根據TThread聲
明的變量也是完全無用)，我們要做的是把TThread作為基類，用繼承的形式來生成子類。實際上，根據
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