Fortran Coder

查看: 16260|回复: 14
打印 上一主题 下一主题

[混编] c++向Fortran的dll传递字符串发生“访问冲突”

[复制链接]

5

帖子

2

主题

0

精华

入门

F 币
35 元
贡献
11 点
跳转到指定楼层
楼主
发表于 2016-11-3 23:09:50 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
根据群主大人的指点(网址:http://bbs.fcode.cn/forum.php?mo ... &page=1#pid6531),我成功地再现了他的代码。但是,当我编写我的代码时,却发生了奇怪的错误,如下:(1)最主要的错误是进入dll的子过程时提示“cpp_main.exe 中的 0x5d7005a9 (vlhm.dll) 处最可能的异常: 0xC0000005: 读取位置 0x00000021 时发生访问冲突
cpp_main.exe 中的 0x5d7005a9 (vlhm.dll) 处有未经处理的异常: 0xC0000005: 读取位置 0x00000021 时发生访问冲突”。如图:

(2)非常“诡异”的是:群主给的代码,不会提示说要加“@8”,但我的代码,如果和示例代码一样,写成“subroutine vlhm( pfilename , lens ) Bind(C,Name="vlhm")”的话,却提示“无法解析”(可是我并没有改动示例代码啊...)。如图:

闲话少说,下面上代码!
(1)c++主程序的代码:
[Fortran] 纯文本查看 复制代码
#include "stdafx.h"
#include <stdio.h>
#include <string.h>

extern "C" {void _stdcall   vlhm(char *,int); }
//extern "C" {void vlhm(char *,int); }
int _tmain(int argc, _TCHAR* argv[])
{
  char *inputfile= "C:\\Users\\www\\Desktop\\31005700.tem";
  //char *inputfile;
  //char str[] = "C:\\Users\\www\\Desktop\\\\31005700.tem";
  //inputfile=&str[0];
  vlhm(inputfile,strlen(inputfile));
  return 0;
}


(2)Fortran的DLL代码:
[Fortran] 纯文本查看 复制代码
subroutine vlhm( pfilename , lens ) Bind(C,Name="vlhm")
!!!subroutine vlhm(pfilename,lens) Bind(C,Name="vlhm@8")

!DEC$ ATTRIBUTES DLLEXPORT::vlhm


  use ,Intrinsic::ISO_C_Binding


  implicit none

  type(C_PTR) , value :: pfilename !c++主程序中传递进来的“Inputfile”变量,是C语言的指针
  integer::lens                                      !传入的字符串长度
  character(len=lens),pointer::filename                     !这是Fortran的字符串

  call c_f_pointer( pfilename , filename )                   !把c语言的指针转换成fortran字符串

  write(*,*)filename

end subroutine



aaa.png (43.11 KB, 下载次数: 435)

错误(1)

错误(1)

bbb.png (3.11 KB, 下载次数: 452)

错误(2-1)

错误(2-1)

ccc.png (17.37 KB, 下载次数: 431)

错误(2-2)

错误(2-2)
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

2015

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1572 元
贡献
676 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

沙发
发表于 2016-11-4 08:48:39 | 只看该作者
subroutine vlhm( pfilename , lens ) Bind(C,Name="vlhm")
!!!subroutine vlhm(pfilename,lens) Bind(C,Name="vlhm@8")
!DEC$ ATTRIBUTES stdcall , DLLEXPORT::vlhm
  use ,Intrinsic::ISO_C_Binding
  implicit none
  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(*,*)filename
end subroutine

注意上面红色的部分。
第一处:如果你强调必须 stdcall 协定,那么你需要在 fortran 中声明。(这个声明不是规范的,是IVF扩展的写法)
第二处:你的 C++ 里的 lens 是通过 strlen 计算出来的,而不是指针。所以 fortran 中必须加 value 修饰符,表示它是传值,而不是传址。(这是导致
  cpp_main.exe 中的 0x5d7005a9 (vlhm.dll) 处最可能的异常: 0xC0000005: 读取位置 0x00000021 时发生访问冲突)的原因。
  因为编译器错误的把 Lens=33 这个值(即十六进制的 0x00000021)当成了地址(读取这个低位的地址就会失败)

5

帖子

2

主题

0

精华

入门

F 币
35 元
贡献
11 点
板凳
 楼主| 发表于 2016-11-4 09:14:38 | 只看该作者
大神!!!
我又弱弱地问一下,我用您的代码,但是生成这个dll的时候提示:error #8143: The BIND(C) attribute for this symbol conflicts with a DEC$ ATTRIBUTES ALIAS, DECORATE, STDCALL, C, [NO_]MIXED_STR_LEN_ARG or REFERENCE attribute for this symbol.   [VLHM]。

如果我根据提示,把“stdcall”删掉的话,可以生成,但是lib文件不见了
我用的代码是楼上您提供的:
[Fortran] 纯文本查看 复制代码
subroutine vlhm( pfilename , lens ) Bind(C,Name="vlhm")
!!!subroutine vlhm(pfilename,lens) Bind(C,Name="vlhm@8")
!DEC$ ATTRIBUTES stdcall, DLLEXPORT::vlhm
  use ,Intrinsic::ISO_C_Binding
  implicit none
  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(*,*)filename
end subroutine

5

帖子

2

主题

0

精华

入门

F 币
35 元
贡献
11 点
地板
 楼主| 发表于 2016-11-4 09:24:15 | 只看该作者

这是删除或保留stdcall的图片

2015

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1572 元
贡献
676 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

5#
发表于 2016-11-4 09:26:57 | 只看该作者
可能你的 IVF 版本有些老,支持得还不全面。
那你只能这样写了:
[Fortran] 纯文本查看 复制代码
subroutine vlhm( pfilename , lens )
!DEC$ ATTRIBUTES stdcall , alias: '_vlhm@8' , DLLEXPORT::vlhm


去掉 Bind(C ,Name="vlhm")
然后 ATTRIBUTES 里面写 stdcall 和 alias

58

帖子

9

主题

0

精华

熟手

F 币
256 元
贡献
163 点
6#
发表于 2016-11-14 22:26:57 | 只看该作者
本帖最后由 zhuhuanlai 于 2016-11-14 22:32 编辑
fcode 发表于 2016-11-4 09:26
可能你的 IVF 版本有些老,支持得还不全面。
那你只能这样写了:
[mw_shl_code=fortran,true]subroutine vl ...

我的IVF2013+vs2013,运行时也出现错误,如下图所示。

QQ图片20161114223217.png (33.06 KB, 下载次数: 379)

QQ图片20161114223217.png

2015

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1572 元
贡献
676 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

7#
发表于 2016-11-14 22:44:27 | 只看该作者
看 5 楼
回复

使用道具 举报

58

帖子

9

主题

0

精华

熟手

F 币
256 元
贡献
163 点
8#
发表于 2016-11-15 12:39:52 | 只看该作者
本帖最后由 zhuhuanlai 于 2016-11-15 12:43 编辑

去掉 Bind(C ,Name="vlhm")
然后 ATTRIBUTES 里面写 stdcall 和 alias.
stdcall 和 alias.是IVF扩展的写法,相当于堆栈清理和命名约定不再通过 ISO_C_Binding。
但是如果去掉Bind(C ,Name="vlhm"),只使用use ,Intrinsic::ISO_C_Binding,在参数传递约定和数组/字符串传递约定还有效吗?

另外,我是2013VS+2013IVF,需要哪个版本的编译器才支持呢?

2015

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1572 元
贡献
676 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

9#
发表于 2016-11-15 23:03:08 | 只看该作者
1. 你不能全部照抄别人的例子,例如这个例子,是因为提问者的“甲方”要求,必须使用 stdcall。
2. 而 ISO_C_Binding 只能用“规范的语言”写 c 的调用协定,而不能写 stdcall 调用协定。
3. 因此,这个例子的提问者没有办法,只能使用 ATTRIBUTES 来实现 stdcall
4. 如果你只是要和 C 进行混编,而没有“必须使用 stdcall”的要求。那么 Bind( C 就可以实现
5. 我对IVF各个版本具体支持什么扩展特性并不十分清楚。毕竟我用过的也就那么一两个版本,而不会每个版本都用。
6. 去掉 Bind(C 的话,会有两个影响:
   a. 不能默认 c调用协定,而使用 IVF协定(当然你可以用 ATTRIBUTES 更改协定,只不过低版本的IVF不允许 Bind C 和 ATTRIBUTES并存,因为两者冲突)
   b. 不能默认 c的“符号修饰”(比如 name(x) 被修饰为 _name@4 或者 _name),相当于 Alias。
   除了上面两个差别,Bind( C )没有其他作用。关于参数传递约定,数组/字符串传递,请遵循 ISO_C_Binding 约定。

其实混编就那么点东西
Bind(C 是规范的,用来起到默认 C 协定,及默认 C 符号修饰的目的。
而 ATTRIBUTES 和 ALIAS 是扩展语法。作用其实与 Bind C 一样。
区别,仅仅是规范和不规范而已。

58

帖子

9

主题

0

精华

熟手

F 币
256 元
贡献
163 点
10#
发表于 2016-11-16 19:18:48 | 只看该作者
fcode 发表于 2016-11-15 23:03
1. 你不能全部照抄别人的例子,例如这个例子,是因为提问者的“甲方”要求,必须使用 stdcall。
2. 而 ISO_ ...

感谢您在这么晚的时间还给出了如此详尽的指点!

拜读了您的指点后,豁然开朗,Fortran有您更精彩!

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-1 08:59

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表