T
tilmP
Hello,
does anyone know if there is a maximum size of the parameters when
calling a (Fortran-)DLL:
(VBA)
Declare Sub TEST2L Lib "Pfad... \test2l.dll" (ByRef x As rcTEST, ByRef
x As
rcStoffnamen)
Type rcTEST
' Rekordstruktur
lfd_nr As Integer ' laufende Nummer des Datemsatzes
datenverzeichnis As String * 255 ' Zielverzeichnis fur wmf-Datei .
.. .
dat_x(1 To 200, 1 To 10) As Single 'x-Werte
dat_y(1 To 200, 1 To 10) As Single 'y-Werte
' Ausgabedaten
wmfname As String * 255
End Type
Type rcStoffnamen
' In
Namenfeld(1 To 70) As String * 16
..
..
..
End Type
Dim l As rcTEST
Dim m As rcStoffnamen
..
..
..
Call DAIN2L(l,m,...)
(FORTRAN)
SUBROUTINE TEST2l(s1,s2,...)
..
..
!DEC$ ATTRIBUTES DLLEXPORT::TEST2L
include 'rcTest.fi' ! Die Record Struktur
TYPE(rcTEST) :: s1
TYPE(rcStoffnamen) :: s2
i have heard of a 32k limit when calling a dll from vba, is this
right? In which way should i rearrange the code to give more than 32k
to the DLL?
thanks
Peter
does anyone know if there is a maximum size of the parameters when
calling a (Fortran-)DLL:
(VBA)
Declare Sub TEST2L Lib "Pfad... \test2l.dll" (ByRef x As rcTEST, ByRef
x As
rcStoffnamen)
Type rcTEST
' Rekordstruktur
lfd_nr As Integer ' laufende Nummer des Datemsatzes
datenverzeichnis As String * 255 ' Zielverzeichnis fur wmf-Datei .
.. .
dat_x(1 To 200, 1 To 10) As Single 'x-Werte
dat_y(1 To 200, 1 To 10) As Single 'y-Werte
' Ausgabedaten
wmfname As String * 255
End Type
Type rcStoffnamen
' In
Namenfeld(1 To 70) As String * 16
..
..
..
End Type
Dim l As rcTEST
Dim m As rcStoffnamen
..
..
..
Call DAIN2L(l,m,...)
(FORTRAN)
SUBROUTINE TEST2l(s1,s2,...)
..
..
!DEC$ ATTRIBUTES DLLEXPORT::TEST2L
include 'rcTest.fi' ! Die Record Struktur
TYPE(rcTEST) :: s1
TYPE(rcStoffnamen) :: s2
i have heard of a 32k limit when calling a dll from vba, is this
right? In which way should i rearrange the code to give more than 32k
to the DLL?
thanks
Peter