Stück VB.NET nach Delphi übersetzen?

[AlexII]

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()

[Phoenix]

Delphi ist nicht .NET, das heisst Du kannst Code der für .NET geschrieben ist nicht unbedingt portieren.

Diesen Teil hier musst Du auch nicht unbedingt portieren. Der Code den Du da hast ist dafür zuständig, dass .NET als Managed Umgebung mit einer unmanaged DLL umgehen kann. Delphi ist aber nicht managed und kann die DLL daher direkt benutzen ohne irgendwelche Handles in der (in Delphi nicht vorhandenen) Garbage collection zu behalten.

Will heissen: Du brauchst das gar nicht portieren.

[alfold]

Warum verwendest Du nicht die Delphidemos für Bass?
Dann brauchst Du Dir für die Umsetzung weniger Kopf zerbrechen
Ich weiss, ist zwar keine Hilfe wie man es macht, sollte auch nur als Anregung dienen.

alfold

[AlexII]

Eigentlich will ich das nur umschreiben, weiß nicht wie das in der Fachsprache heiß, also sowas ähnliches schreiben halt.

Hab hier in der Doku was gefunden... aber kopiere das nicht, hab in Delphi mit Pointer noch nicht gearbeitet.

Code:

Sets the value of a pointer config option.

BOOL BASS_SetConfigPtr(
    DWORD option,
    void *value
); 


Parameters
option The option to set the value of... one of the following.
BASS_CONFIG_NET_AGENT "User-Agent" header.  
BASS_CONFIG_NET_PROXY Proxy server settings.  
other config options may be supported by add-ons, see the documentation.  
 
value The new option setting. See the option's documentation for details on the possible values. 


Return value
If successful, TRUE is returned, else FALSE is returned. Use BASS_ErrorGetCode to get the error code.

[AlexII]

Zitat von alfold:

Warum verwendest Du nicht die Delphidemos für Bass?

Dafür gibt's kein Demo... leider.

[wicht]

Die Funktion BASS_SetConfigPtr() wird in dieser Demo benutzt: Bass\delphi\netradio\Unit1.pas

HTH

[alfold]

Netradio in den Demos! und der Rest steht doch in der Hilfe

mist zu langsam

gruss alfold

[AlexII]

Hab's schon

Delphi-Quellcode:

myUserAgent: array [0..99] of char;

myUserAgent:='My Player 1.0';
Bass_SetConfigPtr(BASS_CONFIG_NET_AGENT, @myUserAgent[0]);

Thx an alle!