1

VB.Net を介してネイティブ API を呼び出して、構造体の配列 (RootCausesInfo) へのポインターを渡します。これには、構造体の配列 (RepairInfoEx) へのポインターが含まれます。API のネイティブ署名はMSDN にあります - NdfDiagnoseIncident

VB.Net で使用した構造定義と PInvoke 呼び出しは次のとおりです。

<System.Runtime.InteropServices.StructLayoutAttribute(System.Runtime.InteropServices.LayoutKind.Sequential)> _
Public Structure RepairInfoEx
    Public repair As RepairInfo
    Public repairRank As UShort
End Structure

<System.Runtime.InteropServices.StructLayoutAttribute(System.Runtime.InteropServices.LayoutKind.Sequential)> _
Public Structure RootCauseInfo
    <System.Runtime.InteropServices.MarshalAsAttribute(System.Runtime.InteropServices.UnmanagedType.LPWStr)> _
    Public pwszDescription As String
    Public rootCauseID As GUID
    Public rootCauseFlags As UInteger
    Public networkInterfaceID As GUID
    Public pRepairs As IntPtr
    Public repairCount As UShort
End Structure

    <System.Runtime.InteropServices.DllImportAttribute("ndfapi.dll", EntryPoint:="NdfDiagnoseIncident", CallingConvention:=System.Runtime.InteropServices.CallingConvention.StdCall)> _
    Public Function NdfDiagnoseIncident(<System.Runtime.InteropServices.InAttribute()> ByVal Handle As System.IntPtr, <System.Runtime.InteropServices.OutAttribute()> ByRef RootCauseCount As UInteger, ByRef RootCauses As IntPtr, ByVal dwWait As Integer, ByVal dwFlags As UInteger) As Integer
    End Function

上記の API を呼び出すコードは次のとおりです。

    Dim rcInfoPtrToArray As IntPtr = Nothing
    Dim intRootCauseInfoSize As Integer = Marshal.SizeOf(GetType(RootCauseInfo))
    Dim intRepairInfoExSize As Integer = Marshal.SizeOf(GetType(RepairInfoEx))
    If HResult = 0 Then
        HResult = NdfDiagnoseIncident(ndfHandle, rootCauseCount, rcInfoPtrToArray, NativeConstants.INFINITE, 0)
        If rootCauseCount > 0 Then
            For i = 0 To rootCauseCount - 1 
                Dim rootCausePtr As IntPtr = New IntPtr(rcInfoPtrToArray.ToInt32 + intRootCauseInfoSize * i)
                Dim causeObj As RootCauseInfo = CType(Marshal.PtrToStructure(rootCausePtr, GetType(RootCauseInfo)), RootCauseInfo)
                Dim pRepairs(causeObj.repairCount) As IntPtr
                Marshal.Copy(causeObj.pRepairs, pRepairs, 0, causeObj.repairCount)
                For Each pRepair As IntPtr In pRepairs 
                    Dim repair As RepairInfoEx = CType(Marshal.PtrToStructure(pRepair, GetType(RepairInfoEx)), RepairInfoEx)
                    MsgBox(repair.repair.pwszDescription)
                Next
            Next
        End If
    End If

API 呼び出しが戻ると、rcInfoPtrToArray に RootCauseInfo 構造体へのポインター アドレスが設定されます。次の行で RootCauseInfo の各インスタンスを取得します。

Dim rootCausePtr As IntPtr = New IntPtr(rcInfoPtrToArray.ToInt32 + intRootCauseInfoSize * i)

これはうまくいきます。同様の IntPtr 演算を使用して、RepairInfoEx インスタンスの個々の要素に移動します。

Dim repairInfoExPtr As IntPtr = New IntPtr(causeObj.pRepairs.ToInt32 + intRepairInfoExSize * j)

次の行でrepairInfoExPtrをRepairInfoEx構造に変換すると、j = 0のRepairInfoExの最初のインスタンスで再び正常に機能します。

Dim repair As RepairInfoEx = CType(Marshal.PtrToStructure(repairInfoExPtr, GetType(RepairInfoEx)), RepairInfoEx)

しかし、j=1 の次の反復では、ポインターが台無しになっているように見え、「'System.ExecutionEngineException' 型の例外がスローされました」というメッセージが表示されます。エラー。私は何を間違っていますか？

4

0 に答える 0