服务器维护网站维护数据维护系统安全配置
专业定制网站企业建站一条龙、软件定制开发、系统集成
稳定虚机备案一条龙，稳定快捷通道
服务理念诚信守诺客户至上专业精神专心贯注

VC++调用Fortran生成的DLL实例

作者：黑客防线网安C/C++教程基地来源：黑客防线网安C/C++教程基地浏览次数：0

黑客防线网安网讯：　VC++和Fortran混合编程借助于Fortran生成的DLL进行　　（采用C默认的传址方式进行函数参数传递）　　1.Fortran 生成DLL　　新建Fortran DLL程序test1.f　　添加如下代码：　　! test1.f90...

　VC++和Fortran混合编程借助于Fortran生成的DLL进行
　�。ú捎肅默认的传址方式进行函数参数传递）
　　1.Fortran 生成DLL
　　新建Fortran DLL程序test1.f
　　添加如下代码：
　　! test1.f90
　　!
　　! FUNCTIONS/SUBROUTINES exported from test1.dll:
　　! test1 - subroutine
　　!示例没有返回值的子例程
　　subroutine test1(a,b)
　　! Expose subroutine test1 to users of this DLL
　　!
　　!DEC$ ATTRIBUTES C,DLLEXPORT::test1
　　! Variables
　　! Body of test1
　　integer a,b
　　integer sum
　　sum=a+b
　　return
　　end subroutine test1
　　!示例有返回值的整数四则运算
　　!两数相加
　　function add(a,b)
　　implicit none
　　!DEC$ ATTRIBUTES C,DLLEXPORT::add
　　integer a,b,add
　　add=a+b
　　return
　　end
　　!两数相减
　　function abstract(a,b)
　　implicit none
　　!DEC$ ATTRIBUTES C,DLLEXPORT::abstract
　　integer a,b,abstract
　　abstract=a-b
　　return
　　end
　　!两数相乘
　　function multiply(a,b)
　　implicit none
　　!DEC$ ATTRIBUTES C,DLLEXPORT::multiply
　　integer a,b,multiply
　　multiply=a*b
　　return
　　end
　　!两数相除（需要添加考虑被除数是否为0以及能否整除的判断）
　　function divided(a,b)
　　implicit none
　　!DEC$ ATTRIBUTES C,DLLEXPORT::divided
　　integer a,b,divided
　　divided=a/b
　　return
　　end
　　编译后生成test1.dll,test1.obj等文件。其中这两个文件是我们在VC中调用所需要的。
　　查看test1.dll中生成的函数如下图所示。
　　注意：使用伪注释语句!DEC$ ATTRIBUTES C,DLLEXPORT::functionName后，生成的函数名与Fortran中定义的函数名一致，并没有按照Fortran编译器的默认属性将函数名都转变为大些，如下图所示。在后续的VC中调用的时候需要保持调用的函数名称一致，否则会出现找不到函数的错误提示。

　　2.VC控制台调用Fortra生成的DLL
　　新建VC控制台应用程序，新建一个checktest1的工程。
　　注意：需要在工程的project菜单下的add to project子菜单的file对话框中添加上一步生成的test1.dll,test1.obj两个文件，否则编译能通过，链接的时候失败。还需将以上两个文件拷贝到checktest1工程的debug目录下，否则运行的时候出现找不到文件的错误提示。自己测试了一下，以上两步是必须的。
　　添加如下代码：（注意红色的部分）
　　#include "stdafx.h"
　　#include "iostream.h"
　　//extern "C"{_stdcall TEST1(int* x,int* y);}
　　//extern "C"{_stdcall ADD(int* x,int* y);}
　　//extern "C"{_stdcall ABSTRACT(int* x,int* y);}
　　//extern "C"{_stdcall MULTIPLY(int* x,int* y);}
　　//extern "C"{_stdcall DIVIDED(int* x,int* y);}
　　//注意此处函数名称要与DLL生成时保持一致（如下中的蓝色部分），否则会出现找不到函数的错误提示。并且一定要记得去掉参数中的指针符号*。
　　extern "C"{_cdecl test1(int x,int y);}
　　extern "C"{_cdecl add(int x,int y);}
　　//采用C的传值方式，则需要将_stdcall修改为_cdecl
　　//相应的Fortran DLL处要添加C的调用方式,即将!DEC$ ATTRIBUTES DLLEXPORT::add修改为：!DEC$ ATTRIBUTES C,DLLEXPORT::add
　　//适应伪注释!DEC$ ATTRIBUTES C,DLLEXPORT::add后生成的DLL函数中只存在函数名为add的函数，ADD 和_ADD@8 均不存在，参见上图中的DLL函数名称
　　extern "C"{_cdecl abstract(int x,int y);}
　　extern "C"{_cdecl multiply(int x,int y);}
　　extern "C"{_cdecl divided(int x,int y);}
　　int main(int argc, char* argv[])
　　{
　　int a=35,b=5;
　　int sum=0;
　　int abs=0;
　　int mul=0;
　　int div=0;
　　//TEST1(&a,&b);
　　//sum=ADD(&a,&b);
　　//abs=ABSTRACT(&a,&b);
　　//mul=MULTIPLY(&a,&b);
　　//div=DIVIDED(&a,&b);
　　test1(a,b);
　　sum=add(a,b);
　　abs=abstract(a,b);
　　mul=multiply(a,b);
　　div=divided(a,b);
　　printf("a+b= %d ",sum);
　　printf("a-b= %d ",abs);
　　printf("a*b= %d ",mul);
　　printf("a/b= %d ",div);
　　printf("Hello World! ");
　　return 0;
　　}