Delphi COM编程的一个BUG_Delphi

  • 内容
  • 评论
  • 相关

由于工作需要,得在一个Delphi写的普通DLL中来调用一个VC写的进程内COM组件来实现功能。DLL很顺利就编写成功,但是在使用一个EXE程序来调试这个DLL时,DLL即总是报异常错误。,由于DLL所调用的这个使用VC写的这个COM组件在EXE中调用调试完全通过,所以其出错的可能性极小。我又非常的仔细检查了个用DELPHI写的DLL,也没有发现错误,却发现这个异常使用try和except还是可以拦住的,也就是说肯定是DELPHI本向所产生的异常。这就奇怪了,难道是DELPHI本身的问题造成的这种情况,我不敢肯定,所以只得从VCL源码一级来对这个程序进行除错。
在DLL中是COM对象是通过调用DELPHI的RTL函数CreateComObject来建立的,于是我先从这个函数入手开始调试。这个RTL函数很简单,只有一行代码:
OleCheck(CoCreateInstance(ClassID, nil, CLSCTX_INPROC_SERVER or  
CLSCTX_LOCAL_SERVER, IUnknown, Result));
即使用Windows API函数CoCreateInstance函数来建立并返回COM组件的实例。这个API函数外面套了一层OleCheck函数,Delphi RTL函数OleCheck的作用是如果CoCreateInstance没有返回S_OK即COM组件建立成功,那么OleCheck将产生一个异常。我程序当中的异常会不会是这OleCheck函数调用所报出来的呢,于是我试着将OleCheck去掉,让把CoCreateInstance函数把其返回值显示出来。我试着运行修改过后的程序,呵呵CoCreateInstnace函数所返回的值果然不对,是2147746288十六进制数是800401F0。在MSDN中查得此值表示的含意是CoInitialize函数没有被调用。CoInitialize是COM组件的初始化函数,是DELPHI封装COM时绝对应该负责调用的东西,难道这次的错误真是由于没有调用CoInitialize函数所造成的,我半信半疑。试着将CoInitialize函数的调用加到了DLL单元的initialization部分,将CoUninitialize函数加到了DLL单元的finalization部分。再次使用外部EXE来调试这个DLL,果然不出错了。
错误是找到了,但是错误是怎样造成的呢。经过进一步的查找。发现错误出在Delphi的ComObj单元initialization部分。此处有以下一段代码:
if not IsLibrary then
begin
SaveInitProc := InitProc;
InitProc := @InitComObj;

http://www.gaodaima.com/65556.htmlDelphi COM编程的一个BUG_Delphi

end;
这段代码判断当前程序是否是一个DLL(通过IsLibrary变量来判断)如果不是的话,则将初始化的过程设为InitComObj函数。而DELPHI执行调用CoInitialize函数的操作正是在这个InitComObj函数中调用的,难快会出错。最终究其原因可能是宝兰的开发人员只注意到了ActiveX Library这类进程内COM框架的组件出始化的情况,而忘记了还可能有在普通DLL中调用COM组件来实现功能的情况造成了上述的错误。至此问题全部解决,不过笔者还想多说两句,就笔者认为对COM的支持是DELPHI做得比较差的地方之一,像这类错误在VC当中就根本不会出现的,真的是很希望宝兰的开发人员能在DELPHI6中把DELPHI对COM的支持做得更好,使DELPHI变得更加的完美。 

欢迎大家阅读《Delphi COM编程的一个BUG_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: Delphi COM编程的一个BUG_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注