【導(dǎo)讀】確定的橢圓所決定?；〉钠瘘c(diǎn)是橢圓圓周和橢圓中心與?；【匦谓K點(diǎn)是橢圓周和橢圓中心與連線的。交點(diǎn)，以逆時(shí)針方向畫弧。例如，在Form1窗體上放置一個(gè)按鈕“連接橢圓上的兩點(diǎn)”，并用畫筆的當(dāng)前顏色替換位圖的顏色。Graphic所給的圖像，該圖像可以是位圖、圖標(biāo)或元位圖。Tcanvas的其他方法列于表中。Tbrush擁有一個(gè)畫刷句柄。時(shí)得到，畫刷可使用位圖填充圖形以產(chǎn)生特殊效果。TColor類型用于定義一個(gè)對(duì)象的顏色。該屬性強(qiáng)制指定組件的大小。OpenDialog函數(shù)來選擇相應(yīng)的圖像文件。SaveToFile方法需要一個(gè)保存文件。下面的代碼是一般程序常用的“Save”和“SaveAs”菜

　　

【正文】 DLL文件，可被其它項(xiàng)目調(diào)用。 第 10章 其他編程 創(chuàng)建 DLL 【 例 】 本例創(chuàng)建一個(gè) DLL，文件名為 ，其中包含一個(gè)求兩個(gè)數(shù)中的大者的函數(shù) MaxNum。再設(shè)計(jì)一個(gè)主程序調(diào)用 DLL中的函數(shù)在主程序中輸入兩個(gè)整數(shù)，通過調(diào)用該 DLL，即可求出較大的數(shù)。 1）創(chuàng)建 （ 1）新建一個(gè) DLL項(xiàng)目。選擇主菜單的 File?New?Others… 菜 單項(xiàng)，在“ New Items”對(duì)話框中雙擊“ DLL Wizard”圖標(biāo)，單 擊 OK按鈕。 （ 2）在所彈出的代碼編輯窗口中輸入 DLL文件的程序代碼，該 DLL的程序代碼如下： 第 10章 其他編程 創(chuàng)建 DLL library Max。 // DLL項(xiàng)目名為 Max uses SysUtils, Classes。 {$R *.res} function MaxNum(Num1,Num2:integer):integer。stdcall。 // 定義求最大值函數(shù) begin if Num1Num2 then result:=Num1 else result:=Num2。 end。 exports MaxNum name 39。MaxNum39。 // 引出求最大值函數(shù) end. 第 10章 其他編程 創(chuàng)建 DLL （ 3）選擇主菜單下的 File?Save命令項(xiàng)，保存該文件名為 。 （ 4）選擇主菜單下的 Project?Compile Max（或用 Ctrl+F9 快捷鍵）菜單項(xiàng)，對(duì) ，即生成 。 2）調(diào)用 DLL 創(chuàng)建一個(gè)應(yīng)用程序調(diào)用 MaxNum函數(shù)。該應(yīng)用程 序的界面如圖所示，所使用的組件及其屬性見下一頁表中。 第 10章 其他編程 創(chuàng)建 DLL 窗體與組件的屬性設(shè)置 第 10章 其他編程 創(chuàng)建 DLL 主程序?qū)?yīng)的單元文件為 ，其內(nèi)容如下： unit Unit1。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls。 type 第 10章 其他編程 創(chuàng)建 DLL TForm1 = class(TForm) Label1: TLabel。 Label2: TLabel。 Label3: TLabel。 Edit1: TEdit。 Edit2: TEdit。 Label4: TLabel。 Edit3: TEdit。 Button1: TButton。 procedure Button1Click(Sender: TObject)。 end。 var Form1: TForm1。 implementation {$R *.dfm} 第 10章 其他編程 創(chuàng)建 DLL function MaxNum(Num1,Num2:integer):integer。stdcall。external 39。39。 name 39。MaxNum39。 // 對(duì) DLL函數(shù)進(jìn)行外部聲明 procedure (Sender: TObject)。 var N1,N2:integer。 MX:integer。 begin N1:=strtoint()。 N2:=strtoint()。 MX:=MaxNum(N1,N2)。 // 調(diào)用 DLL函數(shù) :=inttostr(MX)。 end。 end. 第 10章 其他編程 創(chuàng)建 DLL 程序的運(yùn)行結(jié)果如圖所示。 第 10章 其他編程 調(diào)用 DLL 1. 裝載時(shí)調(diào)用（ Loadtime Dynamic Linking） 在應(yīng)用程序編譯之前已經(jīng)明確知道要調(diào)用 DLL的哪些函數(shù)或過程，在編譯時(shí)目標(biāo)文件中只保留必要的鏈接信息； 應(yīng)用程序執(zhí)行時(shí)，利用鏈接信息加載 DLL函數(shù)或過程代碼，并在內(nèi)存中將 DLL代碼鏈接到調(diào)用程序的執(zhí)行空間中。 在調(diào)用 DLL的應(yīng)用程序單元文件中，需要在 Implementation之后對(duì) DLL函數(shù)進(jìn)行外部聲明，形式如下： Implementation function 函數(shù)名（參數(shù)表）：類型名； stdcall；External 39。DLLName39。； 裝載時(shí)調(diào)用 DLL程序執(zhí)行速度快，效率高。 缺點(diǎn)是如果加載的 DLL不存在或 DLL中沒有要調(diào)用的函數(shù)或過程，應(yīng)用程序就會(huì)自動(dòng)終止運(yùn)行。 DLL程序一旦加載就一直駐留在應(yīng)用程序地址空間。 第 10章 其他編程 調(diào)用 DLL 2. 運(yùn)行時(shí)調(diào)用（ Runtime Dynamic Linking） 編譯時(shí)并不知道將會(huì)調(diào)用 DLL的哪些函數(shù)或過程 。 在運(yùn)行時(shí)用 Windows的 API函數(shù) LoadLibary和 GetProcAddress函數(shù)動(dòng)態(tài)地獲得 DLL函數(shù)或過程的入口地址，再使用FreeLibary進(jìn)行釋放。 設(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。 Ihnd:Thandle。 RetVal:類型名 。 其中 Aptr、 Ihnd兩個(gè)變量必須定義， RetVal是 DLL函數(shù)的返回 值，視具體情況而定。 第 10章 其他編程 調(diào)用 DLL （ 3）在調(diào)用 DLL處加入以下的語句進(jìn)行 DLL裝載： Ihnd:=LoadLibrary（ 39。路徑： DLL文件名 39。） ； Aptr:=GetProcAddress（ Ihnd， 函數(shù)名 ） ； （ 4） 在應(yīng)用程序需要之處調(diào)用 DLL函數(shù)： RetVal:=Test（ Aptr） （ 實(shí)參表 ） ； （ 5） 調(diào)用完后 ， 要用 FreeLibrary釋放 DLL占用的內(nèi)存： FreeLibary（ Ihnd）； 第 10章 其他編程 調(diào)用 DLL 【 例 】 本例創(chuàng)建一個(gè) DLL，文件名為 ，其中包含一個(gè)顯示星期的函數(shù) ShowCalendar，再設(shè)計(jì)一個(gè)主程序以運(yùn)行時(shí)調(diào)用方式調(diào)用該 DLL中的此函數(shù)。 1）創(chuàng)建 (1) 新建一個(gè) DLL項(xiàng)目。 (2) 在所彈出的代碼編輯窗口中輸入 如下 DLL文件的程序代碼： // 文件名為 。編譯此文件生成 library MyCalendar。 uses SysUtils, Classes,Unit1 in 39。39。{Form1}。 {$R *.res} Exports ShowCalendar name 39。ShowCalendar39。 // 聲明 DLL函數(shù) begin end. 第 10章 其他編程 調(diào)用 DLL (3) 選擇主菜單下的 File?New?Form，新建一個(gè)窗體，在其中放 置一個(gè) Tcalendar組件（該組件位于組件面板的 Samples選項(xiàng) 卡上，圖標(biāo)為 ）和一個(gè) Bevel組件，所設(shè)計(jì)的窗體如圖 所示，所使用的組件及其屬性列于下一頁表中。 第 10章 其他編程 調(diào)用 DLL 窗體與組件的屬性設(shè)置 第 10章 其他編程 調(diào)用 DLL (4) 在第 3步所建窗體所對(duì)應(yīng)的單元文件中輸入程序代碼。 以下是 ： unit Unit1。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ComCtrls, Grids, Calendar, Spin, ExtCtrls。 type TCalForm = class(TForm) // 窗體定義 Calendar1: TCalendar。 Bevel1: TBevel。 Label1: TLabel。 EditYear: TEdit。 CMBMonth: TComboBox。 Label2: TLabel。 第 10章 其他編程 調(diào)用 DLL btnOK: TBitBtn。 btnCancel: TBitBtn。 procedure FormCreate(Sender: TObject)。 procedure CMBMonthChange(Sender: TObject)。 procedure EditYearChange(Sender: TObject)。 procedure EditYearKeyPress(Sender: TObject。 var Key: Char)。 procedure btnOKClick(Sender: TObject)。 procedure btnCancelClick(Sender: TObject)。 end。 第 10章 其他編程 調(diào)用 DLL //聲明要引出的函數(shù) function ShowCalendar(AHandle:THandle。ACaption:String):TDateTime。stdCall。 implementation {$R *.dfm} procedure (Sender: TObject)。 //窗體創(chuàng)建事件 var i:integer。 begin for i:=Low(LongMonthNames) to High(LongMonthNames) do (LongMonthNames[i])。 :=。 := IntToStr()。 end。 第 10章 其他編程 調(diào)用 DLL procedure (Sender: TObject)。//ComboBox事件 begin :=(Sender as TComboBox).ItemIndex+1。 end。 procedure (Sender: TObject)。 //Edit事件 begin :=StrToInt((Sender as TEdit).Text)。 end。 procedure (Sender: TObject。 var Key: Char)。 begin if (not (Key in [39。039。..39。939。])) and (ord(Key)VK_BACK) then //若輸入的非數(shù)字鍵或 ?鍵 begin Key:=0。 Beep。 //振鈴響 end。 end。 第 10章 其他編程 調(diào)用 DLL procedure (S