VC 中调用Fortran动态链接库函数开发说明

说明：使用Fortran建立动态链接库，在C/C++语言环境中载入动态链接库，并调用动态链接库中函数。此方法使用动态载入动态链接库的方法。

开发环境：

Compaq Visual Fortran 6.5

Visual C++ 6.0

1． 程序中特殊要求：

1.1 Fortran :

在Fortran函数内部添加以下声明：

!DEC$ ATTRIBUTES DLLEXPORT::FunctionName

表示这个函数为DLL导出函数，其中FunctionName为函数名

特别提示：Fortran 函数调用传递的参数为传地址。所以在C/C++语言中调用的时候要传递参数的地址。

1.2 C/C++：

1.2.1 加载动态链接库：

HMODULE LoadLibrary(PCTSTR pszDLLPathName); HMODULE LoadLibraryEx( PCTSTR pszDLLPathName, //DLL路径以及名称 HANDLE hFile, DWORD dwFlags); //加载选项

这两个函数会在将一个DLL映射到进程的地址空间中。返回值类型为HMODULE（和HINSTANCE等价）为DLL被映射的虚拟内存地址。

使用这两个函数将DLL动态加载。

LoadLibraryEx函数中 参数hFile为系统为将来扩充所保留，现在必须设为NULL.

dwFlags 为动态链接库加载方式选项， 一般使用DONT_RESOLVE_DLL_REFFERENCE, 告诉系统只需将DLL映射到进程地址空间。

1.2.2 卸载动态链接库：

BOOL FreeLibrary(HMODULE hInstDll);

1.2.3 检索指定的动态链接库(DLL)中的输出库函数地址：

FARPROC GetProcAddress( 　　HMODULE hModule, // DLL模块句柄 　　LPCSTR lpProcName );// 函数名

返回值为函数的指针，记得要强制类型转换，否则编译过程中会发生错误。同时，Fortran语言中时忽略大小写的，所以检索的时候要求函数名全部为大写字母。

2. 实例

2.1 实例1：

说明：Fortran实现两个整数加法

Fortran部分：

新建项目，项目类型为Fortran Dynamic Link Library, 项目名称为testA，选择An empty DLL application， 添加一个test.f90文件，文件中编辑如下内容：

function GetAdd(a, b) result(r) implicit none !DEC$ ATTRIBUTES DLLEXPORT::GetAdd integer :: a integer :: b integer :: r r = a + b return end

编译生成DLL文件。

C/C++ 部分：

新建一个MFC AppWizard(exe)项目，项目名称为 testAMFC, 选择Dialog based选项。

编辑资源：

删除ok cancel 按钮，添加一个按钮，按钮标题ADD， ID为IDC_BUTTON_ADD。设为缺省按钮（就是敲回车等于按了这个按钮）。

添加三个可编辑文本框，ID分别为IDC_EDIT_A, IDC_EDIT_B, IDC_EDIT_RESULT

为三个文本框添加成员变量 变量类型为 int 变量名分别为 m_a, m_b, m_result。

为按钮ADD添加控制函数，函数名称为OnButtonAdd

编写此函数：

void CTestAMFCDlg::OnButtonAdd() { this->UpdateData(); HMODULE hDll = LoadLibraryEx(TEXT("testA.dll"), NULL, DONT_RESOLVE_DLL_REFERENCES); if (!hDll) { MessageBox("加载动态链接库失败", "ERROR", MB_OK); return; } int (__stdcall *proc)(int *, int *); //注意声明方式指向函数的指针，要求有__stdcall proc = (int (__stdcall *)(int *, int *))GetProcAddress(hDll, "GETADD"); if (!proc) { MessageBox("加载函数失败", "ERROR", MB_OK); FreeLibrary(hDll); return; } m_result = proc(&m_a, &m_b); this->UpdateData(false); FreeLibrary(hDll); }

将Fortran编译出来的DLL文件拷贝到当前项目目录，编译执行。

2.2 实例二：

说明：调用Fortran动态链接库实现可变长数组加法。

Fortran部分：

新建项目，项目类型为Fortran Dynamic Link Library, 项目名称为test，选择An empty DLL application， 添加一个test.f90文件，文件中编辑如下内容：

function GetAdd(a, b, n, r) result(rr) implicit none !DEC$ ATTRIBUTES DLLEXPORT::GetAdd integer :: a(*) !参数为一个可变大小的一维数组 integer :: b(*) !参数为一个可变大小的一维数组 integer :: r(*) !参数为一个可变大小的一维数组 integer :: n integer :: i integer :: rr do i=1, n ！使用循环计算加法 r(i) = a(i) + b(i) end do rr = n return end

C/C++ 部分：

新建一个MFC AppWizard(exe)项目，项目名称为 testAMFC, 选择Dialog based选项。

编辑资源：

删除ok cancel 按钮，添加一个按钮，按钮标题ADD， ID为IDC_BUTTON_ADD。设为缺省按钮（就是敲回车等于按了这个按钮）。

添加九个可编辑文本框，ID分别为IDC_EDIT_A1 ~ IDC_EDIT_A3， IDC_EDIT_B1 ~ IDC_EDIT_B3， IDC_EDIT_C1 ~ IDC_EDIT_C3。

分别为其添加成员变量

m_a1，m_a2，m_a3; m_b1，m_b2，m_b3; m_c1，m_c2，m_c3;

为按钮ADD添加控制函数 函数名称为OnButtonAdd

编辑此函数

void CTestmfcDlg::OnButtonAdd() { this->UpdateData(); int a[3]; int b[3]; int c[3]; int n = 3; /* m_a1 = 1; m_a2 = 2; m_a3 = 3; m_b1 = 3; m_b2 = 2; m_b3 = 1; */ // this->UpdateData(false); a[0] = m_a1; a[1] = m_a2; a[2] = m_a3; b[0] = m_b1; b[1] = m_b2; b[2] = m_b3; HMODULE hDll = LoadLibraryEx(TEXT("test.dll"), NULL, DONT_RESOLVE_DLL_REFERENCES); if (!hDll) { MessageBox("加载动态链接库失败", "ERROR", MB_OK); FreeLibrary(hDll); return; } //注意声明方式指向函数的指针，要求有__stdcall int (__stdcall *proc)(int *, int *, int *, int *); proc = (int (__stdcall *)(int *, int *, int *, int *))GetProcAddress(hDll, "GETADD"); if (!proc) { MessageBox("加载函数失败", "ERROR", MB_OK); FreeLibrary(hDll); return; } proc(a, b, &n, c); m_c1 = c[0]; m_c2 = c[1]; m_c3 = c[2]; this->UpdateData(false); FreeLibrary(hDll); }

将Fortran编译出来的DLL文件拷贝到当前项目目录，编译执行。

还有一个问题之前没有提到，就是Fortran的函数参数传递为传址的方式，所以调用fortran动态链接库里面的函数的时候传递的都是地址。

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

文章摘自：http://www.cnblogs.com/nervending/archive/2010/08/18/1802351.html