Delphi使用VB编写的ActiveX控件全攻略 （1）

前言

在最近几周的工作里，始终被一个头疼的问题所困扰，那就是VB6编写的ActiveX控件在Delphi环境下存在着诸多稀奇古怪的问题，几经周折，终于在搜索了几乎全部的论坛、资料后，找到了针对不同Delphi版本发生的问题的解决办法。

Delphi 5 莫名其妙的致命异常之一

首先，我们来看看VB写的ActiveX控件在Delphi 5下面的奇怪表现。

例如：我们用VB编写了一个控件UserTest（为简单起见，我们只导出一个类即用户控件），一个属性TestName,一个方法TestMethod。然后将其编译成一个ActiveX控件，注册并导入Delphi5的开发环境（以上步骤如有未清楚之处，请查阅各类参考资料，肯定有标准答案），到目前为止，看来一切正常。

然后，我们习惯的把控件拖放到窗体上，调整大小，在属性窗口中为属性赋值，或者在代码中也是一样，非常正常，好用的很。但是，下面问题来了，如果您兴致勃勃的去调用了那个TestMethod，那么您将得到一个古怪的异常 “Ole Error 800a01a9”，然后程序退出，而且非常不幸的是，您将无法跟踪到这个异常，在Delphi中或是VB中都是，当然如果您对汇编很在行的话，您可以跟着Delphi的调试窗口一步一步往下……

当我第一次碰到这个问题的时候，我几乎是愤怒的，因为无论是MicroSoft或是Borland，对该错误都没有任何解释，也没有任何可以查找的资料。我只好跑到常去的几个论坛，当然最主要的还是CSDN，在VB版和Delphi版中四处搜索类似的问题，然后非常遗憾的是，只有类似的问题，而没有答案，一个大客户就用的这个开发工具，我在测试了几乎所有Windows上的开发工具和开发环境（包括桌面和Web）后，惟独将Delphi忘记了。

剩下的两天里，我几乎是满世界乱跑，给所有的朋友打电话，询问Delphi方面的高手是否知道这个情况，最后，我从Google上搜到了一个链接，可惜的是现在我忘记了那个链接的具体位置，但是我得到了一个近乎Magic的方法（发现者是这么称呼它的）：

一个手工修改Delphi导入VB ActiveX控件后产生的代理类型库XXX_TLB.PAS（这里XXX指的是控件的类名）文件的方法可以解决这一问题。举例说明：

有一个VB 写的控件 UserControl1 ，在Delphi中导入后产生两个文件，其中一个UserControl1_TLB.PAS 就是我们所要修改的文件。

在文件中查找 类似

FintF: _UserControl1;

Function GetControlInterface:_UserControl1;

和

property ControlInterface: _UserControl1 read GetControlInterface;

GetControlInterface;

上一篇： 用Delphi编写VxD设备驱动程序 （1）
下一篇： 在Delphi中如何维护COM 的状态信息 （1）

1 2 3 下一页

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有