Delphi 7调用C语言编写的DLL

2022-11-01 16:37:18

DLL一定是要C语言导出的符号，也就是extern “C”。当然，我们都知道DLL调用分为动态调用和静态调用。

动态调用的一般思想为，先LoadLibrary那个你想加载的DLL，然后通过GetProcAddress这个API获取导出函数的地址，赋值给函数指针就可以调用了，这种方式灵活性更高。所有语言都适用。

静态调用就是一般生成DLL会有个导入库（import library）。这个编译器要调用该DLL，用链接静态库的方式链接这个导入库就可以了。

其实Delphi也是用了动态调用的方式，那种方式像之前C#调用DLL写的注解一样，隐含的实现了LoadLibrary GetProcAddress的功能，接口文件如下:

 unit YDJYInterface;

 interface

 // 接口初始化

 function YDJYDLLINIT(HospitalNoIn :  PChar; errmsgOut : PChar): Integer; stdcall;

 //操作员签到

 function SIGNIN(OperatorNoIn : PChar; SenderSerialNoIn : PChar; ReceiverSerialNoOut : PChar;

           OutputData : PChar) :  Integer; stdcall;

 //操作员签退(隐含操作员对账)

 function SIGNOUT(OperatorNoIn : PChar; BusiCycleNoIn : PChar;

                 CheckAccInfoIn : PChar; SenderSerialNoIn : PChar;

                 ReceiverSerialNoOut : PChar; OutputData :PChar) : Integer; stdcall;

 ////小查询类(只查省中心)

 function CenterQuery(TransCodeIn : PChar; InputData : PChar;

                       OutputData : PChar) : Integer; stdcall;

 //路由转发类+交易运算类交易入口(查询参保地)

 function RouteRepeater(TransCodeIn : PChar; InsuredAreaNoIn : PChar;

                       PersonNoIn : PChar; InputData : PChar; OutputData : PChar) : Integer; stdcall;

 //读卡查询

 function SIReadCard(OutputData : PChar) : Integer; stdcall;

 //卡操作函数(修改密码等)

 function ModifyPassword(errmsgOut : PChar) : Integer; stdcall;

 //通用业务处理

 //rtncode =  0 交易成功

 //          -1 交易失败

 //          -2 交易失败，需要冲正

 function YDJYBusiness_Handle(TransCodeIn : PChar; SenderSerialNoIn : PChar; PersonNoIn : PChar;

     SICardNoIn : PChar; InsuredAreaNoIn : PChar; OldTransCodeIn : PChar;

     OldSenderSerialNoIn : PChar; OperatorNoIn : PChar; BusiCycleNoIn : PChar;

     InputData : PChar; ReceiverSerialNoOut : PChar; OutputData : PChar) : Integer; stdcall;

 //批量结算信息下载

 function BatchDownload(TransCodeIn : PChar; OperatorNoIn : PChar; BusiCycleNoIn : PChar;

                                  InputData : PChar; OutputData : PChar) : Integer; stdcall;

 //处方进队

 procedure FormularyEnQ(prescriptionIn : PChar); stdcall;

 //批量处方上传

 function BatchUpload() : Integer; stdcall;

 //转换函数

 function Conversion(TtemTypeIn : PChar; OldItemIn : PChar) : PChar; stdcall;

 //输入个人编码查询个人基本信息

 function SIReadPNOInfo(PersonNoIn : PChar; OutputData : PChar) : Integer; stdcall;

 implementation

 function YDJYDLLINIT; stdcall; external 'YDJYInterface.dll' name 'YDJYDLLINIT';

 function SIGNIN; stdcall; external 'YDJYInterface.dll' name 'SIGNIN';

 function SIGNOUT; stdcall; external 'YDJYInterface.dll' name 'SIGNOUT';

 function CenterQuery; stdcall; external 'YDJYInterface.dll' name 'CenterQuery';

 function RouteRepeater; stdcall; external 'YDJYInterface.dll' name 'RouteRepeater';

 function SIReadCard; stdcall; external 'YDJYInterface.dll' name 'SIReadCard';

 function ModifyPassword; stdcall;  external 'YDJYInterface.dll' name 'ModifyPassword';

 function YDJYBusiness_Handle; stdcall; external 'YDJYInterface.dll' name 'YDJYBusiness_Handle';

 function BatchDownload; stdcall; external 'YDJYInterface.dll' name 'BatchDownload';

 procedure FormularyEnQ; stdcall; external 'YDJYInterface.dll' name 'FormularyEnQ';

 function BatchUpload; stdcall; external 'YDJYInterface.dll' name 'BatchUpload';

 function Conversion; stdcall;  external 'YDJYInterface.dll' name 'Conversion';

 function SIReadPNOInfo; stdcall;  external 'YDJYInterface.dll' name 'SIReadPNOInfo';

 end.

注意，DLL实现的调用约定要与这个接口文件的保持一致，比如都是stdcall的方式。

references:

https://www.cnblogs.com/westsoft/p/5935741.html

https://blog.csdn.net/mycoolme5/article/details/51144693

https://*.com/questions/10405991/calling-functions-from-a-c-dll-in-delphi

码农公寓

相关文章