delphi 自动关联外部程序 打开文件_VB样本程序如何节省两千多费用成本

笔者前段时间在对接酒店的一家门锁系统，由于酒店使用的门锁系统已经快10年了，在切换酒馆系统的时候希望能对接上这个门锁系统，但是目前只有一个动态库文件DLL，以及一个简单的文档说明。无法得知该动态库文件是否支持酒店房门，如果需要样本程序，得花两千多费用购买。

于是根据自己经验来开发了一个简单的demo程序。

在做这种小样本程序，其实可以用的语言很多，比如，C++，Delphi，C#，Java，VB，PB都可以实现，除了java相对比较啰嗦点(可参考我之前文档关于java调用DLL的三种方法)，其他对接都非常容易。这里我们选择的是VB(Visual Basic)。

VB在做图形用户界面(GUI)和快速应用程序开发系统上有着比较明显的优势。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

VB的开发工具我们选择Visual Basic 6.0精简版，开发界面如图，下面我们将该开发工具称为IDE。

VB精简版

接下来我们开始做样本Demo。

首先我们看下对方提供的动态库DLL的简单说明，DLL方法里包含了，打开端口，关闭端口，读卡，制卡，蜂鸣等方法。

函数声明

然后打开IDE，选择新建标准EXE程序，打开，并给这个工程取个名字为Demo。

新建demo工程

接下来将动态库的方法做声明，在工程中添加一个模块，并添加上动态库函数的声明，如图所示

模块声明

然后把对应的控件加上，如读卡，写卡，等配置文本控件，VB跟.NET一样的好处就是控件集成IDE，直接拖拉即可完成控件的生成。并且双击控件即可生成控件事件方法。如双击写卡控件进入写卡方法的开发。

这里附上，写卡和读卡的方法代码参考

写卡

读卡

最后直接保存生成EXE文件即可。打开这个exe文件即可开始做测试。

如有疑问的可以下方留言，谢谢！