1. Fortran中的函数定义形式
subroutine add1[dllexport](p1,p2,p3)
p3=p1+p2
end subroutine add1
2. DLL中函数名的检查
用Tdump.exe检查*.dll文件，得到DLL文件中的函数名，例如：
_ADD1@12
3. 在Borland C++ Builder中调用DLL
两种方式：静态引入，动态引入，或者称为隐式连接(implicit linked),显示连接(explicit linked)。
使用显示连接的方法是使用Windows的API(如LoadLibrary函数)来载入DLL，用FreeLibrary函数来释放DLL，用GetProcAddress来取得函数的地址，再呼叫该函数，使用之后释放。使用显示连接的优点在于，你可以完全控制该DLL的载入和释放，最有效地利用系统资源。在调用失败时，程序可以继续运行，进行处理。
隐式连接的方法是通过project/add to project将 Dll.LIB加入到工程文件中，这种方法需要代码少，但是占用系统资源多。
4. 显示连接的方法
首先，在C++ Builder中，如Lib.h文件中声明函数：
void _stdcall(*Add1)(float*,float*,float*);
然后，在程序中调用DLL文件，例如Lib.DLL。
HINSTANCE hInst;
hInst=LoadLibrary("TestFor1.Dll");
if(NULL==hInst) Output("Load Dll Error!");
else
{
Output("Load Dll Ok!");
(FARPROC&)Add1=GetProcAddress(hInst,"_ADD1@12");
if(Add1==NULL)
{
Output("Open Dll Function Failed!");
}
else
{
Output("Open Dll Function Ok!");
}
}
5. 调用函数的方法
例程如下：
float p1,p2,p3;
p1=1.0;
p2=2.0;
p3=0.0;
AnsiString s;
Add1(&p1,&p2,&p3);
s=FormatFloat("0.0",p3);
Output("计算结果："+s);