Delphi中的pchar()的指针函数 VB.net 中有什么相对应.

[Q832198]

delphi 中 str:=pchar(msg.lparam);
msg.lparam 这个地址 对应的 str字符

vb.net 中应当如何写的
几年前都写过的 一下子忘记了.

请指教 先谢了.

[Q832198]

谢谢楼上的好意
因有项目 必须把这个 Delphi 转为 .net.

[鸭梨山大帝]

VB.NET中不需要去访问地址.

直接赋值

[鸭梨山大帝]

m.LParam
<== 这个是你的非托管代码中的类吗?
如果是,没问题.

如果不是,而是托管代码中的类的实例,这样取有问题.

[Quote=引用 4 楼 q832198 的回复:]

搞掂了 使用了 该死的 万恶的 美帝国主义的 www.google.com.hk

感谢 《VB.NET中指针和非托管内存的应用》

Imports System.Runtime.InteropServices

str=Marshal.PtrToStringAnsi(m.LParam)
[/Quote]

[Q832198]

看来 CSDN 没什么人嘛

[Q832198]

搞掂了 使用了 该死的 万恶的 美帝国主义的 www.google.com.hk

感谢 《VB.NET中指针和非托管内存的应用》

Imports System.Runtime.InteropServices

str=Marshal.PtrToStringAnsi(m.LParam)

[wanbotang]

VB6的StrPtr,以下是.NET 实现
Public Function StrPtr(ByVal str As String) As Integer
Dim GC As System.Runtime.InteropServices.GCHandle = System.Runtime.InteropServices.GCHandle.Alloc(str, Runtime.InteropServices.GCHandleType.Pinned)
Dim ret As Integer = GC.AddrOfPinnedObject.ToInt32
GC.Free()
Return ret
End Function