?? 025.htm
字號(hào):
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI基礎(chǔ)教程-->第十章 動(dòng)態(tài)鏈接庫(kù)編程（二）</TITLE>
<META NAME="keywords" CONTENT=" DELPHI基礎(chǔ)教程 第十章 動(dòng)態(tài)鏈接庫(kù)編程（二）">
<META NAME="description" CONTENT=" - DELPHI基礎(chǔ)教程 - 第十章 動(dòng)態(tài)鏈接庫(kù)編程（二）">
<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋體"}
.tt2 {font: 12pt/15pt "宋體"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>
<TD CLASS="tt3" VALIGN="top" width="8%" bgcolor="#e0e0e0"><strong><A HREF="026.htm"><FONT style="FONT-SIZE: 9pt">后一頁(yè)</font></A><BR>
<A HREF="024.htm"><FONT style="FONT-SIZE: 9pt">前一頁(yè)</font></A><BR>
<A HREF="index.html"><FONT style="FONT-SIZE: 9pt">回目錄</font></A><BR>
<A HREF="../../../../index.htm"><FONT style="FONT-SIZE: 9pt">回首頁(yè)</font></A><BR>
</strong>
</TD>
<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷體_GB2312">第十章 動(dòng)態(tài)鏈接庫(kù)編程（二）</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
</font><p>10.3.2.2 <font face="宋體" lang="ZH-CN">服務(wù)器程序的編寫 </p>
<p> 服務(wù)器程序必須包含對(duì)</font>DLL<font face="宋體" lang="ZH-CN">的調(diào)用代碼，如： </p>
</font><p>function GetGlobalMem: THandle; far; external 'c:\dlls\glbmem';</p>
<font face="宋體" lang="ZH-CN"><p> 通過調(diào)用該函數(shù)，服務(wù)器可以獲得全局內(nèi)存塊的句柄。</p>
<p> 在寫入數(shù)據(jù)前，服務(wù)器必須鎖定全局內(nèi)存，以避免在寫入過程中</font>Windows<font
face="宋體" lang="ZH-CN">移動(dòng)該內(nèi)存塊的位置。</p>
<p> 函數(shù)</font>GlobalLock<font face="宋體" lang="ZH-CN">鎖定全局內(nèi)存并返回指向該內(nèi)存塊的指針： </p>
</font><p>pMem := GlobalLock(hMem);</p>
<font face="宋體" lang="ZH-CN"><p> 對(duì)</font>pMem<font face="宋體" lang="ZH-CN">的任何修改都會(huì)反映到全局內(nèi)存塊中。</p>
<p> 對(duì)內(nèi)存塊進(jìn)行操作后，調(diào)用</font>GlobalUnLock<font face="宋體"
lang="ZH-CN">進(jìn)行解鎖。內(nèi)存塊操作之后盡早解鎖，有利于</font>Windows<font
face="宋體" lang="ZH-CN">充分利用內(nèi)存資源。</p>
<p> 服務(wù)器寫入數(shù)據(jù)的實(shí)現(xiàn)代碼如下。 </p>
</font><p>var</p>
<p>hMem: THandle;</p>
<p>pMem: PChar;</p>
<p>begin</p>
<p>hMem := GetGlobalMem; {<font face="宋體" lang="ZH-CN">獲得全局內(nèi)存塊的句柄}</p>
</font><p>if hMem <> 0 then</p>
<p>begin</p>
<p>pMem := GlobalLock(hMem); {<font face="宋體" lang="ZH-CN">加鎖全局內(nèi)存塊}</p>
</font><p>if pMem <> nil then</p>
<p>begin</p>
<p>StrPCopy(pMem,Memo1.text); {<font face="宋體" lang="ZH-CN">向全局內(nèi)存塊寫入數(shù)據(jù)}</p>
</font><p>GlobalUnlock(hMem); {<font face="宋體" lang="ZH-CN">解鎖全局內(nèi)存塊}</font>
</p>
<p>end</p>
<p>else</p>
<p>MessageDlg('Couldnot Lock memory block',mtWarning,[mbOK],0);</p>
<p>end; </p>
<p>10.3.2.3 <font face="宋體" lang="ZH-CN">客戶程序的編寫 </p>
<p> 客戶程序幾乎是服務(wù)器程序的翻版。唯一的區(qū)別在于一個(gè)是寫入數(shù)據(jù)，一個(gè)是下載數(shù)據(jù)。</p>
<p>下面是客戶從全局內(nèi)存塊下載數(shù)據(jù)的程序清單。 </p>
</font><p>var</p>
<p>hMem: THandle;</p>
<p>pMem: PChar;</p>
<p>begin</p>
<p>hMem := GetGlobalMem; {<font face="宋體" lang="ZH-CN">獲得全局內(nèi)存塊的句柄}</p>
</font><p>if hMem <> 0 then</p>
<p>begin</p>
<p>pMem := GlobalLock(hMem); {<font face="宋體" lang="ZH-CN">加鎖全局內(nèi)存塊}</p>
</font><p>if pMem <> nil then</p>
<p>begin</p>
<p>Memo1.text := StrPas(pMem); {<font face="宋體" lang="ZH-CN">從全局內(nèi)存塊讀取數(shù)據(jù)}</p>
</font><p>GlobalUnlock(hMem); {<font face="宋體" lang="ZH-CN">解鎖全局內(nèi)存塊}</p>
</font><p>end</p>
<p>else</p>
<p>MessageDlg('Couldnot Lock memory block',mtWarning,[mbOK],0);</p>
<p>end;</p>
<p>10.4 <font face="宋體" lang="ZH-CN">利用</font>DLLs<font face="宋體" lang="ZH-CN">實(shí)現(xiàn)窗體重用 </font></p>
<font face="宋體" lang="ZH-CN"><p> 實(shí)現(xiàn)窗體重用是</font>Delphi DLLs<font
face="宋體" lang="ZH-CN">功能中一個(gè)引人注目的特色。當(dāng)你創(chuàng)建了一個(gè)令自己滿意的通用窗體并希望能在不同應(yīng)用程序中使用，特別是希望能在非</font>Delphi
<font face="宋體" lang="ZH-CN">應(yīng)用程序中使用時(shí)，把窗體做進(jìn)一個(gè)動(dòng)態(tài)鏈接庫(kù)中是最適當(dāng)?shù)摹＿@樣即使用其它工具開發(fā)的應(yīng)用程序，如</font>C++<font
face="宋體" lang="ZH-CN">、</font>Visual Basic<font face="宋體" lang="ZH-CN">等，也都可以去調(diào)用它。</p>
<p> 包含窗體的</font>DLLs<font face="宋體" lang="ZH-CN">有</font>100K<font
face="宋體" lang="ZH-CN">左右的部件庫(kù)</font>(Component Library)<font face="宋體"
lang="ZH-CN">開銷。可以通過把幾個(gè)窗體編譯成一個(gè)</font>DLLs<font
face="宋體" lang="ZH-CN">來最小化這筆開銷。</font>DLl<font face="宋體"
lang="ZH-CN">中的不同窗體可以共享部件庫(kù)。 </p>
</font><p>10.4.1 <font face="宋體" lang="ZH-CN">利用</font>DLLs<font face="宋體"
lang="ZH-CN">實(shí)現(xiàn)窗體重用的一般步驟 </p>
<p> 利用</font>DLLs<font face="宋體" lang="ZH-CN">實(shí)現(xiàn)窗體重用的步驟是：</p>
<p> </font>1.<font face="宋體" lang="ZH-CN">在集成開發(fā)環(huán)境</font>(IDE)<font
face="宋體" lang="ZH-CN">中，按自己的需要設(shè)計(jì)一個(gè)窗體；</p>
<p> </font>2.<font face="宋體" lang="ZH-CN">編寫一個(gè)用于輸出的函數(shù)或過程。在該函數(shù)或過程中，設(shè)計(jì)的窗體被實(shí)例化；</p>
<p> </font>3.<font face="宋體" lang="ZH-CN">重復(fù)步驟</font>1<font face="宋體"
lang="ZH-CN">、</font>2<font face="宋體" lang="ZH-CN">，直到完成所有重用窗體的設(shè)計(jì)；</p>
<p> </font>4.<font face="宋體" lang="ZH-CN">打開工程文件，進(jìn)行修改，以適應(yīng)生成</font>
.dll<font face="宋體" lang="ZH-CN">文件的需要：</p>
<p> </font>(1).<font face="宋體" lang="ZH-CN">把保留字</font>program<font
face="宋體" lang="ZH-CN">設(shè)為</font>library<font face="宋體" lang="ZH-CN">；</p>
<p> </font>(2).<font face="宋體" lang="ZH-CN">從</font>uses<font face="宋體"
lang="ZH-CN">子句中去掉</font>Forms<font face="宋體" lang="ZH-CN">單元；</p>
<p> </font>(3).<font face="宋體" lang="ZH-CN">移去</font>begin,end<font
face="宋體" lang="ZH-CN">之間的所有代碼；</p>
<p> </font>(4).<font face="宋體" lang="ZH-CN">在</font>uses<font face="宋體"
lang="ZH-CN">子句下，</font>begin<font face="宋體" lang="ZH-CN">…</font>end<font
face="宋體" lang="ZH-CN">塊之前，添加保留字</font>exprots<font face="宋體"
lang="ZH-CN">。</font>exports <font face="宋體" lang="ZH-CN">后是輸出函數(shù)名或過程名。</p>
<p> </font>5.<font face="宋體" lang="ZH-CN">編譯生成</font>DLLs<font
face="宋體" lang="ZH-CN">文件；</p>
<p> </font>6.<font face="宋體" lang="ZH-CN">在其它應(yīng)用程序中調(diào)用重用窗體。</p>
<p> 重用窗體的調(diào)用同一般</font>DLLs<font face="宋體" lang="ZH-CN">函數(shù)或過程的調(diào)用完全一致，不再贅述。讀者可參看下面的例子。 </p>
</font><p>10.4.2 <font face="宋體" lang="ZH-CN">窗體重用實(shí)例 </p>
<p> 下面我們通過一個(gè)具體的實(shí)例來說明窗體重用的設(shè)計(jì)過程。我們?cè)谝粋€(gè)名為</font>passform.dll
<font face="宋體" lang="ZH-CN">的文件中儲(chǔ)存了一個(gè)口令設(shè)置窗口和一個(gè)口令檢查窗口。而后在一個(gè)</font>Delphi
<font face="宋體" lang="ZH-CN">編寫的程序和一個(gè)</font>VB<font face="宋體"
lang="ZH-CN">編寫的程序中進(jìn)行調(diào)用。事實(shí)證明這種方法是完全可行的。</p>
</font><p>10.4.2.1 <font face="宋體" lang="ZH-CN">窗體重用</font>DLLs<font
face="宋體" lang="ZH-CN">的設(shè)計(jì) </p>
<p> 窗體重用</font>DLLs<font face="宋體" lang="ZH-CN">的設(shè)計(jì)依照</font>(10.4.1)<font
face="宋體" lang="ZH-CN">中介紹的步驟進(jìn)行。</font>DLLs<font face="宋體"
lang="ZH-CN">中的兩個(gè)窗體</font> SetPassWordForm<font face="宋體" lang="ZH-CN">和</font>GetPassWordForm<font
face="宋體" lang="ZH-CN">分別用于設(shè)置和檢查口令。它們的設(shè)計(jì)界面如圖所示。</font></p>
<font face="宋體" lang="ZH-CN"><p>窗體類</font>TSetPassWordForm<font face="宋體"
lang="ZH-CN">定義了兩個(gè)數(shù)據(jù)成員</font>Verified<font face="宋體" lang="ZH-CN">和</font>PassWord<font
face="宋體" lang="ZH-CN">，用于記錄口令確認(rèn)狀態(tài)和設(shè)置的口令。</font>TSetPassWordForm<font
face="宋體" lang="ZH-CN">的定義如下：</p>
</font><p>type</p>
<p>TSetPassWordForm = class(TForm)</p>
<p>Label1: TLabel;</p>
<p>Edit1: TEdit;</p>
<p>OKBtn: TBitBtn;</p>
<p>CancelBtn: TBitBtn;</p>
<p>procedure FormCreate(Sender: TObject);</p>
<p>procedure Edit1KeyPress(Sender: TObject; var Key: Char);</p>
<p>private</p>
<p>{ Private declarations }</p>
<p>Verified: Boolean;</p>
<p>public</p>
<p>{ Public declarations }</p>
<p>PassWord: PChar;</p>
<p>end;</p>
<p><font face="宋體" lang="ZH-CN"> 窗口生成時(shí)，對(duì)數(shù)據(jù)成員和部件狀態(tài)進(jìn)行初始化： </font></p>
<p>procedure TSetPassWordForm.FormCreate(Sender: TObject);</p>
<p>begin</p>
<p>Verified := False;</p>
<p>PassWord := StrAlloc(40);</p>
<p>OKBtn.Enabled := False;</p>
<p>Label1.Caption := 'Please Input PassWord:';</p>
<p>end;</p>
<font face="宋體" lang="ZH-CN"><p> 按鈕</font>OKBtn<font face="宋體"
lang="ZH-CN">在程序啟動(dòng)時(shí)</font>Enabled<font face="宋體" lang="ZH-CN">屬性設(shè)置為</font>False<font
face="宋體" lang="ZH-CN">，直到口令被正確設(shè)置后</font>Enabled<font
face="宋體" lang="ZH-CN">屬性才恢復(fù)為</font>True<font face="宋體" lang="ZH-CN">。這樣就保證了只有口令被正確設(shè)置后，口令設(shè)置窗口才能正常關(guān)閉。否則只能按</font>Cancel<font
face="宋體" lang="ZH-CN">按鈕取消。</p>
<p> 在口令設(shè)置代碼單元中定義了一個(gè)輸出函數(shù)</font>SetPassWord<font
face="宋體" lang="ZH-CN">，用于生成口令設(shè)置窗口并返回設(shè)置的口令： </p>
</font><p>function SetPassWord(PWord: PChar): Boolean;</p>
<p>var</p>
<p>SetPassWordForm: TSetPassWordForm;</p>
<p>begin</p>
<p>Result := False;</p>
<p>SetPassWordForm := TSetPassWordForm.Create(Application);</p>
<p>try</p>
<p>with SetPasswordForm do</p>
<p>if ShowModal = mrOK then</p>
<p>begin</p>
<p>StrCopy(PWord,StrUpper(Password));</p>
<p>Result := True;</p>
<p>end;</p>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -