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