2024年5月13日发(作者：)

维普资讯

！墨墨　ＱＱ墨：全　曼　

承德石油高等专科学校学报　

Ｊｏｕｒｎａｌ　ｏｆ　Ｃｈｅｎｇｄｅ　Ｐｅｔｒｏｌｅｕｍ　Ｃｏｌｌｅｇｅ　

第４卷第３期２００２年９月　

Ｖｏ１．４　Ｎｏ．３　Ｓｅｐ．２００２　

ＣＮ１３一ｌ２６５／ＴＥ　

利用文件接口调用Ｄｅｌｐｈｉ编写的ＡＰＩ函数　

马晓晨　

（承德石油高等专科学校计算机与信息工程系，河北承德０６７０００）　

摘要：在研究Ｗｉｎｄｏｗｓ操作系统ＡＰＩ函数的基础上，深入分析了不同开发工具所编写的ＡＰＩ函数的调　

用过程，通过事例提出了在ＶＢ环境中开发的应用程序利用文件接口调用Ｄｅｌｐｈｉ编写的ＡＰＩ函数的方　

法。　

关键词：接口ｌ　ＡＰＩｌ函数调用　

中图分类号：ＴＰ３１　文献标识码：Ｂ　文章编号：１００８—９４４６（２００２）０３—００１８—０４　

动态链接库（Ｄｙｎａｍｉｃ　Ｌｉｎｋ　Ｌｉｂｒａｒｙ，简称ＤＬＬ）是一些编译过的可执行代码模块，后缀名为ＤＬＬ，　

可以在应用程序中或其他ＤＬＬ中被调用。在Ｗｉｎｄｏｗｓ环境中，ＤＬＬ可以实现多个应用程序共享代码　

和资源。Ｍｉｃｒｏｓｏｆｔ　Ｗｉｎｄｏｗｓ本身就是由若干个ＤＬＬ组成的，其它应用程序可以调用这些库中的过程，　

完成窗口与图形的显示、内存管理或其他任务。这些过程有时被称为Ｗｉｎｄｏｗｓ　ＡＰＩ，或应用程序接口。　

除了Ｗｉｎｄｏｗｓ提供的ＡＰＩ之外，用户还可以开发自己的ＡＰＩ，这种开发给程序开发带来了很多灵　

活性，使系统增加了许多新的功能和方法。而且ＤＬＬ还独立于编程语言，利用某种开发工具编写的　

ＤＬＬ可以在其他环境中使用，例如，在Ｄｅｌｐｈｉ环境中开发的ＤＬＬ程序可以在Ｖｉｓｕａｌ　Ｃ＋＋环境中方便　

地使用；同时，在Ｄｅｌｐｈｉ环境中也可以方便地使用在Ｖｉｓｕａｌ　Ｃ＋＋开发的ＤＬＬ。但是，在Ｄｅｌｐｈｉ环境中　

编写的ＡＰＩ函数并不是在所有的开发环境中都可以方便顺利的使用。本文以我在实际应用开发过程中　

调用Ｄｅｌｐｈｉ环境中编写的ＡＰＩ函数为例进行分析和说明。　

为了二次开发和扩展光谱采集与分析系统，购买了新的分光计设备，新设备功能强大，并提供了用　

Ｄｅｌｐｈｉ编写的ＡＰＩ函数，通过调用这些函数进行二次开发可使原系统的功能大大加强，原系统是用ＶＢ　

开发的，因此在扩展系统功能时需要在ＶＢ环境调用Ｄｅｌｐｈｉ编写的ＡＰＩ函数。下面谈一下调用时存在　

的问题及解决办法。　

ｌ　在Ｖｉｓｕａｌ　Ｂａｓｉｃ调用Ｄｅｌｐｈｉ编写的ＡＰＩ函数时出现的问题　

分光计提供的ＡＰＩ函数主要有：初始化设备ＳＷＤｉｎｉｔ、关闭设备ＳＷＤｃｌｏｓｅ、设置接收频率　

ＳＷＤｒａｔｅ、接收数据ＳＷＤｓｃａｎ、关闭设备ＳＷＤｃｌｏｓｅ，在程序设计过程中，需要对这５个函数进行调用。　

由于ＤＬＬ过程存在于Ｖｉｓｕａｌ　Ｂａｓｉｃ应用程序之外的文件中，在使用时必须指定过程的位置和调用参　

数。可以用Ｄｅｃｌａｒｅ语句提供这类信息。在声明了ＤＬＬ过程之后，可以把它当做自己的过程使用。程序　

如下：　

Ｏｐｔｉｏｎ　Ｅｘｐｌｉｃｉｔ　

Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＳＷＤｉｎｉｔ　Ｌｉｂ＂ｓｗｄｌｌ　初始化设备　

ｅｃｌＤａｒｅ　Ｆｕｎｃｔｉｏｎ　ＳＷＤｃｌｏｓｅ　Ｌｉｂ＂ｓｗｄｌｌ　关闭设备　

Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＳＷＤｒａｔｅ　Ｌｉｂ　＇ｓｗｄｌｌ”（ＢｙＶａｌ　ｃｈａｎ　Ａｓ　Ｉｎｔｅｇｅｒ）　设置接收频率　

Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＳＷＤｓｃａｎ　Ｌｉｂ＂ｓｗｄｌｌ”（ＢｙＶａｌ　ｃｈａｎ　Ａｓ　Ｉｎｔｅｇｅｒ，ｂｕｆｆｅｒ　Ａｓ　Ｉｎｔｅｇｅｒ）　

收稿日期：２００２－０３—１９　

作者简介：马晓晨（１９６８一），男，承德石油高等专科学校计算机与信息工程系副主任，讲师，主要从事教学管理与计　

算机教学和研究工作。　

维普资讯

马晓晨：利用文件接口调用Ｄｅｌｐｈｉ编写的ＡＰＩ函数　・１９・　

Ａｓ　Ｌｏｎｇ＇接收数据，接收成功返回接收数据的个数，接受不成功返回Ｏ，ｃｈａｎ为传送数据的通道　

号。　

ｄｉｍ　ａｒｒａｙｌ（Ｏ　ｔｏ２０５０）Ａｓ　ｓｉｎｇｌｅ；　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ

．．．——

Ｌｏａｄ（）　

ＳＷＤｉｎｉｔ，初始化设备　

ＳＷＤｒａｔｅ（５），设置接收频率　

Ｅｎｄ　ｓｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ　Ｕｎｌｏａｄ（Ｃａｎｃｅｌ　Ａｓ　Ｉｎｔｅｇｅｒ）　

ＳＷＤｃｌｏｓｅ　关闭设备　

Ｅｎｄ　Ｓｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｏｍｍａｎｄ

．．．——

Ｃｌｉｃｋ（）　

ＳＷＤｓｃａｎ（１，ａｒｒａｙ１（））　接受通道１的数据　

Ｅｎｄ　Ｓｕｂ　

在程序执行过程中，不能正常接受数据，在调用ＳＤＷｓｃａｎ函数时采用其他传送参数地址的办法也　

没有成功。　

２　采用文件做接Ｉｚ／，实现ＶＢ对Ｄｅｌｐｈｉ编写的ＡＰＩ函数的调用　

通过研究，利用文件做为ＶＢ和Ｄｅｌｐｈｉ应用程序之间传递参数的接口，取得了较好的运行效果。利　

用Ｄｅｌｐｈｉ编写调用ＡＰＩ函数的程序，并把所采集的数据实时写入文件。利用ＶＢ编写的分析系统通过　

读取文件中的数据实现了对外部数据的采集。程序如下：　

２．１利用Ｄｅｌｐｈｉ编写调用ＡＰＩ函数的程序　

ｕｎｉｔ　ｃｏｌｌｅｃｔ　

此处省略一些Ｄｅｌｐｈｉ的程序说明部分　

ｔｙｐｅ　

ａｔｙｐｅ＝ａｒｒａｙ［０．２０５０］ｏｆ　ｓｉｎｇｌｅ；／／定义接收数据的数组　

ａｐｔｙｐｅ＝　ａｔｙｐｅ；　

ＴＦ０ｒｍｌ＝ｃｌａｓｓ（ＴＦｏｒｍ）　

∥定义数组指针变量　

／／定义窗体　

Ｔｉｍｅｒｌ：ＴＴｉｍｅｒ；／／定义一个计时器控件定时采集数据，时间间隔属性初始化为１０００。　

ｐｒｏｃｅｄｕｒｅ　Ｆｏｒｍ　Ｃｒｅａｔｅ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；　

ｐｒｏｃｅｄｕｒｅ　Ｆｏｒｍ　Ｃｌｏｓｅ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ；ｖａｒ　Ａｃｔｉｏｎ；ＴＣｌｏｓｅ　Ａｃｔｉｏｎ）；　

ｐｒｏｃｅｄｕｒｅ　Ｔｉｍｅｒｌ　Ｔｉｍｅｒ（Ｓｅｎｄｅｒ：ＴＯｂｊｃｅｔ）；　

ｅｎｄ；　

ｖａｒ　／／定义变量　

Ｆｏｒｍｌ：ＴＦｏｒｍｌ；　

ｐｌ：ａｐｔｙｐｅ；ｆ：ｔｅｘｆｉｌｅ；ｉ：ｉｎｔｅｇｅｒ；ｓ：ｓｔｒｉｎｇ；　

ｉ　ｍｐｌｅｍｅｎｔａｔｉｏｎ　

ｐｒｏｃｅｄｕｒｅ　ＳＷＤｉｎｉｔ；ｓｔｄｃａｌｌ；　

∥声明初始化函数　

ｅｘｔｅｒｎａｌ＇ｓｗｄｌｌ＇ｉｎｄｅｘｌ　

ｆｕｎｃｔｉｏｎ　ＳＷＤｓｃａｎ（ｃｈａｎ：ｉｎｔｅｇｅｒ；ｖａｒ　ｂｕｆｆｅｒｓ：ａｐｔｙｐｅ）：ｌｏｎｇｉｎｔ；ｓｔｄｃａｌｌ；／／声明数据接收函数　

ｅｘｔｅｒｎａｌ　ｓｗｅｌｌ　ｉｎｄｅｘ２；　

ｐｒｏｃｅｄｕｒｅ　ＳＷＤｒａｔｅ（ｄｓｆ：ｉｎｔｅｇｅｒ）；ｓｔｄｃａｌｌ；　／／声明采集频率设置函数　

ｅｘｔｅｒｎａｌ　ｓｗｄｌｌ　ｉｎｄｅｘ３；　

ｐｒｏｃｅｄｕｒｅ　ＳＷＤｃｌｏｓｅ；ｓｔｄｃａｌｌ；　／／声明关闭设备函数　

维普资讯

承德石油高等专科学校学报　

ｅｘｔｅｒｎａｌ＇ｓｗｄｌｌ　ｉｎｄｅｘ４；　

２００２年第４卷第３期　

ｐｒｏｃｅｄｕｒｅ　ＴＦｏｒｍ　１．Ｆｏｒｍ　Ｃｒｅａｔｅ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；　

ｂｅｇｉｎ　

ＳＷＤｉｎｉｔ；ＳＷＤｒａｔｅ（５）；　

ｅｎｄ；　

ｐｒｏｃｅｄｕｒｅ　Ｆｏｒｍ１．ＴＦｏｒｍＣｌｏｓｅ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ；ｖａｒ　Ａｃｔｉｏｎ：ＴＣｌｏｓｅ　Ａｃｔｉｏｎ）；　

ｂｅｇｉｎ　

ＳＷＤｃｌｏｓｅ；　

ｅｎｄ；　

ｐｒｏｃｅｄｕｒｅ　ＴＦｏｒｍ１．Ｔｉｍｅｒ１　Ｔｉｍｅｒ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；　

ｂｅｇｉｎ　

Ｖａｒ　

ｉ：ｉｎｔｅｇｅｒ；　

ｆｌ：ｔｅｘｔｆｉｌｅ；　

Ｓ：ｓｔｒｉｎｇ；　

ｂｅｇｉｎ　

ＳＷＤｓｃａｎ（１，ｐ１）；／／在通道１中采集数据　

ＡｓｓｉｇｎＦｉｌｅ（ｆｌ，，ｃ：＼ｓｗｄ＼ｃｏｌｌｅｃｔ．ｔｘｔ　）；　

Ｒｅｗｒｉｔｅ（ｆ１）；　

ｆｏｒ　ｉ：一１　ｔｏ　２０５０　ｄｏ　

ｂｅｇｉｎ　

／／定义文件　

Ｓ：＝ｆｌｏａｔｔｏｓｔｒ（ｐｌ［ｉ－Ｉ）；　

Ｗｒｉｔｅｌｎ（ｆｌ，ｓ）；　

ｅｎｄ；　

ＣｌｏｓｅＦｉｌｅ（ｆ１）；　

ｅｎｄ　

２．２利用ＶＢ编从文件中读取数据的程序　

首先定义一个计时器控件定时读取文件数据，时间间隔属性Ｉｎｔｅｒｖａｌ初始化为１０００。　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｔｉｍｅｒ１　Ｔｉｍｅｒ（）　

Ｄｉｍ　ｃｉ（２０５０）Ａｓ　Ｉｎｔｅｇｅｒ　

Ｄｉｍ　ｃｏｕｎｔｅｒ　Ａｓ　Ｉｎｔｅｇｅｒ　

Ｄｉｍ　ｓｔｒｌ　Ａｓ　Ｓｔｒｉｎｇ　

Ｏｐｅｎ＂ｃ：＼Ｓｗｄ＼ｃｏｌｌｅｃｔ．ｔｘｔ”Ｆｏｒ　Ｉｎｐｕｔ　Ａｓ＃１　

Ｆｏｒ　Ｃｏｕｎｔｅｒ＝１　Ｔｏ　２０５０　

Ｌｉｎｅ　Ｉｎｐｕｔ＃１．ｓｔｒｌ　

Ｉｆ　ＥＯＦ（１）Ｔｈｅｎ　ＧｏＴｏ　ｅｘｉｔｌ　

ｃｉ（Ｃｏｕｎｔｅｒ）一Ｖａｌ（ｓｔｒ１）　

Ｎｅｘｔ　

Ｅｘｉｌｔ：Ｃｌｏｓｅ＃１　

Ｅｎｄ　Ｓｕｂ　

由于篇幅所限本文只介绍了数据的接收，采用同样的方法还可以实现数据的发送，实现设备的控制　

与数据的采集。通过应用，我们不难发现利用文件做接口调用Ｄｅｌｐｈｉ编写的ＡＰＩ函数是一种简捷实用　

的方法。　

维普资讯

马晓晨：利用文件接口调用Ｄｅｌｐｈｉ编写的ＡＰＩ函数　

参考文献：　

［１］丁爱萍．Ｖｉｓｕａｌ　Ｂａｓｉｃ程序设计［Ｍ］．西安：西安电子科技大学出版社，２００１　

［２］Ｒｅｓｅｌｍａｎ，Ｂ．实用Ｖｉｓｕａｌ　Ｂａｓｉｃ　６教程［Ｍ］．北京：清华大学出版社，２００１　

・２１・　

Ｕｓｉｎｇ　Ｆｉｌｅ　Ｉｎｔｅｒｆａｃｅ　ｔｏ　Ｃａｌｌ　ｔｈｅ　ＡＰＩ　Ｆｕｎｃｔｉｏｎ　Ｐｒｏｇｒａｍｍｅｄ　ｉｎ　Ｄｅｌｐｈｉ　

ＭＡ　Ｘｉａｏ—ｔｈｅｎ　

（Ｃｏｍｐｕｔｅｒ　ａｎｄ　Ｉｎｆｏｒｍａｔｉｏｎ　Ｅｎｇｉｎｅｅｒｉｎｇ　Ｄｅｐａｒｔｍｅｎｔ，Ｃｈｅｎｇｄｅ　Ｐｅｔｒｏｌｅｕｍ　Ｃｏｌｌｅｇｅ，　

Ｃｈｅｎｇｄｅ，Ｈｅｂｅｉ，０６７０００）　

Ａｂｓｔｒａｃｔ：Ｔｈｅ　ｃａｌｌｉｎｇ　ｐｒｏｃｅｓｓ　ｏｆ　ｗｉｎｄｏｗｓ　ＡＰＩ　ｆｕｎｃｔｉｏｎ　ｉｎ　ｄｉｆｆｅｒｅｎｔ　ｐｒｏｇｒａｍｍｉｎｇ　ｌａｎｇｕａｇｅｓ　ｉｓ　ａｎａｌｙｓｅｄ　

ｈｅｒｅ．Ａｎｄ　ａ　ｍｅｔｈｏｄ　ｏｆ　ｃａｌｌｉｎｇ　ＡＰＩ　ｆｕｎｃｔｉｏｎ　ｉｎ　ｄｅｌｐｈｉ　ｗｉｔｈ　ａ　ＶＢ　ａｐｐｌｉｃａｔｉｏｎ　ｉｓ　ｐｒｅｓｅｎｔｅｄ　ｗｉｔｈ　ｅｘａｍ．．　

ｐｌｅｓ，ｉｎ　ｗｈｉｃｈ　ｆｉｌｅ　ｉｎｔｅｒｆａｃｅ　ｉｓ　ａｖａｉｌａｂｌｅ．　

Ｋｅｙ　ｗｏｒｄｓ：ｉｎｅｒｆａｃｅ；ＡＰＩ；ｆｕｎｃｔｉｏｎ　ｃａｌｌｉｎｇ　

（上接第７页）　

参考文献：　

［１］王允城．油层物理学［Ｍ］，北京；石油工业出版社，１９９３　

［２］Ｆ．Ａ．Ｌ．Ｄｕｌｌｉｅｎ．杨富民，黎用启译．多孔介质一流体渗移与孔隙结构［Ｍ］，北京：石油工业出版社，１９９０　

Ｅｘｐｅｒｉｍｅｎｔａｌ　Ｒｅｓｅａｒｃｈ　ｏｎ　Ｆｉｎｇｅｒｉｎｇ　ａｎｄ　Ｒｅｓｉｄｕａｌ　Ｏｉｌ　Ｄｉｓｔｒｉｂｕｔｉｏｎ　

ＴＩＡＮ　Ｎａｉ—ｌｉｎ　ＺＨＵ　Ｊｉｕ—ｃｈｅｎｇ　

（１．Ｃｈｅｎｇｄｅ　Ｐｅｔｒｏｌｅｕｍ　Ｃｏｌｌｅｇｅ，Ｃｈｅｎｇｄｅ，Ｈｅｂｅｉ，０６７０００：　

２．Ｃｈｉｎａ　Ｉｎｔｅｒｎａｔｉｏｎａｌ　Ｅｎｔｅｒｐｒｉｓｅ　Ｃｏｏｐｅｒａｔｉｏｎ　Ｃｏｍｐａｎｙ，１０００８８）　

Ａｂｓｔｒａｃｔ：Ａ　ｓｅｔ　ｏｆ　ｅｑｕｉｐｍｅｎｔ　ａｒｅ　ｄｅｓｉｇｎｅｄ　ｔｏ　ｓｔｕｄｙ　ｔｈｅ　ｆｉｎｇｅｒｉｎｇ　ａｎｄ　ｒｅｓｉｄｕａｌ　ｏｉｌ　ｄｉｓｔｒｉｂｕｔｉｏｎ

。ｗｈｏｓｅ　

ｌａｗ　ｈａｓ　ｂｅｅｎ　ｏｂｔａｉｎｅｄ　ａｓ　ａ　ｒｅｓｕｌｔ　ａｎｄ　ｕｎｄｅｒ　ｄｉｆｆｅｒｅｎｔ　ｖｉｓｃｏｓｉｔｙ　ｒａｔｉｏｎ，ｉｔ　ｉｓ　ｍｅａｎｉｎｇｆｕｌ　ｔｏ　ｔｈｅ　ａｃｔｕａｌ　

ｐｒｏｄｕｃｔｉｏｎ．　

Ｋｅｙ　ｗｏｒｄｓ：ｃｒｕｄｅ　ｏｉｌ；ｆｉｎｇｅｒｉｎｇ；ｒｅｓｉｄｕａｌ　ｏｉｌ；ｅｘｐｅｒｉｍｅｎｔ