新建一个Automation Object
注意,这里一定要用Automation Object,而不要用COM Object,因为后者不支持自动化调用,而QAxObject只支持自动化对象,如果你尝试去调用一个不支持自动化的COM Object会得到一条消息
“QAxBase::dynamicCallHelper: Object does not support automation”
创建成功后接口是这样的
ICOM2 = interface(IDispatch) ['{53952FF2-94A4-4B14-9C38-E4E56C87940A}'] function Show(v1: Integer; v2: Integer): Integer; stdcall; end;
注意,我们在Exe中查询需要用到的GUID是类ID而不是这里的接口ID,在Delphi自动生成的 XXX_TLB.pas 文件中是有这个GUID的。我这里的是 {0EA6D9F4-0587-4AB9-91AD-9CD657B0787D}
最后实现
function TCOM2.Show(v1, v2: Integer): Integer; begin OutputDebugString(PChar(Format('TCom2(%d, %d)', [v1, v2]))); Result := 2; end;
现在到Qt中,首先写一个函数,功能是从一个COM DLL中动态创建接口实例
这样用的好处是COM DLL不用注册就能用,当然注册的话调用起来会更方便
LPUNKNOWN CreateComObjectFromDll(const QString &dll, REFCLSID clsid) { QLibrary lib(dll); if (lib.load()) { typedef HRESULT (__stdcall *DllGetClassObject)(REFCLSID, REFIID, LPVOID*); DllGetClassObject getClassObject = (DllGetClassObject)lib.resolve("DllGetClassObject"); if (getClassObject != nullptr) { IClassFactory *factory; if (getClassObject(clsid, IID_IClassFactory, (LPVOID*)&factory) == S_OK) { LPUNKNOWN ret = nullptr; factory->CreateInstance(nullptr, IID_IUnknown, (void**)&ret); return ret; } } } return nullptr; }
最后,调用部分
LPUNKNOWN obj = CreateComObjectFromDll("com", cid); QAxObject o(obj); o.dynamicCall("Show(int, int)", 123, 456);
参数cid就是接口类GUID