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

Posted 2022-07-21 知

篇首语：老板给了我份说炒就炒的鱿鱼，我给了板来了份说滚就滚的旅行。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全动态链接库编程（二）[4]相关的知识，希望对你有一定的参考价值。

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

　　口令设置部分的实现代码为

　　procedure TForm SetButtonClick（Sender: TObject）

　　begin

　　PassWord := StrAlloc（）

　　if SetPassWord（PassWord） = False then

　　MessageDlg（ PassWord is not set mtInformation [mbOK] ）

　　end;

　　首先为口令字符串分配内存当口令设置窗体按Cancel按钮取消时显示相应的信息

　　口令检查部分的实现代码为

　　procedure TForm TestButtonClick（Sender: TObject）

　　begin

　　if PassWord = nil then

　　begin

　　MessageDlg（ Set password first mtInformation [mbOK] ）

　　SetButton SetFocus;

　　Exit;

　　end;

　　if GetPassword（PassWord） then

　　Label Caption := You are Welle !

　　else

　　Label Caption := Sorry You are InValid User ;

　　end;

　　根据口令检查的结果在标签框中显示相应的信息

　　 VB应用程序调用重用窗体

　　VB是微软公司极力推荐的一个可视化开发工具它虽然并不支持动态链接库的创建但可以调用标准的Windows API动态链接库和用其它语言编写的动态链接库为了验证所生成DLLs的普适性我们用VB开发了一个简单的程序来调用passform dll中储存的窗体

　　下面是VB程序的完整代码和Delphi程序的对应部分基本一致

　　Option Explicit

　　Declare Function GetPassWord Lib c:\\dlls\\passform dll （ByVal PassWord As String） As Integer

　　Declare Function SetPassWord Lib c:\\dlls\\passform dll （ByVal PassWord As String） As Integer

　　Dim PassWord As String *

　　Sub Check_Click （）

　　If PassWord = Then

　　MsgBox （ Enter sample password first ）

　　SetPass SetFocus

　　Else

　　If GetPassWord（PassWord） Then

　　StatusLbl Caption = You are Wele!

　　Else

　　StatusLbl Caption = Sorry You are Invalid User

　　End If

　　End Sub

　　Sub SetPass_Click （）

　　If SetPassWord（PassWord） = Then

　　MsgBox （ PassWord is not Set ）

　　End If

　　End Sub

　　有关VB编程的一些具体问题读者可参看有关的VB参考书

　　小结

　　本章我们讨论的是动态链接库编程许多可视化开发工具（如Visual Basic）不支持 DLLs的创建而Delphi在这里又有上乘的表现特别是窗体重用机制是Delphi对Windows下DLLs编程的一个重大改进在一般的DLLs编程中也体现了Delphi快捷方便的特点动态链接库是 Windows下程序组织的一种重要方式使用动态链接库可以极大地保护用户在不同开发工具不同时期所做的工作利用动态链接库用户可以逐步去构筑自己的程序模块库为今后的工作积累素材

　　返回目录 DELPHI基础教程

编辑推荐

Java程序设计培训视频教程

J EE高级框架实战培训视频教程

　　Visual C++音频/视频技术开发与实战

　　Oracle索引技术

　　ORACLE G数据库开发优化指南

　　Java程序性能优化让你的Java程序更快更稳定

　　C嵌入式编程设计模式

　　Android游戏开发实践指南

cha138/Article/program/Delphi/201311/25206

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

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