|
Hi Friends,
Any help would be highly appreciated for the following problem :
I have a vb 6 application which makes call to an API in some dll
which returns an array of strings and no of elements in that array :
Declare Function vb_inq_applications Lib "tcvbodss.dll" (ByVal
login_handle As Integer, ByRef no_of_elements As Integer, ByRef
str_array() As String, ByRef handle As Integer) As
Integer
Dim handle As Integer
Dim no_of_elements As Integer
Dim str_array(16) As String
retcode = check_apps(login_handle, no_of_elements,
str_array(), handle)
For i = 1 To UBound(str_array)
Debug.Print str_array(i)
Next i
This code worked absolutely fine untill I upgraded this to VB 2005 .
Now str_array() is not filled with data but the no_of_elements comes
correctly , following is the upgraded code :
Declare Function vb_inq_applications Lib "tcvbodss.dll" (ByVal
login_handle As Short, ByRef no_of_elements As Short, ByRef
str_array() As String, ByRef handle As Short) As Short
Dim handle As Integer
Dim no_of_elements As Integer
Dim str_array(16) As String
ReDim str_array(16)
retcode = check_apps(login_handle, no_of_elements, str_array,
handle)
For i = 1 To UBound(str_array)
Console.WriteLine str_array(i)
Next i
I am unable to locate the PROBLEM , kindly help me to short out this
issue.
| 
