DLL一定是要C語言導出的符號，也就是extern “C”。 當然，我們都知道DLL調用分為動態調用和靜態調用。
動態調用的一般思想為，先LoadLibrary那個你想加載的DLL，然后通過GetProcAddress這個API獲取導出函數的地址，賦值給函數指針就可以調用了，這種方式靈活性更高。所有語言都適用。
靜態調用就是一般生成DLL會有個導入庫（import library）。這個編譯器要調用該DLL，用鏈接靜態庫的方式鏈接這個導入庫就可以了。
其實Delphi也是用了動態調用的方式，那種方式像之前C#調用DLL寫的注解一樣，隱含的實現了LoadLibrary GetProcAddress的功能，接口文件如下:
1 unit YDJYInterface; 2 3 interface 4 5 // 接口初始化 6 function YDJYDLLINIT(HospitalNoIn : PChar; errmsgOut : PChar): Integer; stdcall; 7 //操作員簽到 8 function SIGNIN(OperatorNoIn : PChar; SenderSerialNoIn : PChar; ReceiverSerialNoOut : PChar; 9 OutputData : PChar) : Integer; stdcall; 10 //操作員簽退(隱含操作員對賬) 11 function SIGNOUT(OperatorNoIn : PChar; BusiCycleNoIn : PChar; 12 CheckAccInfoIn : PChar; SenderSerialNoIn : PChar; 13 ReceiverSerialNoOut : PChar; OutputData :PChar) : Integer; stdcall; 14 ////小查詢類(只查省中心) 15 function CenterQuery(TransCodeIn : PChar; InputData : PChar; 16 OutputData : PChar) : Integer; stdcall; 17 18 //路由轉發類+交易運算類交易入口(查詢參保地) 19 function RouteRepeater(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 function YDJYBusiness_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 function BatchDownload(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