Hallo,
hab ein kleines Problem, möchte ein Stück VB.NET Code nach Delphi umschreiben, kann aber nicht so gut VB.Net deswegen klappt das bei mir nicht so sehr. Hier der Code:
Code:
Private _userAgentGCH As GCHandle
...
Dim userAgent As String = "BASS.NET"
Dim userAgentBytes As Byte() = Encoding.ASCII.GetBytes(userAgent)
' create a pinned
handle to our managed object
_userAgentGCH = GCHandle.Alloc(userAgentBytes, GCHandleType.Pinned)
' use the pointer to the string
Bass.BASS_SetConfigPtr(BASSConfig.BASS_CONFIG_NET_AGENT, _userAgentGCH.AddrOfPinnedObject())
...
' make sure to free the
handle when you don't need it anymore!
' e.g. when you dispose your class or application
_userAgentGCH.Free()