VBA与Fortran的字符串传递的问题

andy8496 · 发表于 2015-1-27 00:43:20

如附件所示，我需要传递字符串到dll中，再返回。做了很多尝试了，比如ByVal，每个字符串后增加一个long来表示长度，等等，还是没成功。
请高手帮给看看，小弟在此谢过了！

楚香饭 · 发表于 2015-1-27 08:49:18

如果是 Fortran 调用 Fortran，那么非常简单的。都不需要写 stdcall，也不需要 ByValue，也不需要增加 long 。

[Fortran] 纯文本查看 复制代码

Program www_fcode_cn
  use Test_mode
  Implicit None
  Character*30 c , r , s
  r = "rr"
  s = "ss"
  call str_cal_test( r , s , c )
  write(*,*) trim(c)
End Program www_fcode_cn

[Fortran] 纯文本查看 复制代码

module Test_Mode
  implicit none
contains
  subroutine str_cal_test(rr,ss,outp)
   !DEC$ ATTRIBUTES DLLEXPORT,ALIAS:"str_cal_test"::STR_CAL_TEST
    implicit none
    character(*),intent(in) :: rr,ss
    character(*),intent(out) :: outp
    outp = trim(rr)//trim(ss)
  end subroutine
  
end module