Question

我想在C ++代码中加载一个fortran dll并在fortran dll中调用一个函数。

以下是代码

  SUBROUTINE SUB1()
  PRINT *, 'I am a function '
  END

创建foo.dll [fotran dll]之后，这是我编写的visual studio 2012中的以下C ++代码，用于加载fortran dll。并在fortran代码中调用函数SUB1

#include <iostream>
#include <fstream>
#include <Windows.h>

using namespace std;  
extern "C" void SUB1();
typedef void (WINAPI *PGNSI)(LPSYSTEM_INFO);

int main(void)
{
                LoadLibrary(L"foo.dll");

                PGNSI pGNSI = (PGNSI) GetProcAddress(GetModuleHandle(TEXT("foo.dll")),"SUB1");

                return 0;

}

运行时我收到以下错误：

程序无法启动，因为您的计算机缺少libgcc_s_dw2-1.dll。尝试重新安装该程序以解决此问题。

这是从C ++调用dll的正确方法吗？我对这个fortran dll很新。请帮我解决这个问题。

Answer 1

首先，你需要像这样导出函数......

!fortcall.f90
subroutine Dll1() BIND(C,NAME="Dll1")
implicit none
!DEC$ ATTRIBUTES DLLEXPORT :: Dll1
PRINT *, 'I am a function'
return
end !subroutine Dll1

使用以下命令

创建dll

gfortran.exe -c fortcall.f90
gfortran.exe -shared -static -o foo.dll fortcall.o

之后，将libgcc_s_dw2-1.dll，libgfortran-3.dll和libquadmath-0.dll放在VS的应用程序路径中。或者您可以将PATH添加到环境中。

之后，您可以从VS调用FORTRAN公开的函数，如下所示......

#include <iostream>
#include <Windows.h>

using namespace std;
extern "C" void Dll1();
typedef void(* LPFNDLLFUNC1)();

int main(void)
{
    HINSTANCE hDLL;
    LPFNDLLFUNC1 lpfnDllFunc1;    // Function pointer

    hDLL = LoadLibrary(L"foo.dll");

    if (hDLL != NULL)
    {
        lpfnDllFunc1 = (LPFNDLLFUNC1)GetProcAddress(hDLL,"Dll1");
        if (!lpfnDllFunc1)
        {
            // handle the error
            FreeLibrary(hDLL);
            return -1;
        }
        else
        {
            // call the function
            lpfnDllFunc1();
        }
    }
    return 0;
}

使用C ++代码从FORTRAN DLL调用函数

1 个答案: