【正文】 CloseHandle(hMutex)。 procedure 。 const SIZE=10。 // 顯示結(jié)果 procedure Execute。 end。 // 聲明互斥量 implementation {$R *.dfm} procedure (Sender: TObject)。 procedure Button1Click(Sender: TObject)。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Unit2。 dwMilliseconds:DWORD):DWAORD。 ● LpName參數(shù)指出互斥對象的名稱 。lpName:Pchar):Thandle。 第 10章 其他編程 線程同步 說明： 在第一個(gè)線程調(diào)用了 EnterCriticalSection()之后，其他的線程就不能進(jìn)入臨界區(qū)代碼，它們將睡眠；直到第一個(gè)線程調(diào)用LeaveCriticalSection()后，下一個(gè)需要進(jìn)入臨界區(qū)的線程才被喚醒。 LeaveCriticalSection(CS)。 // 進(jìn)入臨界區(qū) for i:=1 to SIZE do // 為數(shù)組各元素賦值 begin A[i]:=next。 end。 begin inc(tag)。 // 全局變量定義 tag:integer=0。 end。 interface uses Windows, SysUtils, Classes。 // 創(chuàng)建 TinitThread線程對象并執(zhí)行 (False)。 CS:TRTLCriticalSection。 Label1: TLabel。 第 10章 其他編程 線程同步 窗體與組件的屬性設(shè)置 第 10章 其他編程 線程同步 （ 2）在 Form1對應(yīng)的 Unit1單元文件中輸入程序代碼： unit Unit1。 第 10章 其他編程 線程同步 【 例 】 設(shè)有一個(gè)全局?jǐn)?shù)組，分別用兩個(gè)線程對其進(jìn)行兩次初始化，需要對這兩個(gè)線程同步，否則將出現(xiàn)數(shù)據(jù)不確定的情形。stdcall。 ● lpCriticalSection是一個(gè) TRTLCriticalSection類型的記錄 ， 在該參數(shù)中傳遞未初始化的記錄 ， ● InitializeCriticalSection()過程就會(huì)填充這個(gè)記錄 。 Delphi分別將事件對象和臨界區(qū)對象封裝為 TEvent和TCriticalSection對象，使得事件和臨界區(qū)更易使用。 end. 第 10章 其他編程 線程的終止 ● 單擊 F9運(yùn)行程序，結(jié)果如圖所示。 Inc(Answer,Round(abs(sin(sqrt(i)))))。 第 10章 其他編程 線程的終止 { TTestThread } procedure 。 implementation uses SysUtils,Main。 protected procedure GiveAnswer。 { 創(chuàng)建線程 ， 使其立即執(zhí)行 } end。 end。 Label2: TLabel。 主窗體（設(shè)計(jì)時(shí)） 第 10章 其他編程 線程的終止 窗體與組件的屬性設(shè)置 第 10章 其他編程 線程的終止 ● 保存主窗體單元為 ，源程序如下： unit Main。 end。 var i:integer。 Synchronize()方法的參數(shù)就是用來傳遞需要在主線程中執(zhí)行的線程中的方法。 當(dāng) Create()需要參數(shù)為 False，則當(dāng)調(diào)用 Create()后，線程對象的Execute()方法將會(huì)自動(dòng)被調(diào)用，即自動(dòng)地執(zhí)行 Execute()的代碼。 end。 ● 輸入線程對象名后， Delphi 7會(huì)自動(dòng)創(chuàng)建一個(gè)包括該線程對象的單 元，該單元給出了線程的框架，其最初的內(nèi)容如下所示： 第 10章 其他編程 TThread類 unit Unit1。 線程與進(jìn)程的差別主要體現(xiàn)在兩個(gè)方面： 線程和進(jìn)程雖然都是系統(tǒng)的基本執(zhí)行單元， 線程的劃分單位比進(jìn)程小，因此支持多線程的系統(tǒng)比只支持多進(jìn)程的系統(tǒng)并發(fā)度高； 進(jìn)程將內(nèi)存作為自己獨(dú)享的資源，每個(gè)進(jìn)程都有自己的內(nèi)存空間；而線程共享內(nèi)存空間，并通過共享內(nèi)存交換信息，因此有利于提高系統(tǒng)效率。 第 10章 其他編程 媒體播放器組件 （ 3） OnPostClick事件 當(dāng) OnClick事件處理程序被調(diào)用以后，觸發(fā)該事件。 第 10章 其他編程 媒體播放器組件 MediaPlayer媒體播放器的其他過程表。 （ 6） Destroy函數(shù) 這是一個(gè)動(dòng)態(tài)的析構(gòu)函數(shù)，該函數(shù)用于撤銷媒體播放器對象。該過程可以根據(jù)需 要重新加載事件處理程序。 第 10章 其他編程 媒體播放器組件 上表 Mode屬性的取值及含義見表 第 10章 其他編程 媒體播放器組件 3. MediaPlayer組件的過程和函數(shù) （ 1） AutoButtonSet過程 該過程用來指定媒體播放器的按鈕是否可用。 （ 3） AutoRewind屬性 該屬性值是 Boolean類型，用于設(shè)置是否具有自動(dòng)重繞功能。 第 10章 其他編程 媒體播放器組件 1. MediaPlayer組件 媒體播放器組件 媒體播放器組件屬性 第 10章 其他編程 媒體播放器組件 2. MediaPlayer組件的屬性 （ 1） AutoEnable屬性 該屬性值是 Boolean類型 。 end。單擊 “播放”按鈕，就會(huì)播放用戶所選擇的文件。 end. 第 10章 其他編程 （ Picture）對象 (6) 運(yùn)行得到如圖的結(jié)果。 。 :=height。 :=width。 trace:=false。 :=clblack。 y1:=y。 moveto(0,foldy)。 newbitmap:TBitmap。Button:TMouseButton。 end。 moveto(0,y)。 moveto(0,foldy)。 oldy:=y。X,Y:Integer)。 // 刷子的格式 flag:=true。 foldy:=1。 :=wsnormal。 第 10章 其他編程 （ Picture）對象 :=fullscreen。 :=dc。 :=。 fullscreencanvas:TCanvas。 flag,trace:boolean。 :=true。 end。 end。 第 10章 其他編程 （ Picture）對象 procedure (Sender: TObject)。 end。 。 releasedc(0,dc)。 // API函數(shù) ， 獲取屏幕 fullscreencanvas:=。 begin :=false。 (5) 編寫程序代碼如下 : procedure (Sender: TObject)。步驟如下： (1) 建立用戶界面：建立窗體 Form1，添加一個(gè) Panel、一個(gè) Timer、 一個(gè) SavePictureDialog、四個(gè) Button控件并在 Panel控件上添加一個(gè) Image控件。 :=Bitmap。 第 10章 其他編程 （ Picture）對象 3. 替換圖像 用戶可以在任何進(jìn)修替換掉 Image組件中的圖像，只要將一新的圖像對象賦給 Picture就可以了。 begin if then begin CurrentFile:=。 SaveToFile方法需要一個(gè)保存文件的文件名。 (CurrentFile)。 (5) Constaints屬性 該屬性強(qiáng)制指定組件的大小 。 :=MyRect。 var MyRect:TRect。 第 10章 其他編程 圖形圖像組件 3. PaintBox組件 該組件是一個(gè)簡單的畫板，它為應(yīng)用程序提供了可在窗體的特定矩形區(qū)域內(nèi)畫圖的方法。 第 10章 其他編程 圖形圖像組件 1. Image組件 Image組件是一個(gè)容器組件，它在應(yīng)用程序窗體窗口中提供了一 個(gè)矩形區(qū)域，用于顯示和輸出位圖、圖標(biāo)、圖元文件或用戶自定 義的圖形文件。 Tbrush擁有一個(gè)畫刷句柄 (Hbrush)。Graphic:Tgraphic) 此方法在畫布給定的像素點(diǎn)坐標(biāo)（ x， y）處畫由參數(shù) Graphic所給的圖像，該圖像可以是位圖、圖標(biāo)或元位圖。Canvas:TCanvas。 const Source TRect。 {Get coordinates of the current window.} (, ,)。 第 10章 其他編程 （ 2） Chord方法 ▲ 語法： Chord(x1,y1,x2,y2,x3,y3,x4,y4:Integer) Chord方法連接橢圓上的兩點(diǎn) ， 橢圓由 （ x1， y1） 、 （ x2， y2） 兩點(diǎn)所確定的矩形決定 ， （ x3， y3） 是始點(diǎn) ， （ x4， y4） 是終點(diǎn) 。 var R:TRect。第 10章 其他編程 第 10章 其他編程 Delphi實(shí)用教程 第 10章 其他編程 圖形圖像處理 1. TCanvas Object（畫布對象） 常用方法及功能 : （ 1） Arc方法 ▲ 語法： Arc(x1,y1,x2,y2,x3,y3,x4,y4:Integer) Arc方法在橢圓上畫一段弧 ， 橢圓由 （ x1,y1） 、 (x2,y2)兩點(diǎn)所 確定的橢圓所決定 。 例如 ， 以下的程序?qū)⒃诖翱谥袑⒃诖翱谥欣L制一個(gè)圓弧： procedure (Sender:TObject)。 end。 begin R:=GetClientRect。Bitmap: Tbitmap。 第 10章 其他編程 （ 4） CopyRect方法 ▲ 語法： CopyRect(Dest:TRect。 第 10章 其他編程 （ 5） Draw方法 ▲ 語法： Draw(x,y:Integer。 第 10章 其他編程 3. Tbrush Object（畫刷對象） 畫刷對象用以填充圖形，如用畫刷顏色或圖案對矩形或橢圓進(jìn)行填充。很多部件的顏色屬性就是TColor類型，在 Graphics單元中 TColor定義如下： TColor=(COLOR_ENDCOLORS+1)… $02FFFFF。該組件的常用屬性有： l Shape：指明需要繪制的幾何圖形，它可能的取值和含義 如表所示； l Brush：指明在幾何圖形中填充的樣式； l Pen：指定幾何圖形所使用的線型 。 第 10章 其他