64位中vlax-create-object调用VB6.0编写的ActiveX DLL返回nil解决方案

NetBee

由于一直使用vb6的ActiveX DLL+vlisp编程方案。最近因使用win7的64位操作系统，对于cad 2009版本以上必须安装64位版。
但vlisp调用dll时出错。
就是vlax-create-object返回nil的问题。

查询了大量资料。
找到了解决方案，已经获取了对象。但还有细节需要调整，因没有时间，但应该问题不大了。
原文：
http://www.cnblogs.com/mazhenyu/archive/2007/06/28/798710.html

64位进程调用32位dll的解决方法

最近做在Windows XP X64,VS2005环境下做32位程序编译为64位程序的工作，遇到了一些64位编程中可能遇到的问题：如内联汇编（解决方法改为C/C++代码），long类型的变化，最关键的遇到了64位进程需要调用32位dll的问题。由于有一些32位dll没有源代码，无法重新编译为64位dll，所以只能想办法解决64位进程调用32位dll问题,这个问题让我很是挠头了几天。

相关资料：
微软公司的官方网站针对这个问题描述如下：
在64位的windows系统中，一个64位进程不能加载一个32位dll，同理一个32位进程也不能加载一个64位dll。但是，64位windows支持64位和32位进程（包括本机或跨机）间进程间通信（RPC）。在64位windows中，一个进程外32位COM服务器能够与64位客户端进行通信，同样一个进程外64位COM服务器也能与32位客户端进行通信。因此，如果你有一个32位COM无法识别的DLL，你可以将它封装到一个进程外COM服务器中并在一个64位进程中用COM配置调用DLL。（最后一句我也看不太懂！！哈哈哈）

验证：
工作流程：
1.创建一个进程外COM服务器(EXE)。
2.将32位dll的接口函数封装为COM服务器的相关接口。
3.注册COM服务器*.exe /regserver  (注销 *.exe /unregserver)。
4.64位进程调用32位COM服务器接口，成功。从而曲线实现了64位进程调用32位dll。

具体步骤：
我首先创建了一个简单的dll工程，只输出一个函数int c = add(int a,int b); 生成lib和dll
然后创建一个进程外COM(EXE类型)，内部链接dll，添加方法Method: Add(long *c)
{ *c = add(1,2);}编译生成。
然后注册COM，*.exe /regserver
最创建一个64位WIN32工程验证64位环境下方法调用是否正确，经验证正确！！！

结论：以上方法可以解决64位进程调用32位dll的问题

32位进程调用64位dll应该也可以通过这种方法解决，原因64位windows系统下安装了32位和64位两套COM系统

highflybir

嗯，有意思。多谢楼主分享方法.

cheng5276

强人！崇拜ING

jicqj

能否提供一个实例 参考。

hhc

关注.......

hhc

顶..........

liu_kunlun

在VB6中，改为建activex exe即可，编程和使用上等方面与建立 activex dll 完全一样。

hhc

谢谢高人指点，我试试

hhc

试了一下，是可以的，再次感谢！
查到注册ActiveX exe的方法是：对于exe组件的注册,不能用regsvr32，exe组件是进程外组件,你可以这样注册(假如你组件是F:/Com/myserver.exe)，在命令行方式下执行F:/Com/myserver.exe /RegServer 即可，用lisp语句是 (STARTAPP "F:/Com/myserver.exe /RegServer")。
改成exe后，如果exe中用到对话框，对话框有时会显示在CAD窗口的后面，这时要点击“显示桌面”，然后点击任务栏上CAD窗口的图标，才会显示CAD后面的对话框。另外，exe中的对话框拖动时会有影像残留，没有dll中的对话框更新速度快。