ich experimentiere gerade etwas mit VB.net(2008).
Bei der Funktion "MPI_A_GetDLLError" kommt (egal welche Fehlernummer) immer ein leerer String zurück.
Hat jemand eine Ahnung woran das liegen könnte?
Hier noch etwas code:
Code: Alles auswählen
<DllImport("mpia32_v60_vb.dll")> _
Public Shared Function MPI_A_GetDLLError(ByVal Handle As Integer, ByVal ErrorString As String, ByVal ErrorNo As UShort) As Integer
End Function
Private Function ReadBitValue(ByVal data As SPSRequestInfo) As Boolean
Dim Buffer As Byte
Dim ENr As Short
Dim ErrStr As String = "" '= New String(Chr(0), 255)
If (data.GetBit < 0 OrElse data.GetBit > 7) Then
Throw New ArgumentException("Ungültige Bit-Nummer")
End If
If (MHJ.MPI6_ReadByte(Me.m_Handle, MHJ.SPSOperanden.DB, data.GetByte, Buffer, data.GetAnzahl, data.GetDB, ENr) = 0) Then
MHJ.MPI_A_GetDLLError(Me.m_Handle, (ErrStr), ENr)
Throw New SPSException(ENr, (String.Format("Fehler bei ReadBitValue. DB{0}.DBX{1}.{2}" & vbCrLf & "{3}", data.GetDB, data.GetByte, data.GetBit, ErrStr)))
End If
If (Buffer And 2 ^ data.GetBit) = 2 ^ data.GetBit Then
Return True
Else
Return False
End If
End Function