DLL call using a pointer to array of structure, port from VC++ to VB

[bobmarshall]

I have a working VC++2010 app that needs to be ported to VB2010. But I seem to be having difficulty passing a pointer to an array of structures to a DLL. I cannot modify the DLL.

working VC++ reference...

// pasted from header
ABDNAPI int DNET_EnumPorts
(
PORT_ATTRIBUTES * pPortsArray,
int * nNumPorts
);
 
// pasted from code
 
PORT_ATTRIBUTES pPortsArray[50];
 
status = DNET_EnumPorts(pPortsArray, &nNumPorts);

resultant structure...

pPortsArray = 0x0012fe78 {port_num='Ì' mac_id='Ì' baud_rate='Ì' ...}
[0] = {port_num='Ì' mac_id='Ì' baud_rate='Ì' ...}
port_num = 204 'Ì'
mac_id = 204 'Ì'
baud_rate = 204 'Ì'

I'm not sure if the problem is with the VB definition or the VB call...


non-working VB version...

<DllImport("pcidios.dll", EntryPoint:="DNET_EnumPorts", SetLastError:=True, _
CharSet:=CharSet.Unicode, ExactSpelling:=True, _
CallingConvention:=CallingConvention.StdCall)> _
Private Shared Function DNET_EnumPorts( _
   ByVal pPortsArray As Long, _  
   ByRef nNumPorts As Integer) As Integer
End Function
'pPortsArray as IntPtr results in unbalanced stack
 
Dim PortsArray(50) As PORT_ATTRIBUTES
 
'Marshal, first method
Dim pPortsArray As IntPtr '= Marshal.AllocHGlobal(Marshal.SizeOf(PortsArray))
pPortsArray = Marshal.AllocHGlobal(Marshal.SizeOf(GetType(PORT_ATTRIBUTES)) * 50)
Dim lPortsArray As Long = pPortsArray.ToInt64
status = DNET_EnumPorts(lPortsArray, nNumPorts)
   'AccessViolationException was unhandled
   'Attempted to read or write protected memory. This is often an indication that other memory is corrupt.
 
'GCHandle, second method
Dim pGCHPortsArray As IntPtr = GCHandle.Alloc(PortsArray, GCHandleType.Normal)
Dim lGCHPortsArray As Long = pGCHPortsArray.ToInt64
status = DNET_EnumPorts(lGCHPortsArray, nNumPorts)
   'AccessViolationException was unhandled
   'Attempted to read or write protected memory. This is often an indication that other memory is corrupt.

'third method
<DllImport("pcidios.dll", EntryPoint:="DNET_EnumPorts", SetLastError:=True, _
CharSet:=CharSet.Unicode, ExactSpelling:=True, _
CallingConvention:=CallingConvention.StdCall)> _
Private Shared Function DNET_EnumPorts( _
   ByRef PortsArray As Object, _
   ByRef nNumPorts As Integer) As Integer
End Function  
 
Dim PortsArray(50) As PORT_ATTRIBUTES
 
status = DNET_EnumPorts(PortsArray, nNumPorts)
   'ArgumentException was caught
   'The parameter is incorrect. (Exception from HRESULT: 0x80070057 (E_INVALIDARG))

Thanks for your ideas.

Bob