【正文】 Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ComCtrls, Grids, Calendar, Spin, ExtCtrls。 btnCancel: TBitBtn。 end。 := IntToStr()。 procedure (Sender: TObject。 //振鈴響 end。])) and (ord(Key)VK_BACK) then //若輸入的非數(shù)字鍵或 ?鍵 begin Key:=0。 //Edit事件 begin :=StrToInt((Sender as TEdit).Text)。 begin for i:=Low(LongMonthNames) to High(LongMonthNames) do (LongMonthNames[i])。 procedure btnOKClick(Sender: TObject)。 Label2: TLabel。 第 10章 其他編程 調(diào)用 DLL 窗體與組件的屬性設(shè)置 第 10章 其他編程 調(diào)用 DLL (4) 在第 3步所建窗體所對(duì)應(yīng)的單元文件中輸入程序代碼。 (2) 在所彈出的代碼編輯窗口中輸入 如下 DLL文件的程序代碼： // 文件名為 。 設(shè)要調(diào)用的 DLL中包含一個(gè)名為 test的函數(shù)： function test（參數(shù)表）：類型名； stdcall； 運(yùn)行時(shí)調(diào)用 DLL的方法是： （ 1）在調(diào)用該 DLL的應(yīng)用程序的 Type類型聲明處加入如下 定義： type Ttest = function（參數(shù)表）：類型名； （ 2）在 Var變量定義部分定義如下變量： VAR Aptr:Ttest。 第 10章 其他編程 調(diào)用 DLL 1. 裝載時(shí)調(diào)用（ Loadtime Dynamic Linking） 在應(yīng)用程序編譯之前已經(jīng)明確知道要調(diào)用 DLL的哪些函數(shù)或過(guò)程，在編譯時(shí)目標(biāo)文件中只保留必要的鏈接信息； 應(yīng)用程序執(zhí)行時(shí)，利用鏈接信息加載 DLL函數(shù)或過(guò)程代碼，并在內(nèi)存中將 DLL代碼鏈接到調(diào)用程序的執(zhí)行空間中。 var N1,N2:integer。 var Form1: TForm1。 Label3: TLabel。 // 引出求最大值函數(shù) end. 第 10章 其他編程 創(chuàng)建 DLL （ 3）選擇主菜單下的 File?Save命令項(xiàng)，保存該文件名為 。 （ 2）在所彈出的代碼編輯窗口中輸入 DLL文件的程序代碼，該 DLL的程序代碼如下： 第 10章 其他編程 創(chuàng)建 DLL library Max。 // 過(guò)程與之類似 如在另一個(gè) pas文件中說(shuō)明和定義的 ,則要在 DLL項(xiàng)目文件中加入以下語(yǔ)句： Uses DllEXP in 39。 5. 便于系統(tǒng)升級(jí) 如果需對(duì)系統(tǒng)升級(jí)，只要將所涉及的 DLL進(jìn)行即可，而不必將 整個(gè)系統(tǒng)重新編譯、鏈接，減少了工作量。 大部分 DLL文件的擴(kuò)展名為 .dll，也有的可能是 .drv（設(shè)備驅(qū)動(dòng)程序）、 .sys（系統(tǒng)文件）或 .fon（字體文件）。 Inc(next)。 begin inc(tag)。 end。 // 創(chuàng)建互斥量 (False)。 Label1: TLabel。當(dāng) 一個(gè)線程不需再擁有互斥對(duì)象時(shí)，應(yīng)調(diào)用 ReleaseMutex()過(guò)程。 (2)創(chuàng)建互斥對(duì)象的函數(shù)是 CreateMutex()，其原型為 function CreateMutex(lpMutexAttibutes:PsecurityAttributes。 Sleep(5)。 DeleteCriticalSection(CS)。 const SIZE=10。 end. 第 10章 其他編程 線程同步 （ 3）創(chuàng)建線程對(duì)象 TinitThread，選擇主菜單的 File?New?Other… ，在 New Items的 New選項(xiàng)卡中雙擊 “ Thread Object”圖標(biāo)，在彈出的對(duì)話框中輸入線程名 “ TinitThread”。 end。程序界面如圖所示，當(dāng)單擊“初始化”按鈕后，將生成兩個(gè)線程并執(zhí)行，在列表框中顯示數(shù)組元素值。 第 10章 其他編程 線程同步 ◆ 創(chuàng)建臨界區(qū)，使用 EnterCriticalSection()和 LeaveCriticalSection()過(guò)程來(lái)封裝代碼塊。 所謂線程同步，簡(jiǎn)單說(shuō)就是協(xié)調(diào)線程間的執(zhí)行時(shí)序。 begin FreeOnTerminate:=True。 override。 implementation {$R *.dfm} procedure (Sender: TObject)。 type TMainForm = class(TForm) Label1: TLabel。 //設(shè)置 FreeOnTerminate為 true以便及時(shí)清除線程對(duì)象 For i:=1 to 10000 do begin If Terminated then break。 第 10章 其他編程 TThread類 2. 與 VCL同步 大多數(shù) VCL都要求在任一時(shí)刻只允許一個(gè)線程訪問(wèn)它，因此在Delphi中使用多線程，還有一個(gè)重要的注意事項(xiàng)，即對(duì) VCL訪問(wèn)只能在主線程中進(jìn)行，這表明所有與用戶交互的代碼只能在主線程中。 type TestThread = class(TThread) private { Private declarations } protected procedure Execute。 第 10章 其他編程 線程 線程概念 所謂多線程，是指操作系統(tǒng)同時(shí)運(yùn)行多個(gè)執(zhí)行體的能力。該函 數(shù)執(zhí)行前，必須確保媒體設(shè)備已經(jīng)關(guān)閉。 （ 3） Click過(guò)程 這是一個(gè)動(dòng)態(tài)過(guò)程，該過(guò)程決定當(dāng) OnClick事件被觸發(fā)時(shí)執(zhí) 行什么動(dòng)作。 （ 2） AutoOpen屬性 該屬性值是 Boolean類型。 procedure (Sender:Tobjict)。 end。 newbitmap:=。 end else begin // 第 2次點(diǎn)擊鼠標(biāo) ， 得到矩形 ， 并將它拷貝到 FORM1的 IMAGE上 x2:=x。 第 10章 其他編程 （ Picture）對(duì)象 end。X,Y:Integer)。 foldx:=x。 end else if flag=true then 第 10章 其他編程 （ Picture）對(duì)象 begin with do begin moveto(foldx,0)。 第 10章 其他編程 （ Picture）對(duì)象 procedure (Sender:Tobject。 messagebeep(1)。 。 begin :=false。 end. var Form2: TForm2。 begin if then begin ()。 begin close。 // 將拷貝下的圖像賦給 IMAGE對(duì)象 :=。 // 建立一個(gè) BITMAP來(lái)存放圖像 :=。 (3) 設(shè)置控件屬性：對(duì)添加的控件按下表設(shè)置其屬性 。 :=NewWidth。 end。下面的代碼實(shí)現(xiàn)對(duì) 圖像文件的讀?。? procedure (Sender:Tobject)。 =+2*()。 第 10章 其他編程 圖形圖像組件 2. Shape組件 Shape組件用于在窗體中繪制幾何圖形，如橢圓、矩形和圓角矩形等。 第 10章 其他編程 2. Tpen Object（ 畫筆對(duì)象） 用于在畫布上繪制各種線段，該對(duì)象常用的屬性有： l Color：定義筆的顏色； l Width：定義線段寬度； l Style：定義線段的各種類型，如表所示； 第 10章 其他編程 ● Mode：定義線段的顏色，取值如表所示。 ● Dest定義畫布的一個(gè)矩形區(qū)域，該矩形用以填充位圖， ● Bitmap定義位圖； ● Source定義位圖中的矩形區(qū)域，該區(qū)域上的位圖將被復(fù)制； ● Color定義畫筆中，用以替換位圖的顏色。 var R:TRect。 弧矩形終點(diǎn)是橢圓周和橢圓中心與 (x4,y4)連線的 交點(diǎn) ， 以逆時(shí)針?lè)较虍嫽?。 begin R:=GetClientRect。 end。SourceTRect) 此方法從另一個(gè)畫布對(duì)象上復(fù)制部分圖像到該畫布。畫刷的顏色定義在 Color屬性中，畫刷還有一個(gè) Bitmap屬性，該屬性只能在運(yùn)行時(shí)得到，畫刷可使用位圖填充圖形以產(chǎn)生特殊效果。 PaintBox組件的主要屬性有： (1) Anchors屬性 該屬性包含 4個(gè)子屬性（ akLeft、 akTop、 akRight和 akBotton），用來(lái)指定在運(yùn)行過(guò)程中，當(dāng)父組件是可調(diào)時(shí)，它相對(duì)于父組件邊沿的位置。 end。 end。 Save1Click(Sender)。 CurrentFile:=’’。 // 完成對(duì)屏幕的復(fù)制 ， 并粘帖到 Image控件中 var Fullscreen:Tbitmap。 // 建立一個(gè) CANVAS對(duì)象 :=dc。 :=wsnormal。 begin :=wsminimized。 第 10章 其他編程 （ Picture）對(duì)象 procedure (Sender: TObject)。 implementation uses unit3。 :=。 :=。 :=pmnot。 begin if trace=true then // 追蹤鼠標(biāo) begin // 擦除舊的圖形并畫上新的圖形 with do begin rectangle(x1,y1,oldx,oldy)。 lio(,foldy)。 end。 begin if(trace=false) then begin // 首次點(diǎn)擊鼠標(biāo)左鍵 ， 開(kāi)始追蹤鼠標(biāo) flag:=false。 oldx:=x。 第 10章 其他編程 （ Picture）對(duì)象 (x1,y1,oldx,oldy)。 (rect(0,0,width,height), ,rect(x1,y1,x2,y2))。 第 10章 其他編程 多媒體編程 簡(jiǎn)易媒體播放器實(shí)例 制作一個(gè)媒體播放器，需要在窗體上設(shè)置一個(gè) TmediaPlayer（該組件位于組件面板的 System選項(xiàng)卡上，圖標(biāo)為）、十個(gè) Tbutton、一個(gè) TopenDialog（位于組件面板的 Dialogs選項(xiàng)卡上，圖標(biāo)為）等組件 )、一個(gè) Edit、一個(gè) ComboBox、一個(gè) Timer如圖所示。 en