最近在整合Fortran跟VB6的时候发生Dll档怎样也挂不上去的状况
找了很多资料还是无法找到正确解答
只好上来求助乡民们了Q___Q
我在测试的时候 写了一个Fortran档
内容为
real function circle_area(radius)
!DEC$ ATTRIBUTES DLLEXPORT :: CIRCLE_AREA
!DEC$ ATTRIBUTES ALIAS : "Circle_Area" :: CIRCLE_AREA
implicit none
real radius
real, parameter :: PI = 3.14159
circle_area = radius*radius*PI
return
end function
接着用g95跟dlltool来编译，产生 .o .dll .def三种档案
由.def中可以得知进入的端口是 circle_area__
因此我在VB6里面写
Private Declare Function circle_area__ Lib "forlib.dll" (r As Single) As Single
Private Sub Command1_Click()
Dim r As Single
Dim a As Single
r = Val(Text1.Text)
a = circle_area__(r)
Label3 = Str(a)
End Sub
结果，在执行时，一直显示 a = circle_area__(r) 这行有问题
跟我说 "呼叫规格错误"
我上网找了很多范例，但是都没有看到这部分的说明
不知道是编译dll档的过程出了问题还是程式码叙述不对?
希望有强者可以救救小弟Q___Q
我的g95跟dlltool的指令是
1. 产生.o档
-c $(FileName) -Wuninitialized -Wimplicit-none -Wunused-vars -Wunset-vars
-fbounds-check -ftrace=full -O2
2. 产生.def档
-z $(FileTitle).def