This is how I got it to connect to local Server2.0
Dim cnxParams As New VixDiskLibConnectParams
cnxParams.serverName = "localhost"
If I do not set the .serverName, then _Connect errors out with VIX_E_INVALID_ARG = 3
And the last issue I have for now is some advice on better unmanaged pointer array iteration... Here is my hacked way to iterate through all the keys in the keysbuffer to retrieve the actual key value...
<DllImport("vixDiskLib.dll", SetLastError:=True)> _
Public Shared Function VixDiskLib_GetMetadataKeys(ByVal diskHandle As IntPtr, ByVal keysBuffer As IntPtr, ByVal bufLen As UInteger, ByRef requiredLen As UInteger) As VixError
End Function
<DllImport("vixDiskLib.dll", SetLastError:=True)> _
Public Shared Function VixDiskLib_ReadMetadata(ByVal diskHandle As IntPtr, ByVal key As String, ByVal buf As IntPtr, ByVal bufLen As UInteger, ByRef requiredLen As UInteger) As VixError
End Function
' Get Metadata
Dim keysBufLen As UInteger = 0
Dim keysRequiredLen As UInteger = 0
err = VixDiskLib_GetMetadataKeys(diskPtr, IntPtr.Zero, 0, keysRequiredLen)
If err = VixError.VIX_E_BUFFER_TOOSMALL Then
keysBufLen = keysRequiredLen
Dim keysBuffer As IntPtr = Marshal.AllocHGlobal(CType(keysRequiredLen, Integer))
err = VixDiskLib_GetMetadataKeys(diskPtr, keysBuffer, keysBufLen, 0)
If err = VixError.VIX_OK Then
Dim currentPtr As IntPtr = keysBuffer
Dim bufRemaining As Integer = keysBufLen
Dim bufOffset As Integer = 0
Do Until bufRemaining = 1
Console.WriteLine(" key: " & Marshal.PtrToStringAnsi(currentPtr))
' Read Key Value
Dim keyBufLen As UInteger = 0
Dim keyRequiredLen As UInteger = 0
err = VixDiskLib_ReadMetadata(diskPtr, Marshal.PtrToStringAnsi(currentPtr), IntPtr.Zero, 0, keyRequiredLen)
If err = VixError.VIX_E_BUFFER_TOOSMALL Then
keyBufLen = keyRequiredLen
Dim keyBuffer As IntPtr = Marshal.AllocHGlobal(CType(keyRequiredLen, Integer))
err = VixDiskLib_ReadMetadata(diskPtr, Marshal.PtrToStringAnsi(currentPtr), keyBuffer, keyBufLen, 0)
If err = VixError.VIX_OK Then
Console.WriteLine(vbTab & "value : " & Marshal.PtrToStringAnsi(keyBuffer))
End If
End If
' Set new ptr offset
bufOffset = Marshal.PtrToStringAnsi(currentPtr).Length + 1
currentPtr = IntPtr.op_Explicit(currentPtr.ToInt32 + (Marshal.PtrToStringAnsi(currentPtr).Length + 1))
bufRemaining = bufRemaining - bufOffset
Loop
End If
Try
'Marshal.FreeHGlobal(keysBuffer)
Catch ex As Exception
End Try
End If
Basically I move my pointer up the keysBuffer by incrementing the current pointer by the returned key name string length... There must be a better way...
