GetObject和VB6 ActiveX exe

Mar*_*rkJ 8 vb6 com activex

GetObject上的VB6 帮助说"你不能使用GetObject来获取对用Visual Basic创建的类的引用"(最后一句话!).我的VB6 GUI将对象公开为ActiveX exe,供其他组件操作.我希望其他组件连接到已经运行的GUI,而不是启动exe的新实例.我发现使用GetObject确实有效,如果你使用这个语法:

Set myobj = GetObject("", "ProjectName.ClassName")
Run Code Online (Sandbox Code Playgroud)

它让我担心,帮助说这不应该工作,虽然我做了很多测试,到目前为止没有发现任何问题.任何COM专家谁能告诉我是否会遇到问题?无论如何我会使用CreateObject吗?

ActiveX exe设置是:只有一个线程的线程池.该课程具有MultiUse实例化.这些设置可能足以阻止CreateObject启动exe的新实例.那是对的吗?

Mik*_*oss 10

文档令人困惑,但是正确无误.您引用的MSDN页面有助于解释您的GetObject调用不会引发错误的原因:

如果pathname [ 第一个参数 ]是零长度字符串(""),则GetObject返回指定类型的新对象实例.如果省略pathname参数,则 GetObject返回指定类型的当前活动对象.如果不存在指定类型的对象,则会发生错误.

它很微妙,但其含义是

GetObject "", "ProjectName.ClassName
Run Code Online (Sandbox Code Playgroud)

实际上相当于

CreateObject "ProjectName.ClassName"
Run Code Online (Sandbox Code Playgroud)

也就是说,将空字符串传递给第一个参数GetObject使其操作完全相同CreateObject,这意味着它将创建该类的新实例,而不是返回对已经运行的实例的引用.

回到MSDN摘录,它提到完全省略第一个参数GetObject将导致GetObject返回对已经运行的实例的引用(如果存在).这样的电话看起来像这样:

GetObject , "ProjectName.ClassName" 'Note nothing at all is passed for the first argument'
Run Code Online (Sandbox Code Playgroud)

但是,如果您尝试这样做,您将立即收到运行时错误.这是文档引用的用例,当它表示GetObject不适用于使用VB6创建的类时.

这不起作用的原因是由于GetObject它的魔力如何发挥作用.当省略第一个参数时,它会尝试通过查询运行对象表(ROT)来返回现有对象实例,ROT是一个包含正在运行的COM对象的机器范围查找表.问题是对象必须由创建它们的进程在运行对象表中显式注册才能被其他进程访问 - VB6运行时不在ROT中注册ActiveX EXE类,因此GetObject无法检索对已经运行的实例的引用.