Delphi中开发的DLL如何被其它开发语言隐式调用？
Delphi中开发的DLL如何被其它开发语言隐式调用
我曾经用Delphi中开发了《IAPWS-IF97/IFC67水和蒸汽性质计算软件包》。为了方便其它开发人
员进行进一步的热能动力分析软件的开发，我编制了动态链接库(DLL)。其它开发人员也非专业程
序设计人员，对于动态链接库的显式动态调用使用不好(觉得虽然灵活但烦琐)，为了帮助他们用好
我开发的“水和蒸汽性质计算动态链接库”，我开始对各种现代流行的程序设计语言(VC++、
C++Builder、VC#、C# Builder、VB、VB.NET、Delphi、Delphi.NET等)隐式调用我的动态链接库的方
法进行钻研，取得了一些进展。
基于在如下几点，采用DLL 是合理的：
1） 不同的程序使用相同的DLL ，这样只需要将DLL 在内存中装载一次，节省了内存的开销。
2） 当某些内容需要升级的时候，如果使用DLL 只需要改变DLL 就可以了，而不需要把整个程
序都进行更新。
3） 由于DLL是独立于语言的，所以，当不同语言习惯的人共同开发一个大型项目的时候，使
用DLL便于程序系统的交流，当然，Delphi开发的DLL也可以在诸如VB，C++ 等语言中使用。
一、动态连接库构建
我在Delphi中建立的DLL项目源代码的片断为：
library WSPIF97;
uses
SysUtils,
Registry,
Classes,
Math;
{$R *.res}
Const
// Initialize coefficients for region 4
// 对区域4的基本公式的系数和指数进行初始化
NReg4: ARRAY [1..10] OF Double=
(
1167.0521452767, -724213.16703206, -17.073846940092, 12020.82470247, -3232555.0322333,
14.91510861353, -4823.2657361591, 405113.40542057, -0.23855557567849, 650.17534844798
);
// 已知温度(K)，求对应的饱和压力(bar)
// p^*:=1 Mpa:=10 bar T^*:=1 K
Function T2P(Const Temperature:Double):Double;
Var
DEL , aco , bco , cco : Double;
Begin
DEL := Temperature + NReg4[9] / (Temperature - NReg4[10]);
aco := DEL*DEL + NReg4[1] * DEL + NReg4[2];
bco := NReg4[3] * DEL*DEL + NReg4[4] * DEL + NReg4[5];
cco := NReg4[6] * DEL*DEL + NReg4[7] * DEL + NReg4[8];
Result := Power(2 * cco /(-bco + Power(bco*bco-4*aco*cco, 0.5)) , 4)* 10;
End;
Procedure T2P97(Const T:DOUBLE;Var P:DOUBLE; Var RANGE:Integer);EXPORT;STDCALL;
Begin
P:=T2P(T+T000C)/10; //将温度单位℃变成 K，再将压力单位Bar变成MPa
End;
EXPORTS T2P97;
end.
我采用的调用协议为STDCALL，从DLL中导出的函数为T2P97。编译后生成动态链接库
WSPIF97.DLL。
二、动态连接库的调用
2.1 Delphi
只需在要调用WSPIF97.DLL动态链接库的单元中加上如下函数申明即可。
//已知温度(℃)，求饱和压力(MPa)？
Procedure T2P97(Const T:Double;Var P:Double; Var Range:Integer);StdCall;External 'WSPIF97.DLL';
2.2 Delphi.NET
只需在要调用WSPIF97.DLL动态链接库的单元中加上如下函数申明即可。
//已知温度(℃)，求饱和压力(MPa)？
[DllImport('WSPIF97.dll',CallingConvention = CallingConvention.StdCall,CharSet = CharSet.Unicode, PreserveSig = False)]
procedure T2P97(Const T:Double;Var P:Double; Var Range:Integer);
external;
2.3 C++ Builder
1.利用Borland提供的ImpLib.exe生成对应的导入库(WSPIF97.Lib)，命令格式为：
ImpLib WSPIF97.Lib WSPIF97.Dll
2.编写对应的头文件WSPIF97.h
#define IMPORT_TYPE extern "C" __declspec(dllimport) __stdcall
//已知温度(℃)，求饱和压力(MPa)？
IMPORT_TYPE void T2P97(double T,double & P,int & Range);
3.直接把导入库文件(WSPIF97.Lib)和本头文件(WSPIF97.h)加进对应项目，
在需要调用的单元中#include本头文件(WSPIF97.h)即可！
2.4 C# Builder
1.编写类文件(WSPIF97.cs)
namespace WASP
{
public class WSPIF97
{
//已知温度(℃)，求饱和压力(MPa)
[DllImport("WSPIF97",EntryPoint="T2P97")]
public static extern void T2P97(double T,ref double P,ref int Range);
}
}
2.直接把类文件(WSPIF97.cs)加进对应项目，在需要调用函数的单元中引用本类文件的命名空
间(using WASP)即可！
2.5 VB
只需在要调用WSPIF97.DLL动态链接库的VB项目中加上如下函数申明即可。
Rem 已知温度(℃)，求饱和压力(MPa)
Private Declare Sub T2P97 Lib "WSPIF97.dll" (ByVal T As Double, ByRef P As Double,
ByRef Range As Integer)
2.6 VB.NET
1.编写类文件WSPIF97.vb。
Imports System.Runtime.InteropServices
Public Class WSPIF97
REM 已知温度(℃)，求饱和压力(MPa)？
Declare Auto Sub T2P97 Lib "WSPIF97.dll" (ByVal T As Double, ByRef P As Double,
ByRef Range As Integer)
End Class
2.直接把类文件WSPIF97.vb加进对应项目即可！
2.7 VC
由于Microsoft没有提供通过DLL文件生成导入库LIB文件的工具，我们只能通过在VC++中
编写一个同名称的空的DLL项目，令其产生对应的导入库LIB文件。
1.编写def文件WSPIF97.def。
LIBRARY WSPIF97.DLL
EXPORTS
T2P97
2.编写WSPIF97.cpp文件。
#include "stdafx.h"
BOOL APIENTRY DllMain( HANDLE hModule,
DWORD ul_reason_for_call,
LPVOID lpReserved
)
{
return TRUE;
}
//已知温度(℃)，求饱和压力(MPa)
extern "C" void __stdcall T2P97(double T,double & P,int & Range){ }
3. 通过WSPIF97.cpp和WSPIF97.def编译生成对应的导入库文件WSPIF97.lib。
4.编写对应的头文件WSPIF97.H。
#pragma comment(lib,"WSPIF97.lib")
#define IMPORT_TYPE extern "C" _declspec(dllimport)
//已知温度(℃)，求饱和压力(MPa)
IMPORT_TYPE void _stdcall T2P97(double T,double & P,int & Range);
5.直接把前面得到的导入库文件(WSPIF97.Lib)和头文件(WSPIF97.h)加进对应项目，
在需要调用的单元中#include头文件(WSPIF97.h)即可！
2.8 VC.NET
1.编写头文件WSPIF97.h。
//已知温度(℃)，求饱和压力(MPa)？
[DllImport("WSPIF97.dll")] extern void T2P97(double T,double & P,int & Range);
2.直接把头文件(WSPIF97.h)加进对应项目，在需要调用的单元中#include头文件
(WSPIF97.h)即可！
2.9 VC#
1.编写类文件(WSPIF97.cs)
using System;
using System.Runtime.InteropServices;
namespace WASP
{
public class WSPIF97
{
//已知温度(℃)，求饱和压力(MPa)？
[DllImport("WSPIF97",EntryPoint="T2P97")]
public static extern void T2P97(double T,ref double P,ref int Range);
}
}
2.直接把类文件(WSPIF97.cs)加进对应项目，在需要调用函数的单元中引用本类文件的命名空
间(using WASP)即可！