AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi Stück VB.NET nach Delphi übersetzen?

Stück VB.NET nach Delphi übersetzen?

Ein Thema von AlexII · begonnen am 10. Apr 2011 · letzter Beitrag vom 10. Apr 2011
Antwort Antwort
AlexII

Registriert seit: 28. Apr 2008
1.707 Beiträge
 
FreePascal / Lazarus
 
#1

Stück VB.NET nach Delphi übersetzen?

  Alt 10. Apr 2011, 12:39
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()
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat
Benutzerbild von Phoenix
Phoenix
(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.516 Beiträge
 
#2

AW: Stück VB.NET nach Delphi übersetzen?

  Alt 10. Apr 2011, 12:42
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.
Sebastian P.R. Gingter
不死鳥 Visit my Blog.
Do not argue with an idiot. They lower you to their level and then try to beat you with experience.
  Mit Zitat antworten Zitat
alfold

Registriert seit: 29. Jun 2010
Ort: Neustrelitz
393 Beiträge
 
Delphi 7 Enterprise
 
#3

AW: Stück VB.NET nach Delphi übersetzen?

  Alt 10. Apr 2011, 12:48
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
  Mit Zitat antworten Zitat
AlexII

Registriert seit: 28. Apr 2008
1.707 Beiträge
 
FreePascal / Lazarus
 
#4

AW: Stück VB.NET nach Delphi übersetzen?

  Alt 10. Apr 2011, 12:53
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.
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat
AlexII

Registriert seit: 28. Apr 2008
1.707 Beiträge
 
FreePascal / Lazarus
 
#5

AW: Stück VB.NET nach Delphi übersetzen?

  Alt 10. Apr 2011, 12:54
Warum verwendest Du nicht die Delphidemos für Bass?
Dafür gibt's kein Demo... leider.
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat
Benutzerbild von wicht
wicht

Registriert seit: 15. Jan 2006
Ort: Das schöne Enger nahe Bielefeld
809 Beiträge
 
Delphi XE Professional
 
#6

AW: Stück VB.NET nach Delphi übersetzen?

  Alt 10. Apr 2011, 12:59
Die Funktion BASS_SetConfigPtr() wird in dieser Demo benutzt: Bass\delphi\netradio\Unit1.pas

HTH
http://streamwriter.org

"I make hits. Not the public. I tell the DJ’s what to play. Understand?"
  Mit Zitat antworten Zitat
alfold

Registriert seit: 29. Jun 2010
Ort: Neustrelitz
393 Beiträge
 
Delphi 7 Enterprise
 
#7

AW: Stück VB.NET nach Delphi übersetzen?

  Alt 10. Apr 2011, 13:04
Netradio in den Demos! und der Rest steht doch in der Hilfe

mist zu langsam

gruss alfold
  Mit Zitat antworten Zitat
AlexII

Registriert seit: 28. Apr 2008
1.707 Beiträge
 
FreePascal / Lazarus
 
#8

AW: Stück VB.NET nach Delphi übersetzen?

  Alt 10. Apr 2011, 13:09
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!
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:55 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf