?? 025.htm

?? Delphi基礎(chǔ)知識講座
?? HTM
?? 第 1 頁 / 共 2 頁
字號:
12 下一頁
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI基礎(chǔ)教程-->第十章　動態(tài)鏈接庫編程（二）</TITLE>
<META NAME="keywords" CONTENT=" DELPHI基礎(chǔ)教程 第十章　動態(tài)鏈接庫編程（二）">
<META NAME="description" CONTENT=" - DELPHI基礎(chǔ)教程 - 第十章　動態(tài)鏈接庫編程（二）">

<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 background="bg.gif" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">

<TR>
<TD CLASS="tt3" VALIGN="top" width="8%"  background="bg.gif"><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" background="bg.gif" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷體_GB2312">第十章　動態(tài)鏈接庫編程（二）</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ù)器程序必須包含對</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">移動該內(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>　　對</font>pMem<font face="宋體" lang="ZH-CN">的任何修改都會反映到全局內(nèi)存塊中。</p>
<p>　　對內(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ù)的實現(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 &lt;&gt; 0 then</p>
<p>begin</p>
<p>pMem := GlobalLock(hMem); {<font face="宋體" lang="ZH-CN">加鎖全局內(nèi)存塊}</p>
</font><p>if pMem &lt;&gt; 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ū)別在于一個是寫入數(shù)據(jù)，一個是下載數(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 &lt;&gt; 0 then</p>
<p>begin</p>
<p>pMem := GlobalLock(hMem); {<font face="宋體" lang="ZH-CN">加鎖全局內(nèi)存塊}</p>
</font><p>if pMem &lt;&gt; 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">實現(xiàn)窗體重用　</font></p>
<font face="宋體" lang="ZH-CN"><p>　　實現(xiàn)窗體重用是</font>Delphi DLLs<font
face="宋體" lang="ZH-CN">功能中一個引人注目的特色。當(dāng)你創(chuàng)建了一個令自己滿意的通用窗體并希望能在不同應(yīng)用程序中使用，特別是希望能在非</font>Delphi
<font face="宋體" lang="ZH-CN">應(yīng)用程序中使用時，把窗體做進(jìn)一個動態(tài)鏈接庫中是最適當(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">左右的部件庫</font>(Component Library)<font face="宋體"
lang="ZH-CN">開銷。可以通過把幾個窗體編譯成一個</font>DLLs<font
face="宋體" lang="ZH-CN">來最小化這筆開銷。</font>DLl<font face="宋體"
lang="ZH-CN">中的不同窗體可以共享部件庫。　</p>
</font><p>10.4.1 <font face="宋體" lang="ZH-CN">利用</font>DLLs<font face="宋體"
lang="ZH-CN">實現(xiàn)窗體重用的一般步驟　</p>
<p>　　利用</font>DLLs<font face="宋體" lang="ZH-CN">實現(xiàn)窗體重用的步驟是：</p>
<p>　　</font>1.<font face="宋體" lang="ZH-CN">在集成開發(fā)環(huán)境</font>(IDE)<font
face="宋體" lang="ZH-CN">中，按自己的需要設(shè)計一個窗體；</p>
<p>　　</font>2.<font face="宋體" lang="ZH-CN">編寫一個用于輸出的函數(shù)或過程。在該函數(shù)或過程中，設(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è)計；</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">窗體重用實例　</p>
<p>　　下面我們通過一個具體的實例來說明窗體重用的設(shè)計過程。我們在一個名為</font>passform.dll
<font face="宋體" lang="ZH-CN">的文件中儲存了一個口令設(shè)置窗口和一個口令檢查窗口。而后在一個</font>Delphi
<font face="宋體" lang="ZH-CN">編寫的程序和一個</font>VB<font face="宋體"
lang="ZH-CN">編寫的程序中進(jìn)行調(diào)用。事實證明這種方法是完全可行的。</p>
</font><p>10.4.2.1 <font face="宋體" lang="ZH-CN">窗體重用</font>DLLs<font
face="宋體" lang="ZH-CN">的設(shè)計　</p>
<p>　　窗體重用</font>DLLs<font face="宋體" lang="ZH-CN">的設(shè)計依照</font>(10.4.1)<font
face="宋體" lang="ZH-CN">中介紹的步驟進(jìn)行。</font>DLLs<font face="宋體"
lang="ZH-CN">中的兩個窗體</font> SetPassWordForm<font face="宋體" lang="ZH-CN">和</font>GetPassWordForm<font
face="宋體" lang="ZH-CN">分別用于設(shè)置和檢查口令。它們的設(shè)計界面如圖所示。</font></p>
<font face="宋體" lang="ZH-CN"><p>窗體類</font>TSetPassWordForm<font face="宋體"
lang="ZH-CN">定義了兩個數(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ù)據(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">在程序啟動時</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è)置代碼單元中定義了一個輸出函數(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>
12 下一頁
?? 文件大小 434 K
?? 上傳用戶 A15117704533
?? 所屬分類 Delphi/CppBuilder
??? 相關(guān)標(biāo)簽

#Delphi #基礎(chǔ)知識 #講座
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? 025.htm

?? 快捷鍵說明
