VC控制台调用Fortra生成的DLL

摘要：关于VC控制台调用Fortra生成的DLL的深入研究。

　　新建VC控制台应用程序，新建一个checktest1的工程。
　　注意：需要在工程的project菜单下的add to project子菜单的file对话框中添加上一步生成的test1.dll,test1.obj两个文件，否则编译能通过，链接的时候失败。还需将以上两个文件拷贝到checktest1工程的debug目录下，否则运行的时候出现找不到文件的错误提示。自己测试了一下，以上两步是必须的。


　　添加如下代码：（注意红色的部分）

1. 　　#include "stdafx.h"
   
2. 　　#include "iostream.h"
   
3. 　　//extern "C"{_stdcall TEST1(int* x,int* y);}
   
4. 　　//extern "C"{_stdcall ADD(int* x,int* y);}
   
5. 　　//extern "C"{_stdcall ABSTRACT(int* x,int* y);}
   
6. 　　//extern "C"{_stdcall MULTIPLY(int* x,int* y);}
   
7. 　　//extern "C"{_stdcall DIVIDED(int* x,int* y);}
   
8. 
   
9. 
   
10. 　　//注意此处函数名称要与DLL生成时保持一致（如下中的蓝色部分），否则会出现找不到函数的错误提示。并且一定要记得去掉参数中的指针符号*。
    
11. 　　extern "C"{_cdecl test1(int x,int y);}
    
12. 　　extern "C"{_cdecl add(int x,int y);}
    
13. 　　//采用C的传值方式，则需要将_stdcall修改为_cdecl
    
14. 　　//相应的Fortran DLL处要添加C的调用方式,即将!DEC$ ATTRIBUTES DLLEXPORT::add修改为：!DEC$ ATTRIBUTES C,DLLEXPORT::add
    
15. 　　//适应伪注释!DEC$ ATTRIBUTES C,DLLEXPORT::add后生成的DLL函数中只存在函数名为add的函数，ADD 和_ADD@8 均不存在，参见上图中的DLL函数名称
    
16. 　　extern "C"{_cdecl abstract(int x,int y);}
    
17. 　　extern "C"{_cdecl multiply(int x,int y);}
    
18. 　　extern "C"{_cdecl divided(int x,int y);}
    
19. 　　int main(int argc, char* argv[])
    
20. 　　{
    
21. 
    
22. 　　int a=35,b=5;
    
23. 　　int sum=0;
    
24. 　　int abs=0;
    
25. 　　int mul=0;
    
26. 　　int div=0;
    
27. 　　//TEST1(&a,&b);
    
28. 　　//sum=ADD(&a,&b);
    
29. 　　//abs=ABSTRACT(&a,&b);
    
30. 　　//mul=MULTIPLY(&a,&b);
    
31. 　　//div=DIVIDED(&a,&b);
    
32. 　　test1(a,b);
    
33. 　　sum=add(a,b);
    
34. 　　abs=abstract(a,b);
    
35. 　　mul=multiply(a,b);
    
36. 　　div=divided(a,b);
    
37. 　　printf("a+b= %d
    
38. ",sum);
    
39. 　　printf("a-b= %d
    
40. ",abs);
    
41. 　　printf("a*b= %d
    
42. ",mul);
    
43. 　　printf("a/b= %d
    
44. ",div);
    
45. 　　printf("Hello World!
    
46. ");
    
47. 　　return 0;
    
48. 　　}

复制代码

　　然后编译运行可以得出正确的结果：