?? 025.htm
字號:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI基礎教程-->第十章 動態鏈接庫編程（二）</TITLE>
<META NAME="keywords" CONTENT=" DELPHI基礎教程 第十章 動態鏈接庫編程（二）">
<META NAME="description" CONTENT=" - DELPHI基礎教程 - 第十章 動態鏈接庫編程（二）">
<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">后一頁</font></A><BR>
<A HREF="024.htm"><FONT style="FONT-SIZE: 9pt">前一頁</font></A><BR>
<A HREF="index.html"><FONT style="FONT-SIZE: 9pt">回目錄</font></A><BR>
<A HREF="../../../../index.htm"><FONT style="FONT-SIZE: 9pt">回首頁</font></A><BR>
</strong>
</TD>
<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷體_GB2312">第十章 動態鏈接庫編程（二）</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
</font><p>10.3.2.2 <font face="宋體" lang="ZH-CN">服務器程序的編寫 </p>
<p> 服務器程序必須包含對</font>DLL<font face="宋體" lang="ZH-CN">的調用代碼，如： </p>
</font><p>function GetGlobalMem: THandle; far; external 'c:\dlls\glbmem';</p>
<font face="宋體" lang="ZH-CN"><p> 通過調用該函數，服務器可以獲得全局內存塊的句柄。</p>
<p> 在寫入數據前，服務器必須鎖定全局內存，以避免在寫入過程中</font>Windows<font
face="宋體" lang="ZH-CN">移動該內存塊的位置。</p>
<p> 函數</font>GlobalLock<font face="宋體" lang="ZH-CN">鎖定全局內存并返回指向該內存塊的指針： </p>
</font><p>pMem := GlobalLock(hMem);</p>
<font face="宋體" lang="ZH-CN"><p> 對</font>pMem<font face="宋體" lang="ZH-CN">的任何修改都會反映到全局內存塊中。</p>
<p> 對內存塊進行操作后，調用</font>GlobalUnLock<font face="宋體"
lang="ZH-CN">進行解鎖。內存塊操作之后盡早解鎖，有利于</font>Windows<font
face="宋體" lang="ZH-CN">充分利用內存資源。</p>
<p> 服務器寫入數據的實現代碼如下。 </p>
</font><p>var</p>
<p>hMem: THandle;</p>
<p>pMem: PChar;</p>
<p>begin</p>
<p>hMem := GetGlobalMem; {<font face="宋體" lang="ZH-CN">獲得全局內存塊的句柄}</p>
</font><p>if hMem <> 0 then</p>
<p>begin</p>
<p>pMem := GlobalLock(hMem); {<font face="宋體" lang="ZH-CN">加鎖全局內存塊}</p>
</font><p>if pMem <> nil then</p>
<p>begin</p>
<p>StrPCopy(pMem,Memo1.text); {<font face="宋體" lang="ZH-CN">向全局內存塊寫入數據}</p>
</font><p>GlobalUnlock(hMem); {<font face="宋體" lang="ZH-CN">解鎖全局內存塊}</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> 客戶程序幾乎是服務器程序的翻版。唯一的區別在于一個是寫入數據，一個是下載數據。</p>
<p>下面是客戶從全局內存塊下載數據的程序清單。 </p>
</font><p>var</p>
<p>hMem: THandle;</p>
<p>pMem: PChar;</p>
<p>begin</p>
<p>hMem := GetGlobalMem; {<font face="宋體" lang="ZH-CN">獲得全局內存塊的句柄}</p>
</font><p>if hMem <> 0 then</p>
<p>begin</p>
<p>pMem := GlobalLock(hMem); {<font face="宋體" lang="ZH-CN">加鎖全局內存塊}</p>
</font><p>if pMem <> nil then</p>
<p>begin</p>
<p>Memo1.text := StrPas(pMem); {<font face="宋體" lang="ZH-CN">從全局內存塊讀取數據}</p>
</font><p>GlobalUnlock(hMem); {<font face="宋體" lang="ZH-CN">解鎖全局內存塊}</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">實現窗體重用 </font></p>
<font face="宋體" lang="ZH-CN"><p> 實現窗體重用是</font>Delphi DLLs<font
face="宋體" lang="ZH-CN">功能中一個引人注目的特色。當你創建了一個令自己滿意的通用窗體并希望能在不同應用程序中使用，特別是希望能在非</font>Delphi
<font face="宋體" lang="ZH-CN">應用程序中使用時，把窗體做進一個動態鏈接庫中是最適當的。這樣即使用其它工具開發的應用程序，如</font>C++<font
face="宋體" lang="ZH-CN">、</font>Visual Basic<font face="宋體" lang="ZH-CN">等，也都可以去調用它。</p>
<p> 包含窗體的</font>DLLs<font face="宋體" lang="ZH-CN">有</font>100K<font
face="宋體" lang="ZH-CN">左右的部件庫</font>(Component Library)<font face="宋體"
lang="ZH-CN">開銷?？梢酝ㄟ^把幾個窗體編譯成一個</font>DLLs<font
face="宋體" lang="ZH-CN">來最小化這筆開銷。</font>DLl<font face="宋體"
lang="ZH-CN">中的不同窗體可以共享部件庫?！?lt;/p>
</font><p>10.4.1 <font face="宋體" lang="ZH-CN">利用</font>DLLs<font face="宋體"
lang="ZH-CN">實現窗體重用的一般步驟 </p>
<p> 利用</font>DLLs<font face="宋體" lang="ZH-CN">實現窗體重用的步驟是：</p>
<p> </font>1.<font face="宋體" lang="ZH-CN">在集成開發環境</font>(IDE)<font
face="宋體" lang="ZH-CN">中，按自己的需要設計一個窗體；</p>
<p> </font>2.<font face="宋體" lang="ZH-CN">編寫一個用于輸出的函數或過程。在該函數或過程中，設計的窗體被實例化；</p>
<p> </font>3.<font face="宋體" lang="ZH-CN">重復步驟</font>1<font face="宋體"
lang="ZH-CN">、</font>2<font face="宋體" lang="ZH-CN">，直到完成所有重用窗體的設計；</p>
<p> </font>4.<font face="宋體" lang="ZH-CN">打開工程文件，進行修改，以適應生成</font>
.dll<font face="宋體" lang="ZH-CN">文件的需要：</p>
<p> </font>(1).<font face="宋體" lang="ZH-CN">把保留字</font>program<font
face="宋體" lang="ZH-CN">設為</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">后是輸出函數名或過程名。</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">在其它應用程序中調用重用窗體。</p>
<p> 重用窗體的調用同一般</font>DLLs<font face="宋體" lang="ZH-CN">函數或過程的調用完全一致，不再贅述。讀者可參看下面的例子?！?lt;/p>
</font><p>10.4.2 <font face="宋體" lang="ZH-CN">窗體重用實例 </p>
<p> 下面我們通過一個具體的實例來說明窗體重用的設計過程。我們在一個名為</font>passform.dll
<font face="宋體" lang="ZH-CN">的文件中儲存了一個口令設置窗口和一個口令檢查窗口。而后在一個</font>Delphi
<font face="宋體" lang="ZH-CN">編寫的程序和一個</font>VB<font face="宋體"
lang="ZH-CN">編寫的程序中進行調用。事實證明這種方法是完全可行的。</p>
</font><p>10.4.2.1 <font face="宋體" lang="ZH-CN">窗體重用</font>DLLs<font
face="宋體" lang="ZH-CN">的設計 </p>
<p> 窗體重用</font>DLLs<font face="宋體" lang="ZH-CN">的設計依照</font>(10.4.1)<font
face="宋體" lang="ZH-CN">中介紹的步驟進行。</font>DLLs<font face="宋體"
lang="ZH-CN">中的兩個窗體</font> SetPassWordForm<font face="宋體" lang="ZH-CN">和</font>GetPassWordForm<font
face="宋體" lang="ZH-CN">分別用于設置和檢查口令。它們的設計界面如圖所示。</font></p>
<font face="宋體" lang="ZH-CN"><p>窗體類</font>TSetPassWordForm<font face="宋體"
lang="ZH-CN">定義了兩個數據成員</font>Verified<font face="宋體" lang="ZH-CN">和</font>PassWord<font
face="宋體" lang="ZH-CN">，用于記錄口令確認狀態和設置的口令。</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"> 窗口生成時，對數據成員和部件狀態進行初始化： </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">在程序啟動時</font>Enabled<font face="宋體" lang="ZH-CN">屬性設置為</font>False<font
face="宋體" lang="ZH-CN">，直到口令被正確設置后</font>Enabled<font
face="宋體" lang="ZH-CN">屬性才恢復為</font>True<font face="宋體" lang="ZH-CN">。這樣就保證了只有口令被正確設置后，口令設置窗口才能正常關閉。否則只能按</font>Cancel<font
face="宋體" lang="ZH-CN">按鈕取消。</p>
<p> 在口令設置代碼單元中定義了一個輸出函數</font>SetPassWord<font
face="宋體" lang="ZH-CN">，用于生成口令設置窗口并返回設置的口令： </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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -