月光软件站 - 编程文档 - 软件工程 - 推荐一份好杂志，刚刚收到的。

软件工程

本类阅读TOP10

·PHP4 + MYSQL + APACHE 在 WIN 系统下的安装、配置
·Linux 入门常用命令(1)
·Linux 入门常用命令(2)
·使用 DCPROMO/FORCEREMOVAL 命令强制将 Active Directory 域控制器降级
·DirectShow学习(八)： CBaseRender类及相应Pin类的源代码分析
·基于ICE方式SIP信令穿透Symmetric NAT技术研究
·Windows 2003网络负载均衡的实现
·一网打尽Win十四种系统故障解决方法
·数百种 Windows 软件的免费替代品列表
·收藏---行百里半九十

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

推荐一份好杂志，刚刚收到的。

作者：未知来源：月光软件站 加入时间：2005-2-28　月光软件站

	编程爱好者电子杂志每日一文（2月19日）欢迎光临编程爱好者网站: http://www.programfan.com
【杂志网站】　【编辑信箱】　【编程论坛】　【会员注册】【过刊查询】　【杂志订退】

发布个人原创作品管理个人作品页面欢迎进入编程论坛我有建议想要发表

编程爱好者网站最新更动

祝大家新年快乐，心想事成，万事如意，数钱数到手抽筋。

编程爱好者网站启用新域名 http://www.programfan.com 本站将以全新的面貌来欢迎每一位编程爱好者的到来。
本站的建设离不开广大的编程爱好者的帮助，新版的网站将更侧重于互动交流，能为广大的编程爱好者提供资料解决问题是本站的目标。

网站最新更动

最新下载
● AnFX 4.8.5 （更新日期：2002年2月18日点击数：352）
无需任何 Java 知识，即可快速建立包含各种动画特效的 Java Applet，Applet 本身非常小巧，只有 20K，而且只需下载一次即可重复使用。

● 数字化时间控件 3.0 （更新日期：2002年2月18日点击数：2）
数字化时间控件，有三种模式（计时模式、时钟模式与日期模式）支持语言报时。可以设定多少时间后，程序停止。具有LED面板外观,可以选取背景色和背景图。

● Turbo C 2.0 （更新日期：2002年2月18日点击数：5637）
经典的不能再经典的TC2.0，还不快下载一个。

● Borland JBuilder 6.0 注册机 （更新日期：2002年2月3日点击数：139）
Borland JBuilder 6.0的注册机

● Borland JBuilder 6.0 企业版 （更新日期：2002年2月3日点击数：329）
著名的Borland公司出品的最新版可视化JAVA编辑编译平台

● CS Cpu Monitor 2.0.0源代码 （更新日期：2002年2月13日点击数：7）
CS Cpu Monitor 2.0.0 版，以图形状态即时监视 CPU 的使用情况。

● 隐藏驱动器源代码 （更新日期：2002年2月13日点击数：20）
本程序在Win98SE中文版、VB6.0下通过
本程序通过读取注册表中的信息获取当前系统中驱动器的隐藏与可见性

● 使用DirectSound播放wave文件的程序代码 （更新日期：2002年2月13日点击数：15）
使用DirectSound播放wave文件的程序代码

● 打开PDF文件的代码 （更新日期：2002年2月13日点击数：26）
打开PDF文件的代码

● 一个穿钮扣游戏的VC源代码 （更新日期：2002年2月13日点击数：19）
一个穿钮扣游戏的VC源代码

更多精彩内容尽在编程爱好者网站

回到页首

利用DLL实现通用密码验证框

---- 在我们编制Delphi应用程序，常常需要提供一个密码验证框，对应用程序的使用者进行身份核对。如果能有一个通用的密码验证框，便能够为我们的工作节约不少的时间，更能使我们编制的程序小而快。以下的程序为你提供了这样的一个DLL文件。

file://文件名为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;
file://本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);
file://创建密码输入框
      XcqForm.ShowModal;//显示密码输入框;
注意：不能用XcqForm.Show!
Result := Check;//返回给调用本dll的应用程序判断
XcqForm.Free;//释放本dll文件所占资源
    end;
    end.

---- 在调用以上dll中CheckPassword函数的应用程序中只需加入以下语句在implementation 后，function CheckPassword: Boolean; external 'CheckPasswordForm.dll' name 'CheckPassword';在需要进行密码验证的地方加入下面的条件语句就完全实现了密码验证的功能。
    if CheckPassword then
    begin
      ...//如XcqQuery.Open;
    end;

---- 上面的程序只是一个简单的密码验证框，我们可以将密码以写入注册表或文件的方式保存，动态修改，更可以利用算术算法对密码进行简单的加密等，使要保密的数据更安全。
---- 其实，上文中如何在dll中实现窗口让我走了不少弯路，我觉得此法对大家更有意义，这是避免程序庞大的一种有效方法，不妨试试。

回到页首

《编程爱好者》订退方法

请在下面的文本框内输入您订阅本刊的邮件地址，并按右面的订阅按钮即可。如果您觉得这份刊物还不错的话，欢迎把它推荐给您的朋友。

不知道您看了这期刊物有什么想法或者是意见，欢迎向我提出来。
本人感激不尽，我的联系方法如下:
Homepage： http://www.programfan.com
E-mail： [email protected]
OICQ： 15987743

回到页首

相关文章：

相关软件：