Riakdit
October 19th, 1998, 01:51 PM
Hi,
I am trying to access a DLL writen in Fortran. Unfortunately, whenever the VB module attempts to communicate with the DLL I get run-timr error 453 and this message 'cannot find the DLL entry point'
The code for the VB and Fortran modules are listed below. I will appreciate your help.
Riak
Option Explicit
Private Type StringArray
strings As String * 24
End Type
Private Declare Sub FORSTRARR Lib "E:VB\fortVB.dll" (Myarray As
StringArray)
Private Sub Command1_Click()
Dim I As Integer
Static arr(1 To 5) As StringArray
Call FORSTRARR(arr(1))
For I% = 1 To 5
text1.Text = arr(I%).strings + Chr$(13) + Chr$(10) + text1.Text
Next I%
End Sub
The fortran DLL contains the following code
SUBROUTINE forstrarr(arr)
CHARACTER(24) arr(5)
arr = "This is a string from Fortran."
END SUBROUTINE
I am trying to access a DLL writen in Fortran. Unfortunately, whenever the VB module attempts to communicate with the DLL I get run-timr error 453 and this message 'cannot find the DLL entry point'
The code for the VB and Fortran modules are listed below. I will appreciate your help.
Riak
Option Explicit
Private Type StringArray
strings As String * 24
End Type
Private Declare Sub FORSTRARR Lib "E:VB\fortVB.dll" (Myarray As
StringArray)
Private Sub Command1_Click()
Dim I As Integer
Static arr(1 To 5) As StringArray
Call FORSTRARR(arr(1))
For I% = 1 To 5
text1.Text = arr(I%).strings + Chr$(13) + Chr$(10) + text1.Text
Next I%
End Sub
The fortran DLL contains the following code
SUBROUTINE forstrarr(arr)
CHARACTER(24) arr(5)
arr = "This is a string from Fortran."
END SUBROUTINE