这个问题捣鼓了两天,现在终于解决了,做个笔记分享给大家,以免走弯路

起初,我的想法是在DLL中写一个interface并从函数中导出这个interface,像这样的代码

  1. ICom1 = interface
  2. function Show(V1, V2: Integer): Integer stdcall;
  3. end;

最后均以失败告终,后来想到各种编译器对编译后的二进制组织方式是不同的
比如上面的代码如果用Delphi编写的Exe去调用就是没问题的,而用其他语言则可能会有问题
网上有很多跨语言调用方案是用虚类来解决,也许有些时候是可以正常调用,但是这种做法并不规范,容易出问题

这里就需要通过一个标准,一个与语言无关的标准,也就是微软的COM组件了
所以得改下这个DLL

新建一个Automation Object

注意,这里一定要用Automation Object,而不要用COM Object,因为后者不支持自动化调用
而QAxObject只支持自动化对象,如果你尝试去调用一个不支持自动化的COM Object会得到一条消息

“QAxBase::dynamicCallHelper: Object does not support automation”

创建成功后接口是这样的

  1. ICOM2 = interface(IDispatch)
  2. ['{53952FF2-94A4-4B14-9C38-E4E56C87940A}']
  3. function Show(v1: Integer; v2: Integer): Integer; stdcall;
  4. end;

注意,我们在Exe中查询需要用到的GUID是类ID而不是这里的接口ID,在Delphi自动生成的 XXX_TLB.pas 文件中是有这个GUID的
我这里的是 {0EA6D9F4-0587-4AB9-91AD-9CD657B0787D}

最后实现

  1. function TCOM2.Show(v1, v2: Integer): Integer;
  2. begin
  3. OutputDebugString(PChar(Format('TCom2(%d, %d)', [v1, v2])));
  4. Result := 2;
  5. end;

现在到Qt中,首先写一个函数,功能是从一个COM DLL中动态创建接口实例
这样用的好处是COM DLL不用注册就能用,当然注册的话调用起来会更方便

  1. LPUNKNOWN CreateComObjectFromDll(const QString &dll, REFCLSID clsid)
  2. {
  3. QLibrary lib(dll);
  4. if (lib.load()) {
  5. typedef HRESULT (__stdcall *DllGetClassObject)(REFCLSID, REFIID, LPVOID*);
  6. DllGetClassObject getClassObject = (DllGetClassObject)lib.resolve("DllGetClassObject");
  7. if (getClassObject != nullptr) {
  8. IClassFactory *factory;
  9. if (getClassObject(clsid, IID_IClassFactory, (LPVOID*)&factory) == S_OK) {
  10. LPUNKNOWN ret = nullptr;
  11. factory->CreateInstance(nullptr, IID_IUnknown, (void**)&ret);
  12. return ret;
  13. }
  14. }
  15. }
  16. return nullptr;
  17. }

最后,调用部分

  1. LPUNKNOWN obj = CreateComObjectFromDll("com", cid);
  2. QAxObject o(obj);
  3. o.dynamicCall("Show(int, int)", 123, 456);

参数cid就是接口类GUID

可以看到输出窗口正常显示了结果。

总结:起初没有使用标准的COM接口,走了不少弯路。。。 -_-!

http://blog.csdn.net/aqtata/article/details/9163689

Qt调用Delphi编写的COM组件的更多相关文章

  1. 分享一次C#调用Delphi编写Dll程序

    1.前言: 最近接手了一个项目需要和Delphi语言编写的一个系统进行一些接口的对接,数据在传输过程中采用Des加密方式,因为Delphi 平台的加密方式和C#平台的加密方式不互通,所以采用的方式是C ...

  2. nodejs调用delphi编写的dll

    公司的业务需要,nodejs要读取文件版本号. 同事要求我用delphi编写dll,以供nodejs调用,结果通过json返回. delphi代码如下: function GetFileInfo(AP ...

  3. QT 调用VS2015编写的Dll

    最近在用QT调用VC生成的库,QT使用的是MinGW调试器,出现与动态库不兼容的问题,最后发现QT只能识别VC生成的C格式下的动态库 也就是在导入导出设置时加入extern "C" ...

  4. C# 调用delphi编写的dll

    技术实现 如何逐步实现动态库的加载,类型的匹配,动态链接库函数导出的定义,参考下面宏定义即可: #define LIBEXPORT_API extern "C" __declspe ...

  5. JS调用Delphi编写的OCX控件

    原文:http://www.mamicode.com/info-detail-471283.html 一.使用Delphi XE2编写OCX控件 生成OCX工程: 1.File-New-Other,在 ...

  6. JavaScript学习笔记之JavaScript调用C#编写的COM组件

    1.新建一个C#类库项目:MyCom: 2.修改 Properties 目录下的 AssemblyInfo.cs(程序集文件) 中的 ComVisible 属性为 true: 3.项目->属性- ...

  7. [JNA系列]Java调用Delphi编写的Dll之实例Delphi使用PWideChar

    Delphi代码 unit UnitDll; interface uses StrUtils, SysUtils, Dialogs; function DoBusinessWide(pvData: P ...

  8. [JNA系列]Java调用Delphi编写的Dll之实例Delphi使用PAnsiChar

    Delphi代码 unit UnitDll; interface uses StrUtils, SysUtils, Dialogs; function DoBusinessAnsi(pvData: P ...

  9. [JNA系列]Java调用Delphi编写的Dll之JNA使用

    介绍 给大家介绍一个最新的访问本机代码的 Java 框架 —JNA . JNA(Java Native Access) 框架是一个开源的 Java 框架,是 SUN 公司主导开发的,建立在经典的 JN ...

随机推荐

  1. Android常用动画Animation的使用

    Andriod中有几种常用的Animation AlphaAnimation  淡入淡出效果 RotateAnimation 旋转效果 ScaleAnimation 缩放动画 TranslaAnima ...

  2. Amazon的AWS账单看起来不是很方便

    发了一个PDF格式的收据,只写了收取的费用,EC2下面的明细没有. DetailAmazon Simple Notification Service $0.00Charges $0.00Estimat ...

  3. 解析stm32的时钟

    STM32 时钟系统  http://blog.chinaunix.net/uid-24219701-id-4081961.html STM32的时钟系统 ***   http://www.cnblo ...

  4. 我的Python成长之路---第一天---Python基础(3)---2015年12月26日(雾霾)

    四.变量和常量 变量是用来存储程序运行期间需要临时保存可以不断改变的数据的标识符.Python有自身的内存回收机制,所以在开发过程中不用考虑变量的销毁等 Python中的变量名命名有如下规则: 1.变 ...

  5. javascript笔记整理(正则)

    RegExp 对象表示正则表达式,它是对字符串执行模式匹配的强大工具 var re=/e/; var re=new RegExp('e'); 正则表达式的 String 对象的方法 1.search- ...

  6. C++静态库中使用_declspec(dllexport) 不能导出函数的问题

    在某项目中,有一些静态库,这些静态库中有类型命名的函数GET_XXX.在一次项目结构调整的时候,我想将调用这静态库的代码编译成DLL,并且将这些Get函数导出,我就直接就这些函数前面添加了_decls ...

  7. shapefile 编码错误问题解决 Wrong codepage of shapefile Warning 1: One or several characters couldn't be converted correctly from UTF-8 to ISO-8859-1.

    linux下运行,因为大部分shapefile 文件,在使用时都没有指定字符集,所以qgis只能从环境变量中获取设置环境变量中获取SHAPE_ENCODING. 目前唯一的解决办法就是设置环境变量 $ ...

  8. 在Web Api中快速实现JSonp

    本文翻译自:http://www.codeproject.com/Tips/631685/JSONP-in-ASP-NET-Web-API-Quick-Get-Started Concept: 同源策 ...

  9. BZOJ 1342: [Baltic2007]Sound静音问题( 单调队列 )

    一开始写了个RMQ然后就T了... 好吧正解是单调队列, 维护两个单调队列... ----------------------------------------------------------- ...

  10. ORACLE实例恢复过程详细分析--使用dump、BBED等多种工具结合分析

    ---友情提示,内容较多,可以从博文左上的+目录选择小节方便阅读.  实验思路:  --实验相关TRACE文件:http://download.csdn.net/detail/q947817003/6 ...