- 积分
- 9196
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-11-29
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
刚刚接触vb 想通过vb来调用Fortran 生成的DLL 文件 但是看了网上的一些帖子后 发现在传递数组和字符串时 老是出错,请大神帮我解决下。
fortran 程序如下:
SUBROUTINE ARRAYTEST(n,arr)
!DEC$ ATTRIBUTES DLLEXPORT::123
INTEGER n,i,j
REAL(4) arr(3,3)
DO i=1,3
DO j=1,3
arr(i,j)=10.1*i+j
ENDDO
ENDDO
n=n+10
END SUBROUTINE
vb程序如下:
Private Declare Sub ARRAYTEST Lib "123.dll" (ByVal a As Long, ByRef ab() As Single)
Private Sub Command1_Click()
Dim a As Long
Dim ab(1 To 3, 1 To 3) As Single
a = 10
Call ARRAYTEST(a, ab())
Text1.Text = Str(a)
Text2.Text = Str(ab(3, 3))
End Sub
这个程序运行说找不到dll的入口点
|
|