i'm having some trouble with $huge.
does it work with global udt arrays?
does it work pb/dll 2.00 (01-jul-99)?
according to what i've found in the docs, this shouldn't be a problem.
if i call DimTest%(64) from vb, i'll get the first msgbox. after that, gpf.
if i call DimTest% with anything less than 64 - no problems.
fyi - i have to keep this 16bit...vb3 handles the forms.
any help would be greatly appreciated. below is a sample fragment.
thanks
george
'///////////////////////////////////////////////////
$COMPILE DLL "c:\windows\system\test2.dll"
$HUGE
Type TestDataType
A_Str As String * 1024
B_Int As Integer
C_Lng As Long
D_Sgl As Single
E_Dbl As Double
End Type
GLOBAL TestData() As TestDataType
GLOBAL nRadLines%
'''''''''''''''''''''''''''''''''''''''
FUNCTION DimTest(BYVAL Elements%) EXPORT AS INTEGER
nRadLines% = Elements%
IF nRadLines% > 0 THEN
DIM TestData(1 to nRadLines%) AS GLOBAL TestDataType
tmpstr$ = Format$(UBound(TestData))
MsgBox tmpstr$
ARRAY SORT TestData(), ASCEND
MsgBox "Sorted?"
END IF
FUNCTION = nRadLines%
END FUNCTION
------------------
does it work with global udt arrays?
does it work pb/dll 2.00 (01-jul-99)?
according to what i've found in the docs, this shouldn't be a problem.
if i call DimTest%(64) from vb, i'll get the first msgbox. after that, gpf.
if i call DimTest% with anything less than 64 - no problems.
fyi - i have to keep this 16bit...vb3 handles the forms.
any help would be greatly appreciated. below is a sample fragment.
thanks
george
'///////////////////////////////////////////////////
$COMPILE DLL "c:\windows\system\test2.dll"
$HUGE
Type TestDataType
A_Str As String * 1024
B_Int As Integer
C_Lng As Long
D_Sgl As Single
E_Dbl As Double
End Type
GLOBAL TestData() As TestDataType
GLOBAL nRadLines%
'''''''''''''''''''''''''''''''''''''''
FUNCTION DimTest(BYVAL Elements%) EXPORT AS INTEGER
nRadLines% = Elements%
IF nRadLines% > 0 THEN
DIM TestData(1 to nRadLines%) AS GLOBAL TestDataType
tmpstr$ = Format$(UBound(TestData))
MsgBox tmpstr$
ARRAY SORT TestData(), ASCEND
MsgBox "Sorted?"
END IF
FUNCTION = nRadLines%
END FUNCTION
------------------
Comment