1428
社区成员
遇到两个很头大的问题，并且不太好描述，低手高手都请进......
1、在开发OPC客户端驱动时，发现这么个问题，OPC驱动为MFC 6.0开发的DLL（MFC 扩展）。
此DLL中用到COM的一些函数，发现DLL在执行CoInitialize后，前台VB做的程序，凡是含有微软SSTab控件的窗体一律打不开。（我试了很多机器，只有我的笔记本没有问题，其它的不管XP还是Win2000都有问题。
无怪SSTab控件我们很难自己开发，看来用到很多COM深层的东西。
2、用微软Script Control控件ExecuteStatement执行脚本命令，发现只要执行任何代码，哪怕一个注释“’”，也会有内存泄漏
在XP Sp2的机器上没有什么问题，在Win2000 个别机器上有问题，XP 没有补丁，SP1的都有泄漏。
－－－－－谢谢－－－－－顶者有分－－－－
此DLL中用到COM的一些函数，发现DLL在执行CoInitialize后，前台VB做的程序，凡是含有微软SSTab控件的窗体一律打不开。（我试了很多机器，只有我的笔记本没有问题，其它的不管XP还是Win2000都有问题。
无怪SSTab控件我们很难自己开发，看来用到很多COM深层的东西。
2、用微软Script Control控件ExecuteStatement执行脚本命令，发现只要执行任何代码，哪怕一个注释“’”，也会有内存泄漏
在XP Sp2的机器上没有什么问题，在Win2000 个别机器上有问题，XP 没有补丁，SP1的都有泄漏。
－－－－－谢谢－－－－－顶者有分－－－－
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
yorkness 2005-12-09
低手，满天都是星星，眼都花了
OhPrettyLady 2005-12-08
求教高手：
我的RichTextBox中不同的行高度有可能都不同，而且也有些图片，行间距也有不同。
请问我如果定位到某一行后，如何获取本行的行高呢？？？
解决奉献自己全部积分（110分），决不失言！！！
http://community.csdn.net/Expert/topic/4447/4447163.xml?temp=.2219965
我的RichTextBox中不同的行高度有可能都不同，而且也有些图片，行间距也有不同。
请问我如果定位到某一行后，如何获取本行的行高呢？？？
解决奉献自己全部积分（110分），决不失言！！！
http://community.csdn.net/Expert/topic/4447/4447163.xml?temp=.2219965
weiyulin 2005-12-06
随便问各位老师 COM 究竟是个什么东西 我感觉好神密。。。
在下先谢谢了。。。。
在下先谢谢了。。。。
weiyulin 2005-12-06
帮你顶，但不懂。。。
叶帆 2005-12-05
目前问题基本上解决，目前发现，对
CoInitialize(NULL);
CoUninitialize();
必须在同一线程，否则就会出现以上问题。
不过又出现了新的问题：
先描述一下我的程序结构： YFIOServer.exe(VB开发) --> 调用 YFIOS.dll -->调用 YFOPCClient.dll
刚才的程序就是说的是“YFOPCClient.dll”里面的程序，
现在的问题是在 YFOPCClient.dll 调用 YFIOS.dll 里提供的方法（用SendMessage 想YFIOServer.exe发送消息）出现问题，SendMessage没有返回。
我目前用笨办法解决了，不过代码太不优美了，很让我恼火。
CoInitialize(NULL);
CoUninitialize();
必须在同一线程，否则就会出现以上问题。
不过又出现了新的问题：
先描述一下我的程序结构： YFIOServer.exe(VB开发) --> 调用 YFIOS.dll -->调用 YFOPCClient.dll
刚才的程序就是说的是“YFOPCClient.dll”里面的程序，
现在的问题是在 YFOPCClient.dll 调用 YFIOS.dll 里提供的方法（用SendMessage 想YFIOServer.exe发送消息）出现问题，SendMessage没有返回。
我目前用笨办法解决了，不过代码太不优美了，很让我恼火。
seven2015 2005-12-03
帮顶吧！
agg168168 2005-12-03
还是不懂,低手,
顶
顶
sanduVB 2005-12-03
在其它机上也把VB装上试一下。
可能是VB中的某一个文件在起作用。
可能是VB中的某一个文件在起作用。
韧恒 2005-12-03
SSTab的确有很多问题，我通常使用TabStrip，尽管会多写点代码。
不过针对楼主的问题，qkaibo(艾夏)的话是有一定道理的，即然你的笔记本没有问题，那么在其他机器上也应该可以。
不过针对楼主的问题，qkaibo(艾夏)的话是有一定道理的，即然你的笔记本没有问题，那么在其他机器上也应该可以。
Mr_Yang 2005-12-03
顶~~
zfl2k 2005-12-03
低手，估计原因是你笔记本上的某个程序刚好用到了某个dll，刚好符合了sstab和opc的某个环境，于是没出问题。把你的系统ghost到台式机看看。
不过既然是sstab的问题那就不用就行了。
不过既然是sstab的问题那就不用就行了。
zhzhq800204 2005-12-03
我是低手，帮顶了。
foreverstar2004 2005-12-03
呵,这么多高手,看来我只能凑热闹了哈!帮LZ顶一下吧!
叶帆 2005-12-03
以上现象，我的笔记本没有问题，家里的台式机出现以上现象（公司里的同事的各种机器，都有此现象）。
此外还有一点现象区别:
1、在我的笔记本上，第一次启动OPC Client，相应服务器打开，关闭Client，服务程序自动关闭；第二次，多次都是这样
2、在家里的台式机，第一次启动OPC Client，相应服务器打开，关闭Client，服务程序自动关闭；第二次启动OPC Client，相应服务器打开，关闭Client，服务程序不自动关闭。第n次，现象一样，不会自动关闭。
此外还有一点现象区别:
1、在我的笔记本上，第一次启动OPC Client，相应服务器打开，关闭Client，服务程序自动关闭；第二次，多次都是这样
2、在家里的台式机，第一次启动OPC Client，相应服务器打开，关闭Client，服务程序自动关闭；第二次启动OPC Client，相应服务器打开，关闭Client，服务程序不自动关闭。第n次，现象一样，不会自动关闭。
叶帆 2005-12-03
【更进一步的信息】：
现象：
1、在运行OPC Client之前，打开含TabStrip的窗体，则运行OPC Client后，该窗体打开正常
2、在运行OPC Client之前，不打开含TabStrip的窗体，则运行OPC Client后，该窗体打不开，与用SSTab的窗体一样。
不特指 “TabStrip”控件，只要窗体是含有非VB基本控件，就出现以上现象。
对于第2条，弹不出窗体，出现7号 运行时，内存溢出错误的信息。
我目前的解决办法，在主窗体开始的时候（执行load事件的时候），对含有非VB基本控件的窗体Load一下，马上在Unload。以上现象消除。
可是SSTab控件问题依然，只是我不用它了。
现象：
1、在运行OPC Client之前，打开含TabStrip的窗体，则运行OPC Client后，该窗体打开正常
2、在运行OPC Client之前，不打开含TabStrip的窗体，则运行OPC Client后，该窗体打不开，与用SSTab的窗体一样。
不特指 “TabStrip”控件，只要窗体是含有非VB基本控件，就出现以上现象。
对于第2条，弹不出窗体，出现7号 运行时，内存溢出错误的信息。
我目前的解决办法，在主窗体开始的时候（执行load事件的时候），对含有非VB基本控件的窗体Load一下，马上在Unload。以上现象消除。
可是SSTab控件问题依然，只是我不用它了。
叶帆 2005-12-03
－－－－－－发生了更奇怪的事情－－－－－
我用了一上午，把SSTab替换为TabStrip，奇怪的事情发生了
现象：
1、在运行OPC Client之前，打开含TabStrip的窗体，则运行OPC Client后，该窗体打开正常
2、在运行OPC Client之前，不打开含TabStrip的窗体，则运行OPC Client后，该窗体打不开，与用SSTab的窗体一样。
qkaibo 2005-12-02
，只有我的笔记本没有问题，其它的不管XP还是Win2000都有问题。
一般情况下不要怀疑微软的错 在你的笔记本上可以 在其它机器上不行 一般肯定是哪个主件没安装或者 关联的主件的版本不对
就比如form2.0控件 怎么弄都出错 非得拿微软的原安装包才行
一般情况下不要怀疑微软的错 在你的笔记本上可以 在其它机器上不行 一般肯定是哪个主件没安装或者 关联的主件的版本不对
就比如form2.0控件 怎么弄都出错 非得拿微软的原安装包才行
lsgis2001 2005-12-02
顶了，曾经用过SSTAB，但没有发现这样的问题，
叶帆 2005-12-02
hGroup=0;
hServer=0;
CoUninitialize(); //关闭COM <-----【这就是罪魁祸手】
return 0;
}
... ...
hServer=0;
CoUninitialize(); //关闭COM <-----【这就是罪魁祸手】
return 0;
}
... ...
叶帆 2005-12-02
VB访问OPC是采用的自动化接口，需要N多DLL，比较讨厌人，此外我要生成标准的DLL（我开发的后台IOserver的标准驱动程序），所以用控件不适合。
这是VC 部分的代码（也许放在这里不适合，不过没有办法，总感觉VB是母语）
【详细部分】http://blog.csdn.net/yefanqiu/archive/2005/12/02/542447.aspx
//*************************************************************************
//函 数 名：ConnectOPC
//所属类名：COPCClien
//输 入：CString SvrName
//输 出：
//功能描述：连接OPC服务器
//全局变量：
//调用模块：
//作 者：叶帆
//日 期：2005年12月1日
//修 改 人：
//日 期：
//版 本：
//*************************************************************************
long COPCClient::ConnectOPC(CString cSvrName)
{
HRESULT hr;
CLSID clsid;
WCHAR wszProgID [512];
//----------------------------------
//初始化COM
hr =CoInitialize(NULL);
if (FAILED(hr)) return 8; //com初始化失败
//-----------------------------------
if(strSvrName!="") //判断是否已经连接OPC
{
if (strSvrName==cSvrName) return 2; //OPC服务器已经连接
else return 4; //只能连接一个OPC服务器
}
//-----------------------------------
try
{
//----------------------------------
//把字符串形式的对象标识转化为CLSID结构形式
_mbstowcsz (wszProgID, cSvrName, sizeof (wszProgID) / sizeof (WCHAR));
hr= CLSIDFromProgID(wszProgID, // [in]
&clsid); // [out]
if(FAILED(hr))
{
CoTaskMemFree(&clsid); //COM 内存释放函数
CoUninitialize(); //终止COM库功能服务
return 16; //获取clsid失败
}
//--------------------------------
//创建Server实例
hr=CoCreateInstance(clsid, //[in]
NULL, //[in]
CLSCTX_SERVER, //[in]
IID_IUnknown, //[in]
(void**)&pUNK); //[out]
if(FAILED(hr))
{
CoTaskMemFree(&clsid);
if(pUNK) pUNK->Release();
pUNK=NULL;
CoUninitialize();
return 32; //创建Server实例失败
}
//------------------------------------
//查询pOPC接口
hr=pUNK->QueryInterface(IID_IOPCServer,// [in]
(void**)&pOPC);// [out]
if(FAILED(hr))
{
CoTaskMemFree(&clsid);
if(pOPC) pOPC->Release();
if(pUNK) pUNK->Release();
pOPC=NULL;
pUNK=NULL;
return 64; //查询pOPC接口失败
}
CoTaskMemFree(&clsid);
//---------------------------
strSvrName=cSvrName; //赋值当前OPC服务名称
}
catch(...)
{
return 128; //连接服务器时出现严重错误
}
return 0; //成功
}
//*************************************************************************
//函 数 名：DisconnectOPC
//所属类名：COPCClient
//输 入：
//输 出：long
//功能描述：断开OPC服务器
//全局变量：
//调用模块：
//作 者：叶帆
//日 期：2005年12月1日
//修 改 人：
//日 期：
//版 本：
//*************************************************************************
long COPCClient::DisconnectOPC()
{
if(strSvrName=="") return 1; //OPC服务器尚未连接
HRESULT *pErrors = NULL;
DWORD dwCount=mIOMDevice->mItem.GetSize(),i;
strSvrName=""; //服务器名称清空
//---------------
OPCHANDLE *phServer = NULL;
//停止异步操作
pIAsync2->SetEnable(false);
//移除标签
phServer = (OPCHANDLE *) CoTaskMemAlloc (dwCount * sizeof (OPCHANDLE));
for(i=0;i<dwCount;i++) phServer[i] = (OPCHANDLE)arrhServer.GetAt(i);
pIItemMgt->RemoveItems(dwCount, // [in]
phServer, // [in]
&pErrors); // [out]
arrhServer.RemoveAll();
arrhServer.FreeExtra();
arrItemType.RemoveAll();
arrItemType.FreeExtra();
//删除组
pOPC->RemoveGroup(hServer, //[in]
true); //[in]
//---------------
CoTaskMemFree(&hServer);
CoTaskMemFree(&hGroup);
if(pErrors) CoTaskMemFree(pErrors);
if(pResults) CoTaskMemFree(pResults);
if(pIAsync2) pIAsync2->Release();
if(pISync) pISync->Release();
if(pIItemMgt) pIItemMgt->Release();
if(pOPC) pOPC->Release();
if(pUNK) pUNK->Release();
pOPC=NULL;
pUNK=NULL;
pIItemMgt=NULL;
pIAsync2=NULL;
pISync=NULL;
hGroup=0;
hServer=0;
CoUninitialize(); //关闭COM
return 0;
}
... ...
这是VC 部分的代码（也许放在这里不适合，不过没有办法，总感觉VB是母语）
【详细部分】http://blog.csdn.net/yefanqiu/archive/2005/12/02/542447.aspx
//*************************************************************************
//函 数 名：ConnectOPC
//所属类名：COPCClien
//输 入：CString SvrName
//输 出：
//功能描述：连接OPC服务器
//全局变量：
//调用模块：
//作 者：叶帆
//日 期：2005年12月1日
//修 改 人：
//日 期：
//版 本：
//*************************************************************************
long COPCClient::ConnectOPC(CString cSvrName)
{
HRESULT hr;
CLSID clsid;
WCHAR wszProgID [512];
//----------------------------------
//初始化COM
hr =CoInitialize(NULL);
if (FAILED(hr)) return 8; //com初始化失败
//-----------------------------------
if(strSvrName!="") //判断是否已经连接OPC
{
if (strSvrName==cSvrName) return 2; //OPC服务器已经连接
else return 4; //只能连接一个OPC服务器
}
//-----------------------------------
try
{
//----------------------------------
//把字符串形式的对象标识转化为CLSID结构形式
_mbstowcsz (wszProgID, cSvrName, sizeof (wszProgID) / sizeof (WCHAR));
hr= CLSIDFromProgID(wszProgID, // [in]
&clsid); // [out]
if(FAILED(hr))
{
CoTaskMemFree(&clsid); //COM 内存释放函数
CoUninitialize(); //终止COM库功能服务
return 16; //获取clsid失败
}
//--------------------------------
//创建Server实例
hr=CoCreateInstance(clsid, //[in]
NULL, //[in]
CLSCTX_SERVER, //[in]
IID_IUnknown, //[in]
(void**)&pUNK); //[out]
if(FAILED(hr))
{
CoTaskMemFree(&clsid);
if(pUNK) pUNK->Release();
pUNK=NULL;
CoUninitialize();
return 32; //创建Server实例失败
}
//------------------------------------
//查询pOPC接口
hr=pUNK->QueryInterface(IID_IOPCServer,// [in]
(void**)&pOPC);// [out]
if(FAILED(hr))
{
CoTaskMemFree(&clsid);
if(pOPC) pOPC->Release();
if(pUNK) pUNK->Release();
pOPC=NULL;
pUNK=NULL;
return 64; //查询pOPC接口失败
}
CoTaskMemFree(&clsid);
//---------------------------
strSvrName=cSvrName; //赋值当前OPC服务名称
}
catch(...)
{
return 128; //连接服务器时出现严重错误
}
return 0; //成功
}
//*************************************************************************
//函 数 名：DisconnectOPC
//所属类名：COPCClient
//输 入：
//输 出：long
//功能描述：断开OPC服务器
//全局变量：
//调用模块：
//作 者：叶帆
//日 期：2005年12月1日
//修 改 人：
//日 期：
//版 本：
//*************************************************************************
long COPCClient::DisconnectOPC()
{
if(strSvrName=="") return 1; //OPC服务器尚未连接
HRESULT *pErrors = NULL;
DWORD dwCount=mIOMDevice->mItem.GetSize(),i;
strSvrName=""; //服务器名称清空
//---------------
OPCHANDLE *phServer = NULL;
//停止异步操作
pIAsync2->SetEnable(false);
//移除标签
phServer = (OPCHANDLE *) CoTaskMemAlloc (dwCount * sizeof (OPCHANDLE));
for(i=0;i<dwCount;i++) phServer[i] = (OPCHANDLE)arrhServer.GetAt(i);
pIItemMgt->RemoveItems(dwCount, // [in]
phServer, // [in]
&pErrors); // [out]
arrhServer.RemoveAll();
arrhServer.FreeExtra();
arrItemType.RemoveAll();
arrItemType.FreeExtra();
//删除组
pOPC->RemoveGroup(hServer, //[in]
true); //[in]
//---------------
CoTaskMemFree(&hServer);
CoTaskMemFree(&hGroup);
if(pErrors) CoTaskMemFree(pErrors);
if(pResults) CoTaskMemFree(pResults);
if(pIAsync2) pIAsync2->Release();
if(pISync) pISync->Release();
if(pIItemMgt) pIItemMgt->Release();
if(pOPC) pOPC->Release();
if(pUNK) pUNK->Release();
pOPC=NULL;
pUNK=NULL;
pIItemMgt=NULL;
pIAsync2=NULL;
pISync=NULL;
hGroup=0;
hServer=0;
CoUninitialize(); //关闭COM
return 0;
}
... ...
加载更多回复
Thinkpad常见问题大全（转载联想工程师博客） 想要收藏本篇文章请下载Word版 Q：我想升级成VISTA，想问一下，升级之后一键恢复是恢复到XP还是VISTA?A：如果从隐含分区恢复出厂设置，那当然是恢复到出厂时预装的系统；如果是用R&
全网最全！彻底弄透Java处理GMT/UTC日期时间 发生这个情况是在JDK非常小的版本号之间，不太好定位精确版本号界限，所以仅供参考 总的来说，只要你使用的是较新版本的JDK，开发者是无需关心夏令时问题的，即使全球仍有很多国家在使用夏令时，咱们只需要面向时区...
《那些年啊，那些事——一个程序员的奋斗史》二 “你这算法效率太低了，怎么能直接用除法呢？你要用查表的方式！”段伏枥写完计算器没多久，同事老柳突然跑过来说要帮忙看看代码。 “查表？”段伏枥隐约记得，用查表的方式来计算除法，在没有除法器的...
《哪吒之魔童降世》、《西游记之大圣归来》影评数据反响如何？——Python数据爬取与词云可视化分析 最近每天都会被《哪吒之魔童降世》的票房、评论刷屏，这不今天刚刚新闻报道说是票房已经突破7亿了.....，对于当前国产动漫来说，惊不惊喜意不意外呢？可惜我还没有时间前去看看这部暑期大片呢，这周五有时间的话一定...
关于TCP传输速率的测量方法 这就涉及到了打点采样的问题了，本质上是两个问题，第一，在哪里开始打点采样，在哪里结束打点采样，第二，如何采样。 应用层下载测速 1.瞬时速度的移动指数平均 打开浏览器，下载一个文件，各种下载工具或者...
《Java特种兵 上册》勘误、问答、反馈、心得 大家好，Java特种兵上册已经正式在9月初上市发售。这本书可能很多人拿到会有不同的感受，大多数在意料之中。不论如何，如果您有什么问题，可以在该博客反馈我，我会在回复、正文中将其反馈。以下是近期一些同学向我...
一个八年经验的程序员和一个好老板的合作经历 正文：（一）项目确立 ...第二天就接到那家公司总经理的电话，这让我多少有点意外，电话中，双方客套两句后，约定好周末面谈。 和以往面试一样，我带上个笔记本（上面有以往开发的项目演示版）按照
mac 安装问题汇总 1、问题：应用程序添加到登陆项后需要输入密码，怎么才能不让它提示输入密码，... 回答：终端内输入 sudo -s ... chown root /Applications/GenericCPUPMControl.app/Contents/MacOS/GenericCPUPMControl chmod +s
大家都懂的 JSON 解析器原理（一）简介 & 低配版入门 没学过编译原理，做一个 JSON 解析器难吗？——难！是不是就不能“迎难而上”呢？——不是！越是难的越是一个挑战！...前面的铺垫可能比较长，但请尽量不要跳过，因为那都是基础，尤其对于我们非科班来说，应要恶补。
一个老程序员写给C语言初学者的话 前些天我写了一篇“Unix C语言值得注意的地方”一贴，回贴中谈到学习国外的开源软件中的高质量代码的问题，但是有朋友跟我说，在看代码的过程中感觉难度很大，想想也是如此，动辄十几万行的程序如果没有人指点的话是...
淘宝客推广赚钱全攻略 作者：韩亚飞_yue31313_韩梦飞沙 QQ:313134555 淘宝客推广赚钱全攻略 ...这本书就这样开始了，做站长几年的时间，我发现我根本不是一...虽然你不是站长，但真正赚到钱的并不需要是个好站长，只要你学会了网络
怎么学习阅读大型项目的代码 众所周知，要想写出好的程序，除了要经常写之外，还有看看别人是怎么写的，所以读别人的程序是非常重要的；如今是个信息交换十分发达的时代，你可以轻易的就看到顶尖级选手的代码；开源事业蒸蒸日上，确实是所有...
电脑硬件故障维护小全 问题往往就出现在这里，因为Windows98有一个Bug：有时只能正确识别插在PCI-1和PCI-2两个槽的声卡。而在ATX主板上紧靠AGP的两条PCI才是PCI-1和PCI-2（在一些ATX主板上恰恰相反，紧靠ISA的是PCI-1），所以如果您没有把...
批处理 bat cmd 命令大全 pause 暂停批处理程序，并显示出：请按任意键继续.... if 在批处理程序中执行条件处理（更多说明见if命令及变量） goto 标签 将cmd.exe导向到批处理程序中带标签的行（标签必须单独一行，且以冒号打头，例如：...
有关 --- 批处理 运行一个批文件，只需敲入文件名，并不需要敲入 .bat 后缀名． 一．什么是批处理文件 批处理文件（ BATCHFILE ，简称 BAT 文件）是一种在 DOS 下最常用的可执行文件。它具有灵活的操纵性，可适应各种复杂的计算机...
一篇文章！彻底弄透Java处理GMT/UTC日期时间 推荐阅读： 这套Github上40K+star学习笔记，可以帮你搞定95%以上的Java面试 毫不夸张的说，这份SpringBoot学习指南能...如何解决跨时区转换等等头大问题。A哥向来管生管养，管杀管埋，因此本文就带你领略一下，Ja...
一篇文章！彻底弄透Java处理GMT-UTC日期时间 推荐阅读： 这套Github上40K+star...如何解决跨时区转换等等头大问题。A哥向来管生管养，管杀管埋，因此本文就带你领略一下，Java是如何实现GMT和UTC的？ 众所周知，JDK以版本8为界，有两套处理日期/时间的API： 虽
