原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
一、引言
现在有很多工业控制产品都支持OPCServer，如西门子SIMATICNET、WINCC、WINAC、Protool/pro，亚控公司组态王等，这些产品本身在一些需要实现很复杂的数据模型功能上还显得缺乏，由于支持了OPC，我们就可以在VB或C++上通过OPC获取数据进而实现较复杂的功能〔如强大的数据库管理或数据分析〕。本文讨论了如何在VB中开发一个动态连接库，以方便开发者实现对OPC效劳器的数据采集，将精力更多的放在界面开发和数据处理上。
二、功能设计
类型设计为ActiveXDll，名称：OPC_Dll.dll，可以在VB工程[引用]中加载，加载后通过创立类BCA_OPC的实例来实现OPC数据通讯，BCA_OPC的调用功能如下：
1、配置初始化：Dll_Initial(strConfigFileAsString)AsBoolean
其中strConfigFile为连接OPC效劳器对应的配置文件名称〔*.ini〕，用户建立的配置文件应遵循一定的格式〔在下面应用中说明〕，并且应放在系统目录下〔如C:\WINNT下〕。配置文件中包含了要连接的OPC效劳器名称、log文件名称、变量组定义及对应组内的变量定义〔本连接库最多支持1024个变量通讯，对变量组的数目没有限制〕。配置成功返回TRUE。
2、连接OPC效劳器：ConnectServer(OptionalIPAddressAsString)AsBoolean
IPAddress为可选的远程OPC效劳器所属PC的IP地址，如“192.168.0.1”，如果不提供IPAddress参数，那么默认为本机OPC效劳器。连接成功返回TRUE。
3、配置通讯变量〔组态OPC客户机〕：SetConfiguration()AsBoolean
根据提供的ini配置文件组态OPC客户机与效劳器的变量通讯，组态成功返回TRUE。
4、读变量数据：GetData(ItemNameAsString)
ItemName为变量名称，必须与ini配置文件中的变量名称一致。本功能返回该变量的实际数据。
5、写变量数据：WriteData(ItemNameAsString,ItemWriteDataAsVariant)
ItemName为变量名称，ItemWriteData为变量数据。
三、实现代码
1、在VB6.0中新建ActiveXDll工程，如下列图：
2、在工程菜单中添加引用，如下列图：
如果系统中没有OPCAutomation，你需要安装注册OPC自动化。一般装了OPC支持的软件，系统都支持OPC自动化。
3、在工程中添加模块，如下列图：
模块API_Function为软件所需的一些API函数。
模块Global_constants为一些系统常量
类模块BCA_OPC为实现主类
类模块ItemInfo和ItemsInfo实现变量信息的封装
4、以下为各模块的程序代码：
API_Function:
OptionExplicit
----------------------------------
获取一个与给定初始化文件指定域中的一个键相联系的整数值(1)
PublicDeclareFunctionGetPrivateProfileIntLibkernel32Alias_
???????GetPrivateProfileIntA(ByVallpApplicationNameAsString,ByVallpKeyNameAsString,_
???????ByValnDefaultAsLong,ByVallpFileNameAsString)AsLong
从一个初始化文件中获取指定段的所有键和值(2)
PublicDeclareFunctionGetPrivateProfileSectionLibkernel32Alias_
???????GetPrivateProfileSectionA(ByVallpAppNameAsString,ByVallpReturnedStringAsString,_
???????ByValnSizeAsLong,ByVallpFileNameAsString)AsLong
获取初始化文件中的制定断下的一个字符串(3)
PublicDeclareFunctionGetPrivateProfileStringLibkernel32Alias_
???????GetPrivateProfileStringA(ByVallpApplicationNameAsString,ByVal
文档评论（0）