PROBLEM PASSING ARRAY OF STRUCTURE TO VC++ DLL

[Phoenix]

Hi Friends ,

Could anyone please help me to resolve the following issue :

I pass an array of structures to a dll written in VC++ 6.0 whih fills
it with data . The following works well for VB 6.0 but when I wrote
the same piece of code in VB 2005
the array of structures remained empty even after the API call :

I have a structure as follows :

Structure tree_struct
Dim level As Short
Dim branch_id As String
Dim s_desc As String
Dim parent_id As String
Dim access As Short
Dim flag As Short
Dim branch_desc As String
End Structure

My declaration statement looks like following :

Declare Function fetch_tree_hier archy Lib "mydll.dll" (ByVal
tree_handle As Short, ByVal app_id As String, ByRef l_tree_struct() As
tree_struct) As Short

Following is a sub written in VB 2005 which calls the above function
"fetch_tree_hie rarchy " present in a dll "mydll.dll" written in vc++
6.0 :

Dim i As Integer = 0

Dim l_tree_struct() As tree_struct
ReDim l_tree_struct(1 00)

retcode = vb_get_menu_hie rarchy(tree_han dle, "app_id",
l_tree_struct)

If retcode = SUCESS Then

Console.WriteLi ne("Get Tree Hierarchy Succeeded")

Else

GetErrorText(re tcode) 'Is a function which maps error
codes to error text
Call terminate_all()
Exit Sub

End If

In above case the Array of structure is coming empty.

Some Progress , Still No Results

During my exploration of various possibilities I went through an
example given at Microsoft website and did the following changes to
my above code :
<StructLayout(L ayoutKind.Seque ntial, CharSet:=CharSe t.Ansi)Public
Structure tree_struct
Dim level As Short
Dim branch_id As String
Dim s_desc As String
Dim parent_id As String
Dim access As Short
Dim flag As Short
Dim branch_desc As String
End Structure
Public Class LibWrap
Declare Function fetch_tree_hier archy Lib
"tcvbodss.d ll" (ByVal mnu_handle As Short, ByVal apl_id As String,
ByRef outArray As IntPtr) As Short
End Class

Dim outArray As IntPtr
LibWrap.vb_get_ menu_hierarchy( tree_handle, "app_id",
l_tree_struct)
Dim manArray(100) As vb_menu
Dim current As IntPtr = outArray
Dim i As Integer

For i = 0 To 100 - 1

manArray(i) = New tree_struct

Marshal.PtrToSt ructure(current , manArray(i))

Marshal.Destroy Structure(curre nt, GetType(tree_st ruct))

current = IntPtr.op_Expli cit(current.ToI nt64() +
Marshal.SizeOf( manArray(i)))

Console.WriteLi ne("Element {0}: {1} {2}", i,
manArray(i).bra nch_id, manArray(i).bra nch_desc)

Next i

Marshal.FreeCoT askMem(outArray )

At line : " Marshal.PtrToSt ructure(current , manArray(i))" I am getting
following exception :

Message : Value cannot be null.
Parameter name: ptr

My mistake may be quite silly as I am new to VB 2005 , kindly help me
to resolve this problem.

Sincerely,

Sudhansu

[Mattias Sjögren]

>I pass an array of structures to a dll written in VC++ 6.0 whih fills

>it with data . The following works well for VB 6.0 but when I wrote
the same piece of code in VB 2005
the array of structures remained empty even after the API call :

Can you post the working VB6 code so we can compare?
Mattias

--
Mattias Sjögren [C# MVP] mattias @ mvps.org
http://www.msjogren.net/dotnet/ | http://www.dotnetinterop.com
Please reply only to the newsgroup.

[Phoenix]

On Aug 31, 10:55 pm, Mattias Sjögren <mattias.dont.w ant.s...@mvps.o rg>
wrote:

I pass an array of structures to a dll written in VC++ 6.0 whih fills
it with data . The following works well for VB 6.0 but when I wrote
the same piece of code in VB 2005
the array of structures remained empty even after the API call :

Can you post the working VB6 code so we can compare?

Mattias

--
Mattias Sjögren [C# MVP] mattias @ mvps.orghttp://www.msjogren.ne t/dotnet/|http://www.dotnetinterop.com
Please reply only to the newsgroup.

Hi Mattias ,

Thanks a lot for the reply , following is the working VB 6 code for
your reference :

Type tree_struct
Dim level As Integer
Dim branch_id As String
Dim s_desc As String
Dim parent_id As String
Dim access As Integer
Dim flag As Integer
Dim branch_desc As String
End Type

My declaration statement looks like following :

Declare Function fetch_tree_hier archy Lib "mydll.dll" (ByVal
tree_handle As Integer, ByVal app_id As String, ByRef l_tree_struct()
As tree_struct) As Integer
Dim retcode As Integer

Dim l_tree_struct(1 00) As tree_struct

retcode = fetch_tree_hier archy(tree_hand le, "app_id",
l_tree_struct)

Sincerely,

Sudhansu