主题:『求助』调用DLL时如何显示DLL内函数的运行状态提示信息?
(因不知道该在Delphi版提问,还是在Fortran求助,所以就全贴了)
在用Fortran做数值计算时,有时需要输出一些提示信息,用来告诉用户程序运行到了哪一步,在单纯的Fortran程序中可以用Write语句进行如下操作:
!the following code is Fortran with main program
Program Add
integer A,B
integer Sum
A=1
B=2
Write(*,*)"The Value of A&B has been set!"
Sum=A+B
Write(*,*)"Add Operation has been done!"
End Program Add
在Delphi里调用Fortran编译好的DLL文件中的函数时,如果需要在DLL中实现同样的功能——即需要显示在DLL内运行的状态提示信息,该如何实现:(如果换成DLL在Delphi里调用,代码中原来的两条Write语句肯定不能用了)
!the following code is Fortran to DLL
Function Add(A,B)
!DEC$ Dllexport alias:'Add'::Add
integer A,B
integer Add
Add=A+B
End Function ADD
在用Fortran做数值计算时,有时需要输出一些提示信息,用来告诉用户程序运行到了哪一步,在单纯的Fortran程序中可以用Write语句进行如下操作:
!the following code is Fortran with main program
Program Add
integer A,B
integer Sum
A=1
B=2
Write(*,*)"The Value of A&B has been set!"
Sum=A+B
Write(*,*)"Add Operation has been done!"
End Program Add
在Delphi里调用Fortran编译好的DLL文件中的函数时,如果需要在DLL中实现同样的功能——即需要显示在DLL内运行的状态提示信息,该如何实现:(如果换成DLL在Delphi里调用,代码中原来的两条Write语句肯定不能用了)
!the following code is Fortran to DLL
Function Add(A,B)
!DEC$ Dllexport alias:'Add'::Add
integer A,B
integer Add
Add=A+B
End Function ADD