Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten
Autor
Nachricht
philkenobi
Newbie
Newbie

Anmeldedatum: 18.08.2009
Beiträge: 2

Delphi "pchar" Äquivalent in VB .net
Verfasst am: 18.08.2009, 16:17

Hallo,

ich schreibe gerade einen Delphi Code in VB .net um und hänge derzeit an einem Befehl von Delphi.
Über eine Schnittstelle soll folgendes gesendet werden: pchar(String), length(String)
Die Länge eines Strings ist einfach über Len(String) in VB bestimmbar.
Bei pchar hab ich so meine liebe Mühe. Pchar ist wohl ein Pointer der auf das erste Zeichen eines Strings zeigt.

Ich habe es in VB .net erstmal so gelöst:

System.Runtime.InteropServices.Marshal.StringToBSTR(mid(String,1,1) soll quasi das pchar(String) Äquivalent sein.

Lieg ich da irgendwie richtig oder muss ich das völlig anders lösen. Leider gibt es ja die StrPtr Funktion nur bis VB 6.

Danke im Voraus.
philkenobi
 
philkenobi
Newbie
Newbie

Anmeldedatum: 18.08.2009
Beiträge: 2


Verfasst am: 20.08.2009, 10:59

Habe es nochmal verändert:

Code:
Dim message As String
Dim pointer As String
Dim stringarray(1) As Char
Dim i As UShort
......
ReDim stringarray(Len(message))

 For i = 0 To Len(message)
stringarray(i) = Mid(message, i + 1, 1)
Next

pointer = System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(stringarray, 1)
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten

Tags: delphi, pchar, mid

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Problem mit always on top funktion 1106 30.10.2009, 12:26
Keine neuen Beiträge IntStr()funktion 1303 11.10.2007, 09:49
Keine neuen Beiträge TopMost Funktion unter DirectX 1021 27.07.2007, 11:48
Keine neuen Beiträge Wie Funktion nutzen ? 1213 29.06.2007, 21:59
Keine neuen Beiträge update funktion einbauen 1455 29.01.2007, 00:11
 


[ Time: 0.3674s ][ Queries: 85 (0.2252s) ][ GZIP on - Debug on ]