DLL一定是要C语言导出的符号,也就是extern “C”。 当然,我们都知道DLL调用分为动态调用和静态调用。
动态调用的一般思想为,先LoadLibrary那个你想加载的DLL,然后通过GetProcAddress这个API获取导出函数的地址,赋值给函数指针就可以调用了,这种方式灵活性更高。所有语言都适用。
静态调用就是一般生成DLL会有个导入库(import library)。这个编译器要调用该DLL,用链接静态库的方式链接这个导入库就可以了。
其实Delphi也是用了动态调用的方式,那种方式像之前C#调用DLL写的注解一样,隐含的实现了LoadLibrary GetProcAddress的功能,接口文件如下:
1 unitYDJYInterface;2
3 interface
4
5 //接口初始化
6 function YDJYDLLINIT(HospitalNoIn : PChar; errmsgOut : PChar): Integer; stdcall;7 //操作员签到
8 functionSIGNIN(OperatorNoIn : PChar; SenderSerialNoIn : PChar; ReceiverSerialNoOut : PChar;9 OutputData : PChar) : Integer; stdcall;10 //操作员签退(隐含操作员对账)
11 functionSIGNOUT(OperatorNoIn : PChar; BusiCycleNoIn : PChar;12 CheckAccInfoIn : PChar; SenderSerialNoIn : PChar;13 ReceiverSerialNoOut : PChar; OutputData :PChar) : Integer; stdcall;14 小查询类(只查省中心)
15 functionCenterQuery(TransCodeIn : PChar; InputData : PChar;16 OutputData : PChar) : Integer; stdcall;17
18 //路由转发类+交易运算类交易入口(查询参保地)
19 functionRouteRepeater(TransCodeIn : PChar; InsuredAreaNoIn : PChar;20 PersonNoIn : PChar; InputData : PChar; OutputData : PChar) : Integer; stdcall;21
22 //读卡查询
23 function SIReadCard(OutputData : PChar) : Integer; stdcall;24
25 //卡操作函数(修改密码等)
26 function ModifyPassword(errmsgOut : PChar) : Integer; stdcall;27
28 //通用业务处理
29 //rtncode = 0 交易成功
30 //-1 交易失败
31 //-2 交易失败,需要冲正
32 functionYDJYBusiness_Handle(TransCodeIn : PChar; SenderSerialNoIn : PChar; PersonNoIn : PChar;33 SICardNoIn : PChar; InsuredAreaNoIn : PChar; OldTransCodeIn : PChar;34 OldSenderSerialNoIn : PChar; OperatorNoIn : PChar; BusiCycleNoIn : PChar;35 InputData : PChar; ReceiverSerialNoOut : PChar; OutputData : PChar) : Integer; stdcall;36
37 //批量结算信息下载
38 functionBatchDownload(TransCodeIn : PChar; OperatorNoIn : PChar; BusiCycleNoIn : PChar;39 InputData : PChar; OutputData : PChar) : Integer; stdcall;40
41
42 //处方进队
43 procedure FormularyEnQ(prescriptionIn : PChar); stdcall;44 //批量处方上传
45 function BatchUpload() : Integer; stdcall;46 //转换函数
47 function Conversion(TtemTypeIn : PChar; OldItemIn : PChar) : PChar; stdcall;48 //输入个人编码查询个人基本信息
49 function SIReadPNOInfo(PersonNoIn : PChar; OutputData : PChar) : Integer; stdcall;50
51 implementation
52
53 function YDJYDLLINIT; stdcall; external 'YDJYInterface.dll' name 'YDJYDLLINIT';54 function SIGNIN; stdcall; external 'YDJYInterface.dll' name 'SIGNIN';55 function SIGNOUT; stdcall; external 'YDJYInterface.dll' name 'SIGNOUT';56 function CenterQuery; stdcall; external 'YDJYInterface.dll' name 'CenterQuery';57 function RouteRepeater; stdcall; external 'YDJYInterface.dll' name 'RouteRepeater';58 function SIReadCard; stdcall; external 'YDJYInterface.dll' name 'SIReadCard';59 function ModifyPassword; stdcall; external 'YDJYInterface.dll' name 'ModifyPassword';60 function YDJYBusiness_Handle; stdcall; external 'YDJYInterface.dll' name 'YDJYBusiness_Handle';61 function BatchDownload; stdcall; external 'YDJYInterface.dll' name 'BatchDownload';62 procedure FormularyEnQ; stdcall; external 'YDJYInterface.dll' name 'FormularyEnQ';63 function BatchUpload; stdcall; external 'YDJYInterface.dll' name 'BatchUpload';64 function Conversion; stdcall; external 'YDJYInterface.dll' name 'Conversion';65 function SIReadPNOInfo; stdcall; external 'YDJYInterface.dll' name 'SIReadPNOInfo';66
67 end.
注意,DLL实现的调用约定要与这个接口文件的保持一致,比如都是stdcall的方式。
references:
https://www.cnblogs.com/westsoft/p/5935741.html
https://blog.csdn.net/mycoolme5/article/details/51144693
https://stackoverflow.com/questions/10405991/calling-functions-from-a-c-dll-in-delphi