📄 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">中的不同窗体可以共享部件库。 </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">函数或过程的调用完全一致，不再赘述。读者可参看下面的例子。 </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 + -