Hi Tobi,
habe es mal so Probiert:
Public Delegate Function MySRead(ByVal buff As Byte, ByVal Leg As Integer) As Integer
<DllImport("streamreader.dll")> _
Public Shared Function SetFilter(ByVal PID As Integer, ByVal ReadDataFunction As MySRead, ByVal CallBackTyp As Long, ByVal Size As Long, ByVal filter_num As Long) As Boolean
End Function
Shared Function ReadDataFunction(ByVal buff As Byte, ByVal Leg As Integer) As Integer
A2 = buff
A1 = Leg
End Function
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
RichTextBox1.Text = RichTextBox1.Text & Chr(13) & "SetFilter " & Streame.SetFilter(10, AddressOf Streame.ReadDataFunction, 2, 1, &H0)
End Sub
Wenn ich so aufrufe bekomme ich diesen Fehler:
"Eine nicht behandelte Ausnahme des Typs 'System.NullReferenceException' ist in Streamreader.exe aufgetreten.
Zusätzliche Informationen: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt."
Wenn ich Integer als Object deklariere bekomme ich diesen Fehler:
"Eine nicht behandelte Ausnahme des Typs 'System.Runtime.InteropServices.MarshalDirectiveException' ist in Streamreader.exe aufgetreten.
Zusätzliche Informationen: PInvoke-Einschränkung: Es können keine Varianten zurückgegeben werden."
Ich finde die Fehlerquelle nicht.
Gruß
Harald
