delphi多線程編程文庫-文庫吧
2025-08-06 01:42 本頁面
【正文】 同樣方法建立第二個(gè)線程單元Unit3。要注意的是：Unit2和Unit3中有一個(gè)給定的過程：procedure 。beginend。其中的程序是線程喚醒后自動(dòng)執(zhí)行的程序，也可以在里面調(diào)用其他自定義的過程和函數(shù)。這個(gè)過程的結(jié)束，意味著線程程序的結(jié)束。為了構(gòu)造線程，在interface的Type區(qū)，定義一個(gè)構(gòu)造過程：typeObject = class(TThread) //自動(dòng)給出的，也可以直接改privateprotectedprocedure Execute。 override。publicconstructor create。 //自己寫的并且在implementation區(qū)域?qū)懮希篶onstructor 。begininherited create(true)。end其中Object 為線程對(duì)象的名字。所以這么寫，是希望在主Form中調(diào)用這個(gè)構(gòu)造過程。Create()的參數(shù)用True，表明構(gòu)造出的線程為掛起狀態(tài)。注意一下，在同一個(gè)線程對(duì)象里，如果兩次構(gòu)造，將產(chǎn)生兩個(gè)獨(dú)立的線程，不但運(yùn)行是獨(dú)立的，而且使用線程的局部變量也是獨(dú)立的。但這里為了簡化問題，還是建立了兩個(gè)獨(dú)立的線程對(duì)象，而且兩個(gè)循環(huán)數(shù)是不同的，在并行運(yùn)算時(shí)容易判斷出是兩個(gè)不同的程序在運(yùn)行。 假定我們給兩個(gè)線程對(duì)象起的名字是：mymath1mymath2 這樣在Unit1，應(yīng)該作如下聲明：implementation{$R *.DFM}uses unit2,unit3。var thread1:mymath1。thread2:mymath2。這樣在主線程，將可以通過這兩個(gè)線程變量調(diào)用對(duì)應(yīng)的線程方法。 在主線程區(qū)構(gòu)造線程的方法是：thread1:=。thread2:=。掛起：。喚醒：。析構(gòu)：。 這里需要說明的是，由于線程單元需要調(diào)用Form的Edit控件（對(duì)象），可以采用兩種方法：1） 在線程單元定義一個(gè)TEdit對(duì)象，例如edit4:Tedit。 在Execute過程內(nèi)直接引用但在Unit1中一定要在FormCreate過程里作一個(gè)賦值：procedure (Sender: TObject)。begin:=edit1。end。這樣，就把第一線程的edit4與Form上的edit1聯(lián)系來。2）在第二個(gè)線程中首先聲明調(diào)用Unti1，也就是要加上Uses Unit1。這樣就可以在該線程單元直接調(diào)用主Form的控件了，比如在Unit3中可以寫：:=inttostr(i)了解了這些基本規(guī)則，就可以寫出比較復(fù)雜的多線程程序了。還有一點(diǎn)要說明的，默認(rèn)生成的線程單元，調(diào)用的單元只有一個(gè)：Uses Classes。這樣，往往很多函數(shù)和對(duì)象在線程單元里不能使用，所以在必要時(shí)，應(yīng)該根據(jù)需要User相應(yīng)的單元，這個(gè)例程為了簡單，把大部分常用的單元都拷過去了，這并不是推薦的辦法，因?yàn)檫@樣一來會(huì)使程序的垃圾過多，所以，一般要用什么拷什么。三、常用的API 函數(shù)在處理多線程問題的時(shí)候,也經(jīng)常用到Windows提供的API 函數(shù)，需要說明的是，Tthread 對(duì)象內(nèi)部封裝的方法，其實(shí)主要也是調(diào)用API 函數(shù)，但是，考慮更全面，更安全。而直接調(diào)用API 函數(shù)，往往會(huì)因?yàn)檫\(yùn)用不當(dāng)，出現(xiàn)一些不應(yīng)有的錯(cuò)誤。所以，我個(gè)人
外語相關(guān)推薦
鄂ICP備17016276號(hào)-1