QT调用Fortran 传递字符串问题

紫雪封尘

   我现在学习用qt调用Fortran的dll文件，向dll传递一个文件名，但是我将他输出来是乱码不知道是为啥，请大神帮忙指出错误。
FORTRAN 代码：
   SUBROUTINE SUB(c)
   !DEC$ ATTRIBUTES DLLEXPORT::SUB
  !DEC$ ATTRIBUTES REFERENCE:: c
       character ::c
   write(*,*)c
END SUBROUTINE SUB


  QT代码：
    QString a；   typedef void(*QTsub)(QString b);    QLibrary dll("DLL2.dll");   
if(dll.load())
   {     
               QTsub sub=(QTsub)dll.resolve("SUB");            
              a=“hello,World”;               
           sub(a);  
}

紫雪封尘

vvt 发表于 2019-6-29 10:21
Qt 的 QString 用的是 unicode 编码，需要转换成ANSI编码，才能“直接”被fortran使用

QByteArray ba = a. ...

您好，首先很感谢您的解答，但是我按照您的方式修改了qt代码 ，发现输出的还是一堆乱码，是不是因为我Fortran的dll程序有问题啊？

紫雪封尘

感谢大神 已经解决 ，谢谢指导。

紫雪封尘

fcode 发表于 2019-7-1 17:30
问题有2个：

1. typedef void(*QTsub)(QString b); 应该为 typedef void(*QTsub)(char*);

是雪球大人嘛？谢谢指导， 我会努力改正规范