📄 037.htm
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI专题文档－程序应用-->利用Dll实现通用密码验证框</TITLE>
<META NAME="keywords" CONTENT=" DELPHI专题文档－程序应用 利用Dll实现通用密码验证框">
<META NAME="description" CONTENT=" - DELPHI专题文档－程序应用 - 利用Dll实现通用密码验证框">
<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>
<a href="index6.html">返回</a>
<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="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">利用Dll实现通用密码验证框</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<BR>
<h3 align="center"><span style="font-size: 9pt"></span></h3>
<BR>
<p><span style="font-size: 9pt"><font color="#ffffff">----</font> 在我们编制Delphi应用程序，常常需要提供一个密码验证框，对应用程序的使用者进行身份核对。如果能有一个通用的密码验证框，便能够为我们的工作节约不少的时间，更能使我们编制的程序小而快。以下的程序为你提供了这样的一个DLL文件。
</span></p>
<BR>
<pre><span style="font-size: 9pt">
//文件名为CheckPasswordForm.dpr;
编译此文件生成CheckPasswordForm.dll
library CheckPasswordForm;
uses
XcqCheck in 'XcqCheck.pas' {XcqForm};
exports
CheckPassword name 'CheckPassword';//dll入口
begin
end.
//文件名为XcqCheck.pas
unit XcqCheck;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
StdCtrls, Mask, Menus;
type
TXcqForm = class(TForm)
XcqEdit: TMaskEdit;//密码输入框
OkBtn: TButton;
procedure OkBtnClick(Sender: TObject);
end;
var
XcqForm: TXcqForm;
Check: Boolean;//验证输入密码的正确性
function CheckPassword: Boolean;export;
//本dll文件的关键实现
implementation
{$R *.DFM}
procedure TXcqForm.OkBtnClick(Sender: TObject);
begin
if XcqEdit.Text = 'xcq' then
Check := True;
Close;
end;
function CheckPassword;export;
begin
Check := False;
XcqForm := TXcqForm.Create(Application);
//创建密码输入框
XcqForm.ShowModal;//显示密码输入框;
注意：不能用XcqForm.Show!
Result := Check;//返回给调用本dll的应用程序判断
XcqForm.Free;//释放本dll文件所占资源
end;
end.
</span></pre>
<BR>
<p><span style="font-size: 9pt"><font color="#ffffff">----</font> 在调用以上dll中CheckPassword函数的应用程序中只需加入以下语句在implementation
后，function CheckPassword: Boolean; external 'CheckPasswordForm.dll' name
'CheckPassword';在需要进行密码验证的地方加入下面的条件语句就完全实现了密码验证的功能。
</span></p>
<BR>
<pre><span style="font-size: 9pt">
if CheckPassword then
begin
...//如XcqQuery.Open;
end;
</span></pre>
<BR>
<p><span style="font-size: 9pt"><font color="#ffffff">----</font>
上面的程序只是一个简单的密码验证框，我们可以将密码以写入注册表或文件的方式保存，动态修改，更可以利用算术算法对密码进行简单的加密等，使要保密的数据更安全。
</span>
<p><span style="font-size: 9pt"><font color="#ffffff">----</font>
其实，上文中如何在dll中实现窗口让我走了不少弯路，我觉得此法对大家更有意义，这是避免程序庞大的一种有效方法，不妨试试。
</span>
<p><span style="font-size: 9pt"><font color="#ffffff">----</font> 以上程序在Windows98/Delphi3下编译通过。欢迎大家批评指正。
</span></p>
<hr color="#EE9B73" size="1" width="94%">
</TD>
</TR>
</table>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -