项目开发到了最后阶段,内核基本成型,Demo开发最终提上日程。
为了尽快完成Demo开发,毕竟Demo只是为了演示,所以决定使用Delphi来完成,因为做界面Delphi的效率是相当高的。而我们的内核引擎是使用C++开发,VC编译,这就涉及到了Delphi和VC的混合编程,这里将这几天来的经验总结共享出来,需要的时候可以随时查看。
目前的程序结构是这样的,内核使用dll封装为SDK,交付兄弟部门或者其他公司做二次开发,Demo采用Delphi主调内核,并实现结果呈现。
首先,在接口一层,要保证Delphi能够和VC进行数据交互,所以需要对应相关的数据类型。同时这里不推荐在接口函数层使用复杂数据类型,因为如果参数和返回值过于复杂,是不能简单通过基本类型来进行传递的,这样编译器内部就会进行编码,以完成复杂数据类型的传递。但是不同的语言,甚至不同的编译器的内部实现不同,很容易导致复杂数据类型数据传递失败,而产生无效传递的情况,切记切记。
基本类型对照表如下:
VC --------------------- Delphi
int Integer
unsigned int Cardinal
char Byte
wchar_t WideChar
int* PInteger
unsigned int* PCardinal
char PByte
wchar_t PWideChar
等
在数据类型对应的情况下,才能保证类型能够正确传递
其次,接口函数调用规范的统一
由于函数调用过程中函数参数要通过堆栈进行传递,而参数在堆栈中所占空间的释放问题由谁进行,直接导致函数调用规范的提出,这就是我们知道的stdcal,cdcel,pascal,fastcal等调用规范,为了保证参数的正确传递和结果的正确获取,需要在两种语言中统一调用规范。
这里使用stdcal,没有什么特殊的理由来选择这个,目的只有一个,那就是统一,以保证参数传递正确
最后,Delphi中声明VC动态链接库的导出函数
格式举例:
原型:
const wchar_t* __stdcall testW(const wchar_t* waveFile, const wchar_t* waveFmt, const wchar_t* grammarList, const wchar_t* params, int *recogStatus, int *result);
function test(waveFile:PWideChar;
const wav_Fmt: PWideChar;
const grammarList:PWideChar;
const params:PWideChar;
recogStatus:PInteger;
func_result:PInteger): PWideChar;stdcall;
external “qisr.dll” name 'testW';
简单解释一些函数声明的含义:
function 用于定义函数
external 关键字用于定义导出该函数的动态链接库名
name 用于定义动态链接库中导出函数的导出名
如果有VC链接库开发经验的朋友可能会发现,为什么Delphi中没有类似VC中对应于dll的lib导入库呢?这里简单解释一下,其实VC中与dll配套的lib文件起到的作用也就是告诉连接器静态链接导出函数的时候,从哪里获取导出函数入口地址用的,实际没有实体代码,这里Delphi中的声明代码其实起到的也就是这个作用。由于lib没有实体代码,所以很容易通过dll获取对应的lib导入库。