[Komponente] Bass Player Komponente: TBassDLLPlayer (+Demos)

[bksoft]

Hallo,

was kann man bei dem Fehler "Die standard Aufnahmequelle kann nicht gestarted werden" machen (Vista) bzw. was muss man bei Vista einstellen damit er die Aufnahmequelle findet?

Bei TBassdllPlayer.Create steht

if not BASS_RecordInit(0) then
begin
BASS_RecordFree;
BASS_Free();
ShowMyMessage('Die standard Aufnahmequelle kann nicht gestarted werden.', TRUE);
halt;
end;

Da ich nur abspielen will, kann man den Part auf REM setzen?


Edit: habs auf REM gesetzt und ist ok :)

[Webo]

Hallöle,

ich bin durch Zufall auf die Komponente gestoßen und will sie jetzt unbedingt ausprobieren ...
Ich nutze D2009. Ich bekomm die sie aber leider nicht installiert, ich erhalte eine Zugriffsverletzung !

Also:
- Bass.dll in der "richtigen" Version liegt vor, auch im richtigen Ordner
- Compilieren funktioniert einwandfrei
- Bei "Installieren" macht er alles brav, bis zum Schluss, da stürtzt er ab mit folgender Meldung:
"Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000."
Hier der detailierte Bericht (falls du/ihr was damit anfangen könnt):

Code:

[510FB86C]{exceptiondiag120.bpl} JclDebug.TJclDebugInfoExports.GetLocationInfo (Line 2925, "JCLDebug.pas" + 9) + $A
[50006BF4]{rtl120.bpl  } System.TObject.Free (Line 9806, "System.pas" + 1) + $4
[50008061]{rtl120.bpl  } System.FinalizeUnits (Line 12842, "System.pas" + 20) + $0
[500080DE]{rtl120.bpl  } System.InitUnits (Line 12989, "System.pas" + 26) + $0
[500080C9]{rtl120.bpl  } System.InitUnits (Line 12984, "System.pas" + 21) + $0
[5000813A]{rtl120.bpl  } System.@PackageLoad (Line 13005, "System.pas" + 8) + $0
[500299D7]{rtl120.bpl  } SysUtils.InitializePackage (Line 18395, "SysUtils.pas" + 4) + $0
[50029B2F]{rtl120.bpl  } SysUtils.LoadPackage (Line 18445, "SysUtils.pas" + 18) + $5
[21565CE7]{delphicoreide120.bpl} PasCppPakMgr.TIDEDesignPackage.ClearModules (Line 713, "PasCppPakMgr.pas" + 14) + $10
[2071BB84]{coreide120.bpl} PakLoad.TPackage.DoLoadPackage (Line 143, "PakLoad.pas" + 0) + $8
[2071BCF9]{coreide120.bpl} PakLoad.TPackage.Load (Line 217, "PakLoad.pas" + 7) + $7
[207DD739]{coreide120.bpl} PakMgr.TDesignPackage.Load (Line 575, "PakMgr.pas" + 2) + $2
[215660AF]{delphicoreide120.bpl} PasCppPakMgr.TIDEDesignPackage.Load (Line 828, "PasCppPakMgr.pas" + 4) + $3
[500071DD]{rtl120.bpl  } System.@AfterConstruction (Line 10616, "System.pas" + 2) + $5
[21565E91]{delphicoreide120.bpl} PasCppPakMgr.TIDEDesignPackage.DelayLoad (Line 748, "PasCppPakMgr.pas" + 11) + $4
[2156D5AC]{delphicoreide120.bpl} PakList.TPackageListItem.LoadWait (Line 849, "PakList.pas" + 3) + $4
[2156D530]{delphicoreide120.bpl} PakList.TPackageListItem.LoadDesignPackage (Line 827, "PakList.pas" + 15) + $5
[2156C743]{delphicoreide120.bpl} PakList.TPackageListItem.SetIsInstalled (Line 531, "PakList.pas" + 7) + $3
[2156C519]{delphicoreide120.bpl} PakList.TPackageList.AddPackage (Line 445, "PakList.pas" + 13) + $5
[215B5EFE]{delphicoreide120.bpl} BasePasProjOpts.TProjectOptions.IsAPackage (Line 2998, "BasePasProjOpts.pas" + 1) + $B
[215B3E0B]{delphicoreide120.bpl} BasePasProjOpts.TProjOptsManager.InstallPackage (Line 2045, "BasePasProjOpts.pas" + 8) + $5
[215B5EE7]{delphicoreide120.bpl} BasePasProjOpts.TProjectOptions.InstallPackage (Line 2993, "BasePasProjOpts.pas" + 0) + $3
[215D5081]{delphicoreide120.bpl} PasMgr.TPascalPackageCodeUpdater.InstallPackage (Line 11362, "PasMgr.pas" + 17) + $19
[2155D025]{delphicoreide120.bpl} PkgContainers.TStdPackageProjectContainer.CommandHandler (Line 153, "PkgContainers.pas" + 5) + $5
[207D56C9]{coreide120.bpl} Containers.TStdContainer.CommandHandler (Line 3133, "Containers.pas" + 1) + $17
[501C3CDB]{vcl120.bpl  } Menus.TMenuItem.Click (Line 2515, "Menus.pas" + 19) + $8
[501C532F]{vcl120.bpl  } Menus.TMenu.DispatchCommand (Line 3378, "Menus.pas" + 5) + $2
[501C6586]{vcl120.bpl  } Menus.TPopupList.WndProc (Line 4484, "Menus.pas" + 4) + $E
[501C64D5]{vcl120.bpl  } Menus.TPopupList.MainWndProc (Line 4459, "Menus.pas" + 2) + $5
[50057E04]{rtl120.bpl  } Classes.StdWndProc (Line 12723, "Classes.pas" + 8) + $0
[501F9EAB]{vcl120.bpl  } Forms.TApplication.ProcessMessage (Line 9613, "Forms.pas" + 23) + $1
[501F9EEE]{vcl120.bpl  } Forms.TApplication.HandleMessage (Line 9643, "Forms.pas" + 1) + $4
[501FA219]{vcl120.bpl  } Forms.TApplication.Run (Line 9780, "Forms.pas" + 26) + $3
[004259D2]{bds.exe     } bds.bds (Line 196, "" + 7) + $7

Ich hoffe, ich könnt mir helfen ...


MfG

Webo

[ddcool]

Habe das gleiche Problem!
Benutze RAD Studio 2010.

Lg ddcool

[Larsi]

Hi,

wie kann ich wenn ich einen Webstream wiedergebe die Bitrate rausbekommen? Geht das mit der Komponente oder muss ich da auf wa anderes ausweichen, wenn ja was?

[turboPASCAL]

Nicht ohne weiteres.

Du müsstes bei "procedure TBassPlayer.GetNetStreamInfo(ErgebnisListe: TStrings);"
den die Parameter von "BASS_ChannelGetTags(Channel, BASS_TAG_META);" ändern und noch einiges hinzufügen.

Wenn du ein Netradio bauen willst guck dir mal das Demo zur bass24 an.
Das wird von denen frei Haus mitgeliefert.

[Webo]

Keiner eine Idee, wie ich mein Problem oben lösen kann ?

[Oliver1983]

Hi,

hat schon jmd erfolgreich auf Delphi 2009 oder Delphi 2010 die Komponente installiert bekommen?

gruss olli

[StevenArt]

Wie installiert man des Ding in Delphi 7?
Wenn ich des Package installieren will,
kommt des: Bass.dll nicht gefunden.
-->Der Screenshot is als Anhang Dabei<--

[Sanguis]

Hallo,

sorry das ich mir, auch wegen der Uhrzeit, nicht den ganzen Thread durchlese.

Erstmal: Klasse Arbeit die Compo, endlich bekomm ich Musik abgespielt.

Mein Hauptproblem ist, das ich keine Lautstäeregelung hinbekomme.
Folgender Code macht einfach nichts:

Delphi-Quellcode:

 form1.bsSkinSlider1.Value := form1.BassdllPlayer1.Volume;

Auch die umgekehrte Variante hat keinen Effekt.

Mein zweites (kleineres) Problem ist:

Ich nutze einen SplashScreen. Beim onShow in der unit1 wird der Stream tadellos geladen. Im onShow der unit2 (dem SplashSceen) bekomme ich aber eine AcessViolation. Ich will aber nicht, das noch was geladen wird, wenn der SplashScreen schon wieder geschlossen ist.

Gruß und angenehme Nachtruhe,
Andreas

[pwSolaris]

Zitat:

Zitat von Webo (Beitrag 950323)

Hallöle,

ich bin durch Zufall auf die Komponente gestoßen und will sie jetzt unbedingt ausprobieren ...
Ich nutze D2009. Ich bekomm die sie aber leider nicht installiert, ich erhalte eine Zugriffsverletzung !

Also:
- Bass.dll in der "richtigen" Version liegt vor, auch im richtigen Ordner
- Compilieren funktioniert einwandfrei
- Bei "Installieren" macht er alles brav, bis zum Schluss, da stürtzt er ab mit folgender Meldung:
"Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000."
Hier der detailierte Bericht (falls du/ihr was damit anfangen könnt):


Ich hoffe, ich könnt mir helfen ...


MfG

Webo

Habe das gleiche Problem auch unter Delphi 2010. Gibt es da nun eine Lösung oder kann man die Benutzung unter Delphi 2010 vergessen?

[zano972]

Hi alle,

Erst: bitte ich um entschuldigung... Meine deutsche Sprache ist bestimmt nicht das bestens :pale: (ich bin französe) aber ich bin auch durch Zufall auf dieser Komponent gestoßen und finde ich es wirklich nutzbar, praktisch... Das is - meine Meinung nach - Shade dass das ding kann nicht mehr funktionnieren nur wegen bass versionnen...

Ich möchte gerne mp3 stream direkt von TMemoryStream spielen können (ohne 'temp.xxx files on disk')...

ic habe noch alten Delphi v6 und 7 versionnen und möchte gern der Komponent wieder voll in funktion bringen... (und wieso nicht auch mit letzen bass versionnen 2.X, etc.)

meine Fragen:

1.) Weiss einer von euch mit welchen Version funktionniert die acktuelle TBassDLLPlayer ?
(ich habe probiert mit bass v0.8, bass 1.3 / Delphi v7 und funktionniert nicht)
2.) Ist es erlaubt das irgend jemand bringt aenderung in die aktuelle Komponent quelle code ?

Danke sehr für eventuelle antworten.

Tchuss.

[010101]

hallo,

Ich hab mir die tbassdllplayer_414.rar runtergeladen (entpackt) und ne bass.dll ins lib verzeichnis gepackt. Dann compiliert und versuch zu installieren. Dann sagt er aber
"der pozedureinsprungpunkt"BASS_CannelSlideAttributes"w urde in der bass.dll nicht gefunden.

die bass.dll ist von http://www.un4seen.com/

ich denke das ich ne andere bass.dll brauche. hat noch jemand eine die in D7 funktioniert hat?


mfg

[hathor]

Das Problem ist die unterschiedliche Schreibweise in der BASS.DLL und in einem File.

BASS_ChannelSlideAttributes heisst in der DLL: BASS_ChannelSlideAttribute
Solche Fehler gibt es mehrere.

Ich bin gerade dabei, das im File bass203.pas zu korrigieren.

[010101]

Zitat:

Zitat von hathor (Beitrag 1282154)

Das Problem ist die unterschiedliche Schreibweise in der BASS.DLL und in einem File.

BASS_ChannelSlideAttributes heisst in der DLL: BASS_ChannelSlideAttribute
Solche Fehler gibt es mehrere.

Ich bin gerade dabei, das im File bass203.pas zu korrigieren.

alles klar :thumb:

[hathor]

Da hat jemand ganz schön gepfuscht:

In der UNIT Bass_Dynamic.pas steht:
CONST BASSSize= 95288;

Das heisst, man kann NUR die BASS.DLL mit dieser exakten Länge nehmen.
Die habe ich auch gefunden, aber es fehlen wichtige Funktionen.
Es gibt nur 92 exportierte Funktionen, andere haben bis zu 98!

ALLES MIST!

[010101]

kannst du die bass.dll mal zu verfügung stellen, oder bist du noch am korrigieren.

[hathor]

Ich habe im Anhang 4 verschiedene BASS.DLL-Versionen.

EXP92_2104__bass
EXP96_2301__bass
EXP98_2410__bass
EXP98_241025__bass

Exportierte Funktionen, Version.

Vielleicht schaffst Du es, eine funktionierende Version zum Installieren unter XE7 zu erstellen, ggf. ohne dynamische Einbindung.

[010101]

ich habe nur ein D7 kein XE7. aber vielleicht kann sich turbo pascal der sache mal annehmen.

mfg

[DeddyH]

Zitat:

Das Projekt wird nicht weiter entwickelt oder unterstützt.

Klingt für mich ziemlich eindeutig :roll: