本文说明delphi调用C++DLL库的几个问题,并给出解决方法。
问题一:delphi找不到dll中的函数,出现“无法定位程序输入点”的问题,如下图所示。
分析:这是因为dll库开放的函数名和代码中的函数名不致导致的,比如myfunc的函数名生成dll后变为_myfunc@12之类的问题,查看dll接口名可用depends工具。
解决方法:①使用传统的模块定义文件 (.def);
②使用extern "C"注明接口函数;
③使用stdcall注明接口函数
详见: http://www.cnblogs.com/fishseewater/archive/2010/10/05/1844292.html
问题二:依赖DLL库找不到,比如vcruntime140.dll或vcruntime140.dll
原因:使用VS生成DLL库,如果未使用release生成dll,且采用MD的方式会依赖VS自身的DLL,导致第三方使用出问题。
解决方法:①将生成方式由Debug改为release;
②生成dll的项目设置由MD改为MT。
详见:https://msdn.microsoft.com/zh-cn/library/2kzt1wy3.aspx
问题三:delphi调用函数时参数传入有误,比如传如字符串在DLL中与delphi不同
分析:这和函数参数的入栈方式有关,跨语言最好采用stdcall
解决方法:①将dll接口函数设置为stdcall;
②DELPHI调用函数声明时也要注明stdcall,如下
myfunc: Function(cs:pchar):integer;Stdcall;
问题三:delphi的函数指针在dll中调用出错
分析:原因不明,笔者经历中,如以下代码,setCallback函数声明为
setCallback: Function(backfunc: PbackFunc):Pointer;
则DLL中无法正常调用回调,如果将setCallback函数声明改为
setCallback: PbackFunc;
则DLL中可以正常调用。
type PbackFunc = procedure(message1:pchar); Stdcall; procedure handle_message(const pardata:pAnsiChar);stdcall; begin showmessage(pardata); Sleep(1000); exit; end; //setCallback: Function(backfunc: PbackFunc):Pointer; setCallback: PbackFunc; setCallback(@handle_message);