Delphi调用C++导出的QT类
2016-03-17 01:42
836 查看
打开VS2008创建一个dll项目(创建了一个QT Library项目),新建头文件q4dapplication.h定义纯虚类:
#ifndef Q4DAPPLICATION
#define Q4DAPPLICATION
class Q4DApplication
{
public:
virtual int exec() = 0;
};
#endif
新建头文件q4dapplicationimpl.h实现纯虚类:
#ifndef Q4DAPPLICATIONIMPL
#define Q4DAPPLICATIONIMPL
#include <QApplication>
#include "q4dapplication.h"
class Q4DApplicationImpl : public Q4DApplication, private QApplication
{
public:
Q4DApplicationImpl(int argc, char **argv);
~Q4DApplicationImpl();
int exec();
};
#endif
在VS项目自动生成的导出类的头文件中加入:
extern "C" __declspec(dllexport) Q4DApplication* NewQ4DApplication(int argc, char **argv);
在对应的.cpp文件中加入:
__declspec(dllexport) Q4DApplication* NewQ4DApplication(int argc, char **argv)
{
return new Q4DApplicationImpl(argc, argv);
}
编译出DLL给Delphi调用.
Delphi端导入单元如下:
unit ImptQTClass;
interface
uses SysUtils;
type
TQ4DApplication = class
public
function exec: Integer; virtual; cdecl; abstract;
end;
const QTDLL = 'Q4DLibrary.dll';
function NewQ4DApplication(AArgc: Integer; AArgv: PPChar): TQ4DApplication; cdecl;
implementation
function NewQ4DApplication; external QTDLL;
end.
测试代码:
var
oQApp: TQ4DApplication;
p: PChar;
i: Integer;
begin
p := '';
oQApp := NewQ4DApplication(0, @p);
i := oQApp.exec();
Assert(i = 1234);
本想尝试导出QT的GUI库给Delphi调用呢,发现QApplication创建后调用其他QWidget的Show方法有问题,估计和Delphi的Application对象冲突吧,失败了,以后在查找原因.不过感觉给Delphi导出GUI库没啥必要,纯属为了测试.可以将一些非界面相关的库导出来用,以后有空在继续吧.
http://blog.csdn.net/henreash/article/details/7353063
#ifndef Q4DAPPLICATION
#define Q4DAPPLICATION
class Q4DApplication
{
public:
virtual int exec() = 0;
};
#endif
新建头文件q4dapplicationimpl.h实现纯虚类:
#ifndef Q4DAPPLICATIONIMPL
#define Q4DAPPLICATIONIMPL
#include <QApplication>
#include "q4dapplication.h"
class Q4DApplicationImpl : public Q4DApplication, private QApplication
{
public:
Q4DApplicationImpl(int argc, char **argv);
~Q4DApplicationImpl();
int exec();
};
#endif
在VS项目自动生成的导出类的头文件中加入:
extern "C" __declspec(dllexport) Q4DApplication* NewQ4DApplication(int argc, char **argv);
在对应的.cpp文件中加入:
__declspec(dllexport) Q4DApplication* NewQ4DApplication(int argc, char **argv)
{
return new Q4DApplicationImpl(argc, argv);
}
编译出DLL给Delphi调用.
Delphi端导入单元如下:
unit ImptQTClass;
interface
uses SysUtils;
type
TQ4DApplication = class
public
function exec: Integer; virtual; cdecl; abstract;
end;
const QTDLL = 'Q4DLibrary.dll';
function NewQ4DApplication(AArgc: Integer; AArgv: PPChar): TQ4DApplication; cdecl;
implementation
function NewQ4DApplication; external QTDLL;
end.
测试代码:
var
oQApp: TQ4DApplication;
p: PChar;
i: Integer;
begin
p := '';
oQApp := NewQ4DApplication(0, @p);
i := oQApp.exec();
Assert(i = 1234);
本想尝试导出QT的GUI库给Delphi调用呢,发现QApplication创建后调用其他QWidget的Show方法有问题,估计和Delphi的Application对象冲突吧,失败了,以后在查找原因.不过感觉给Delphi导出GUI库没啥必要,纯属为了测试.可以将一些非界面相关的库导出来用,以后有空在继续吧.
http://blog.csdn.net/henreash/article/details/7353063
相关文章推荐
- Delphi引用C对象文件
- Delphi的指针 good
- 使用Delphi声明C++带函数的结构体实战 good
- Delphi xe7并行编程快速入门(三篇)
- 在Delphi中使用C++对象(两种方法,但都要改造C++提供的DLL)
- Delphi的VMT的结构图,很清楚
- Delphi 编译/链接过程
- Delphi与C++的语法区别(六点区别) good
- Delphi 常用语句
- 用Delphi编写和调用DLL
- delphi资源文件制作及使用详解
- 使用Delphi调用条形码控件BarTender打印标签
- 如何使Android客户端通过socket与delphi的服务端通讯
- Delphi访问活动目录
- Delphi中获取某类的祖先类及其所在单元名称(使用GetTypeData(PClass.ClassInfo)函数,并且该类是从TPersistent类的派生类才可以这么使用)
- delphi7 开发布局
- Delphi数据类型
- delphi7下的token验证,微信服务器验证
- 其实xml解析很快的。很方便的,用superxmlparse
- Delphi与Vista提供的UAC控制(1-代表资源编号,24-资源类型为RTMAINIFEST,最后用brcc32编译成资源文件)