Einige API-Funktionen geben anstatt eines Strings desses Pointer (Zeiger auf den String im Speicherbereich) zurück. Mit nachfolgender Funktion lässt sich der String anhand dessen Zeiger aus dem Speicherbereich ermitteln: Option Explicit ' benötigte API-Deklarationen Private Declare Function lstrcopy Lib "kernel32" _ Alias "lstrcpyA" ( _ ByVal lpString1 As String, _ ByVal lpString2 As Long) As Long Private Declare Function lstrlen Lib "kernel32" _ Alias "lstrlenA" ( _ ByVal lpString As String) As Long Public Function GetStringFromPointer(ByVal lpStrPointer As Long) As String ' String anhand String-Pointer aus dem Speicher ' auslesen und zurückgeben Dim nLen As Long Dim sBuffer As String ' Länge des Strings nLen = lstrlen(lpStrPointer) ' Rückgabewert: Benötigte Größe festlegen sBuffer = Space$(nLen) ' String aus Speicheradresse auslesen... lstrcopy sBuffer, lpStrPointer If InStr(sBuffer, vbNullChar) > 0 Then sBuffer = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1) End If ' ...und zurückgeben GetStringFromPointer = sBuffer End Function Beispiel zur Demonstration: Dim lpStrPointer As Long Dim sText As String sText = StrConv("www.vbarchiv.de", vbFromUnicode) lpStrPointer = StrPtr(sText) ' String anhand des String-Pointers aus dem ' Speicher lesen MsgBox GetStringFromPointer(lpStrPointer) Dieser Tipp wurde bereits 13.320 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevZIP40 Pro DLL Zippen und Unzippen wie die Profis! Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |