String aus der Adresse in VB.NET

Question

In meiner VB.NET-Anwendung verwende ich eine Funktion von einer DLL, die mir eine Zeichenfolge geben soll. Beim Aufruf der Funktion gibt mir der Callback die Länge dieser Zeichenfolge und eine Adresse anstelle der Zeichenfolge selbst.

Ich habe versucht, die Zeichenfolge mit diesem Code zu bekommen, aber ich denke, es ist für VB klassischen gemeint war, nicht für VB.NET:

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Object, ByVal Source As Object, ByVal Length As Long) 
Private Declare Function lstrlenA Lib "kernel32" (ByVal lpString As Long) As Long 

Private Function pvToString(ByVal lPtr As Long) As String 
    If lPtr <> 0 Then 
    pvToString = String(lstrlenA(lPtr), 0) 
    Call CopyMemory(ByVal pvToString, ByVal lPtr, Len(pvToString)) 
    End If 
End Function 

I 4 Fehler bekommen, und ich weiß nicht, wie loswerden von ihnen:

1. '.' erwartet (für die Leitung 5 für String)
2. 'String' ist eine Typ-Klasse und nicht als Ausdruck verwendet werden kann (Zeile 5)
3. Expression erwartet (für die Leitung 6 für ByVal)
4. Expression erwartet (für Zeile 6 für ByVal)

Sorry, wenn meine Frage dumm ist. Ich bin ein Starter in der Programmierung und VB.NET

Answer 1

Sieht aus wie Ihre Erklärung etwas wie

Private Declare Function lstrlenA Lib "kernel32" (ByVal lpString As Long) As String 

statt

Private Declare Function lstrlenA Lib "kernel32" (ByVal lpString As Long) As Long 

leider keinen Zugang zu Visual Studio haben sollte jetzt zu testen Dies. Aber es sieht so aus, als ob es falsch läuft.

PS: Deklaration könnte auch für die andere Funktion falsch sein. versuchen Sie, ByVal

Answer 2

Erste über Fehler:
1 und 2: verwenden Sie stattdessen neue Zeichenfolge ('', len).
3 und 4: entfernen call und ByVal
und alle Long Variablen und Argument als integer lstrlen erwarten werden erklären müssen, die als IntPtr deklarieren werden sollte.
sowieso sollte man alles vergessen. wenn Sie einen Zeiger (IntPtr) haben und die Sie konvertieren möchten es auf String, der je nach Ihrer String-Typ können Sie ganz einfach nutzen:
dim myString als string = System.Runtime.InteropServices.Marshal.PtrToStrXXXX (MyPSZString)