vc opc client 核心代码（VC的OPC客户端核心代码）.docVIP

vc opc client 核心代码（VC的OPC客户端核心代码） VC的OPC客户端核心代码阳光丨丶雨 好像技术一沾上工业，便有了很高的价值，大家三缄其口，谁都不点破这层窗户纸，好多的思路和源码都要从国外网站获得，国内总是有条件，有限制－－就是不告诉你，怕教会徒弟，饿死师父吧。 研究了N天，开发了一个基于我的组态后台的OPC客户端驱动，考虑到驱动的特殊性，所以只开发了同步接口操作。测试一段时间后，还可以。现把核心代码公开出来，有点VC基础的人可以直接拿来用。 / / ************************************************************************* / /函数名：connectopc / /所属类名：COPCClien / /输入：CString SvrName / /输出： / /功能描述：连接OPC服务器 / /全局变量： / /调用模块： / /作者：叶帆 / /日期：2005年12月1日 / /修改人： / /日期： / /版本： / / ************************************************************************* 长copcclient：：connectopc（CString csvrname） { HRESULT HR； CLSID标识； wchar wszprogid [ 512 ]； / / ---------------------------------- / /初始化COM HR = CoInitialize（空）； 如果（失败（HR））return 8；// COM初始化失败 / / ----------------------------------- 如果（strsvrname！=“”）/判断是否已经连接OPC { 如果（strsvrname = = csvrname）返回2；/ / OPC服务器已经连接 否则返回4；/ /只能连接一个OPC服务器 } / / ----------------------------------- 尝试 { / / ---------------------------------- / /把字符串形式的对象标识转化为CLSID结构形式 _mbstowcsz（wszprogid，csvrname，sizeof（wszprogid）/ sizeof（wchar））； HR = clsidfromprogid（wszprogid，/ / [中] 与CLSID）；// [出] 如果（失败（HR）） { CoTaskMemFree（与CLSID）；/ / COM内存释放函数 couninitialize()；/ /终止COM库功能服务 return 16；//获取CLSID失败 } / / -------------------------------- / /创建服务器实例 HR = CoCreateInstance（CLSID，/ / [中] NULL [ // ] clsctx_server，/ / [中] iid_iunknown，/ / [中] （无效**）和“朋克”；[…] 如果（失败（HR）） { CoTaskMemFree（与CLSID）； 如果（朋克）- release()朋克； 朋克=空； couninitialize()； return 32；//创建服务器实例失败 } / / ------------------------------------ / /查询POPC接口 HR =朋克- QueryInterface（iid_iopcserver，/ / [中] （void *） POPC）；// [出] 如果（失败（HR）） { CoTaskMemFree（与CLSID）； 如果（POPC）POPC - release()； 如果（朋克）- release()朋克； POPC = null； 朋克=空； return 64；//查询POPC接口失败 } CoTaskMemFree（与CLSID）； / / --------------------------- strsvrname = csvrname；/ /赋值当前OPC服务名称 } 抓住（…） { return 128；//连接服务器时出现严重错误 } return 0；//成功 } / / ************************************************************************* / /函数名：disconnectopc / /所属类名：copcclient / /输入： / /输出：长 / /功能描述