知识大全动态链接库编程（二）[3]

Posted 2022-07-21 知

篇首语：世界上三种东西最宝贵本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全动态链接库编程（二）[3]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：动态链接库编程（二）[3] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　在口令设置窗口中为了确保用户记住了设置的口令在用户输入并按回车键后要求用户再次输入进行确认只有用户重新输入的字符串与原设置口令相同口令设置窗口才能正常关闭否则将原设置口令清空要求用户再次输入以上功能的实现在编辑框的OnKeyPress事件处理过程中

　　procedure TSetPassWordForm Edit KeyPress（Sender: TObject; var Key: Char）

　　begin

　　if Edit text = then Exit;

　　if Key = # then

　　begin

　　if Verified then

　　if StrPas（PassWord） = Edit text then

　　begin

　　OKBtn Enabled := True;

　　Edit Enabled := False;

　　OKBtn SetFocus;

　　end

　　else

　　begin

　　Verified := False;

　　MessageDlg（ PassWord is InValid mtWarning [mbOK] ）

　　Edit text := ;

　　PassWord := ;

　　Label Caption := Please Input PassWord: ;

　　end

　　else

　　begin

　　Verified := True;

　　StrPCopy（PassWord Edit text）

　　Edit text := ;

　　Label caption := Please Verify PassWord: ;

　　end;

　　Key := # ;

　　end;

　　口令检查窗口的实现相对简单只定义了一个输出函数GetPassWord 用于生成口令检查窗口并返回口令检查的结果

　　function GetPassword（Password: PChar） Boolean;

　　var

　　GetPasswordForm: TGetPasswordForm;

　　begin

　　Result := False;

　　GetPasswordForm := TGetPasswordForm Create（Application）

　　try

　　with GetPasswordForm do

　　if ShowModal = mrOK then

　　if UpperCase（Edit Text） <> StrPas（StrUpper（Password）） then

　　MessageDlg（ Invalid Password mtWarning [mbOK] ）

　　else

　　Result := True;

　　finally

　　PasswordForm Free;

　　end;

　　PassWord为输入的参数不能为空由调用以上函数的程序负责维护

　　窗口中用户输入口令时回显在屏幕上的字符由编辑框的PassWordChar属性确定

　　在DLLs的工程文件中把两个输出函数写到exports子句中

　　library PassForm;

　　uses

　　GetPass in GETPASS PAS PasswordForm

　　Setpass in SETPASS PAS SetPassWordForm;

　　exports

　　GetPassword SetPassWord;

　　begin

　　end

　　 Delphi应用程序调用重用窗体

　　在Delphi应用程序中调用重用窗体首先必须包含passform dll的两个输出函数

　　function GetPassword（Password: PChar） Boolean;

　　far; external c:\\dlls\\PassForm ;

　　function SetPassword（PassWord: PChar） Boolean;

　　far; external c:\\dlls\\PassForm ;

　　这位于程序单元的implementation部分

cha138/Article/program/Delphi/201311/25205

知识大全 动态链接库编程（二）[3]

知识大全动态链接库编程（二）[3]