|
1-1 多線程的基本概念 WIN 98/NT/2000/XP 是個多任務操作系統,也就是:一個進程可以劃分爲多個線程,每個線程輪流佔用CPU 運行時間和資源,或者說,把CPU 時間劃成片,每個片分給不同的線程,這樣,每個線程輪流的“掛起”和“喚醒”,由於時間片很小,給人的感覺是同時運行的。 多線程的兩個概念: 1)進程:也稱任務,程序載入內存,並分配資源,稱爲“一個進程”。 2)線程:是程序的執行單位(線程本身並不包括程序代碼,真正擁有代碼的是進程),每個進程至少包括一個線程,稱爲主線程,一個進程如果有多個線程,就可以共享同一進程的資源,並可以併發執行。 請注意: 1-2 Tthread 對象 雖然Windows 提供了比較多的多線程設計的API 函數,但是直接使用API 函數一方面極其不方便,而且使用不當還容易出錯。爲解決這個問題,Borland 公司率先推出了一種Tthread 對象,來解決多線程設計上的困難,簡化了多線程問題的處理。 一、Tthread 對象的主要方法 構造線程: constructor Create(CreateSuspended:boolean) 其中:CreateSuspended=true 構造但不喚醒 也可以用如下方法 inheried Create(CreateSuspended:boolean)
suspend 喚醒線程: resume (注意:注意這個屬性是把線程掛起的次數減一,當次數爲0 時,即喚醒。也就是說,線程掛起多少次,喚醒也需要多少次。同時掛起的時候將保持線程的地址指針不變,所以線程掛起後再喚醒,將從掛起的地方開始運行) 析構(清除線程所佔用的內存): destroy 終止線程(後面會具體討論): Terminate 二、線程應用的簡單例子: 下面通過一個例子說明上述方法的應用。我們知道,循環是獨佔性最強的運行方式之一,現在希望建立兩個線程對象,實現循環的並行運行。具體方法如下: File---New---Thread Object 這就自動在主Form中建立了一個線程單元(在對話框裏寫上線程名字),默認的名字是Unit2。同樣方法建立第二個線程單元Unit3。 procedure Object.Execute; end; 其中的程序是線程喚醒後自動執行的程序,也可以在裏面調用其他自定義的過程和函數。這個過程的結束,意味着線程程序的結束。 type private procedure Execute; override; 並且在implementation區域寫上: constructor Object.create; 假定我們給兩個線程對象起的名字是: mymath1 這樣在Unit1,應該作如下聲明: {$R *.DFM} uses unit2,unit3; var thread1:mymath1; 這樣在主線程,將可以通過這兩個線程變量調用對應的線程方法。 在主線程區構造線程的方法是: thread1:=mymath1.create; 掛起: thread1.suspend; 喚醒: thread1.resume; 析構: thread1.destroy; 這裏需要說明的是,由於線程單元需要調用Form的Edit控件(對象),可以採用兩種方法: 1)在線程單元定義一個TEdit對象,例如 edit4:Tedit; 在Execute過程內直接引用 但在Unit1中一定要在FormCreate過程裏作一個賦值: procedure TForm1.FormCreate(Sender: TObject); 2)在第二個線程中首先聲明調用Unti1,也就是要加上 這樣就可以在該線程單元直接調用主Form的控件了,比如在Unit3中可以寫: form1.edit2.text:=inttostr(i) 瞭解了這些基本規則,就可以寫出比較複雜的多線程程序了。 Uses Classes; 這樣,往往很多函數和對象在線程單元裏不能使用,所以在必要時,應該根據需要User相應的單元,這個例程爲了簡單,把大部分常用的單元都拷過去了,這並不是推薦的辦法,因爲這樣一來會使程序的垃圾過 三、常用的API 函數 在處理多線程問題的時候,也經常用到Windows提供的API 函數,需要說明的是,Tthread 對象內部封裝的方法,其實主要也是調用API 函數,但是,考慮更全面,更安全。而直接調用API 函數,往往會因爲運用不當,出現一些不應有的錯誤。所以,我個人以爲,只要用Tthread 對象的方法能解決的,就不要直接調用API 函數,API 函數只應該在用在Tthread 對象方法解決不了的時候。 參數2,--線程堆棧尺寸(一般=0,與主線程相同長度,而且可以根據需要自動變化) 書上有這個函數應用的十分清晰的例子,可以自己閱讀。 對應suspend(掛起)和resume(喚醒)的兩個API 函數爲: Function ResumeThread(hThread:Thandle):DWORD; 其中,Thandle被要求控制線程的句柄,函數調用成功,返回掛起的次數,調用不成功。則返回0xFFFFFFFF。 四、線程的終止和退出: 1)自動退出: 一個線程從Execute()過程中退出,即意味着線程的終止,此時將調用Windows的ExitThread()函數來清除線程所佔用的堆棧。 2)受控退出: 利用線程對象的Terminate屬性,可以由進程或者由其他線程控制線程的退出。只需要簡單的調用該線程的Terminate方法,並設直線程對象的Terminate屬性爲True。 While not Terminate do 3)退出的API 函數: 關於線程退出的API 函數聲明如下:code Function TerminateThread(hThread:Thandle;dwExitCode:DWORD); 不過,這個函數會使代碼立刻終止,而不管程序中有沒有 機制,可能會導致錯誤,不到萬不得已,最好不要使用。 4) 利用掛起線程的方法(suspend) 利用掛起線程的suspend方法,後面跟個Free,也可以釋放線程, 書上有相應的例子。
在多線程的情況下,一般要根據線程執行任務的重要性,給線程適當的優先級,一般如果量的線程同時申請CPU 時間,優先級高的線程優先。 在Windows下,給線程的優先級分爲30級,而Delphi中Tthread 對象相對簡單的把優先級分爲七級。也就是在Tthread中聲明瞭一個枚舉類型TTthreadPriority: type TTthreadPriority(tpidle,tpLowest,tpLower,tpNormal, 分別對應的是最低(系統空閒時有效,-15),較低(-2),低(-1),正常(普通0),高(1),較高(2),最高(15)。 其中tpidle和tpTimecrital有些特殊,具體情況請閱讀書上有關內容。 設置優先級可使用thread對象的priority屬性: 這裏給出了一個演示多線程優先級的實例:
一)使用ADO模式 由於Delphi 6.0的ADO 數據源控件內置了多線程能力,所以,在ADO模式下,使用多線程不需要做更多的工作。用兩個ADOTable控件,分別連到兩個數據庫,並且分別通過DataSource控件,與數據幫定控件聯繫就可以了,這樣就可以實現前後臺處理數據庫問題。
如果需要使用BDE 模式,那麼多線程使用數據庫,就要考慮Session的問題。在單線程時,每個數據源的建立就自動生成一個Session,這是這個數據源私有的關於數據庫信息的文件。但多線程時,必須統一管理,所以在BDE 中專門提供了一個Tsession對象,它可以同時管理不同的Databas數據源對象。 數據庫1---databas(2)----table(Qurey)(3)---datasource
2-4 多線程的同步機制 同步機制,實際上是事件驅動機制,意思是讓線程平時處於“休眠”狀態,除非發生某個事件才觸發。 一、使用Synchronize方法 這個方法用於訪問VCL 主線程所管理的資源,其方法的應用是: procedure Theater.update; 這裏通過 Synchronize使線程方法update同步。
在Delphi的IDE提供的構件中,有一些對象內部提供了線程的同步機制,工作線程可以直接使用這些控件,比如:Tfont,Tpen,TBitmap,TMetafile,Ticon等。另外,一個很重要的控件對象叫TCanvas,提供了一個Lock方法用於線程的同步,當一個線程使用此控件對象的時候,首先調用這個對象的Lock方法,然後對這個控件進行操作,完畢後再調用Unlock方法,釋放對控間的控制權。 三、Waitfor方法 Function Waitfor(Const Astring:string):string; thread1.resume; 那麼所有的線程都必須等待thread1運行完畢後才能運行,其中包括主線程,可以預想,由於thread1調用了主窗體的Edit控件,那麼,在thread1運行中間,Edie1也不會顯示。
Windows API函數提供了很多同步技術,下面簡要介紹。 1)臨界區 var 初始化: initializeCriticalSection(cs); 獨佔 EnterCriticalSection(cs); LeaveCriticalSection |