fcode 发表于 2016-11-17 18:51 感谢,我试试您的方法! |
我的意思是改成 int main() 去掉里面的参数 我对 VC++ 懂得不多,抱歉。 |
fcode 发表于 2016-11-17 09:00 谢谢您的回复。 我把int _tmain(int argc, _TCHAR* argv[]) 改成 int main(int argc, _TCHAR* argv[]) 出现了同样的错误,是什么原因呢? 另外,这两种表达方式有什么区别呢? |
int main(){ 就可以了。毕竟你只是测试。 |
本帖最后由 zhuhuanlai 于 2016-11-16 22:28 编辑 fcode 发表于 2016-11-3 11:32 大神好,我在2013VS和2013IVF上再现上述程序时能输出FORTRAN的DLL文件,如下图一所示 我把DLL文件拷贝到C++(ConsoleApplication1)下的DEBUG文件内,如下图二所示 然后build C++(ConsoleApplication1)工程时,出现以下错误如下图三所示: 补充说明,我的解决方案中包含了FORTRAN和C++两个工程,如下图四所示: 还请大神指点! |
YWNXN)01VERI5N[189FE1UK.png (25.11 KB, 下载次数: 359)
图一
I)1RUAEEH3GM(3GWEKW4KC1.png (30.05 KB, 下载次数: 328)
图二
849(YD5GD_($LIX0ZMNGWY9.jpg (292.27 KB, 下载次数: 347)
图三
0MX9ZBNQ$~IITFEW{MV[0Z0.jpg (280.94 KB, 下载次数: 348)
图四
谢谢大神!!让我又有了更深的理解 |
在这个过程中,你用到了很多不规范的用法。只能在 IVF 编译器上使用。 更规范的用法是,使用 ISO_C_Binding。它与上面的区别是,使用了 C 的调用协定(而不是 stdcall) [Fortran] 纯文本查看 复制代码 #include <stdio.h> #include <string.h> extern "C" {void _stdcall vlhm_forecast(char *);} int main() { char *inputfile="C:\\Users\\www\\Desktop\\model_2\\cpp_main\\31005700.tem"; printf("before calling:\n"); printf("filename=\"%s\"",inputfile); printf("\n"); vlhm_forecast(inputfile); } [C++] 纯文本查看 复制代码 subroutine vlhm_forecast(filename) !DEC$ ATTRIBUTES STDCALL,DLLEXPORT::vlhm_forecast character(len=*)::filename !c++主程序中传递进来的“Inputfile”变量 write(*,*)"dll里的filename值是:" write(*,*)filename end subroutine 这样做的好处是,fortran代码可以不做任何修改的在 linux gcc (或其他平台)上编译。 |
最重要的错误是,filename 必须是 REFERENCE 的(传址),因为 stdcall 默认是传值 但是由于 REFERENCE 的不能用假定长度(*),所以一般会要求传递一个表示字符串长度的量: [Fortran] 纯文本查看 复制代码 subroutine vlhm_forecast( pfilename , lens ) Bind(C,Name="vlhm_forecast") !DEC$ ATTRIBUTES DLLEXPORT :: vlhm_forecast use , Intrinsic :: ISO_C_Binding type(C_PTR) , value :: pfilename !c++主程序中传递进来的“Inputfile”变量,是C语言的指针 integer , value :: lens character(len=lens) , pointer :: filename !这是fortran的字符串 call c_f_pointer( pfilename , filename ) !//把 c 语言的指针转换成fortran字符串 write(*,*)"dll in filename is:" write(*,*)filename end subroutine [C++] 纯文本查看 复制代码 extern "C" {void vlhm_forecast(char *,int); } int _tmain(int argc, _TCHAR* argv[]) { char *inputfile = "C:\\Users\\www\\Desktop\\model_2\\cpp_main\\31005700.tem"; printf("before calling:\n"); printf("filename=\"%s\"", inputfile); printf("\n"); vlhm_forecast(inputfile,strlen(inputfile)); return 0; } |
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-11-24 01:34