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

[turboPASCAL]

Das Projekt wird nicht weiter entwickelt oder unterstützt.

KOMPONENTE Update 20.08.2006

Beschreibung:

Komponente zum einfachen Einbinden der BASS.DLL Funktionen, wobei die BASS.DLL als Unit dynamisch eingebunden ist (BASS.DLL muss nicht extra als Datei weitergeben werden).

Package ist mit Delphi 6 erstellt, für Versionen unter Delphi 6 sollte ein neues erstellt werden.

Name: TBassDLLPlayer
Version: 1.26
Features:

• Abspielen aller Bass.DLL Formate (*.WAV;*.MP3;*.MP2;*.MP1;*.OGG; *.MO3;*.IT;*.XM;*.S3M;*.MTM;*.MOD;*.UMX')
• Einfache Effekte (Echo, Flanger...)
• Visualisierung
• Aufnamefunktion (nicht Getestet)

Bugs:

• Anzeige Position/Länge beim Abspielen noch nicht i.O.
• Aktuelle Position von MOD - Files (Zeigt im Moment nur die Gesamtlänge)

Eine Erweiterte Komponente (+ Demo) BassPlayerEx zu diesem Thema hat omata geschrieben.
Mit ihr ist es möglich mehrere Sound-Kanäle gleichzeitig abzuspielen. Unbedingt Sehenswert. Preview


DEMOPROGRAMME

Beschreibung: Demoplayer Update 20.06.2005
Programm: BassPlayer Preview
Version: 1.06
Features:

• einfache Playlist
• einfache Visualisierung
• Abspielen aller Bass.DLL Formate (siehe TBassDLLPlayer)

Demo-Player in der Version 1.09b

Programm: SimplePayer Demos
Beschreibung: Verschiedene einfache Demo Player
Features:

• Datei öffnen und Wiedergabe (SimplePlayer 1)
• Wiedergabegeschwindigkeit (SimplePlayer 2)
• Visualisierung (LeftPeak, RightPeak) (SimplePlayer 3)
• Equalizer (SimpleEQ)
• Wiedergabe aus der Resource (SimpleRes)

Update:

Ich habe nun noch eine zweite Version namens TBassPlayer mit den selben Features wie TBassDLLPlayer
mit hinzugefügt. Diese Version benutzt die externe BASS.DLL (Version 2.3).

Getestet unter OS: Win98 (+DirectX) / Win2000 / WinXP
Nicht Getestet: Zusammenarbeit von mehreren BassDLLPlayern in einem Programm.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~

Autor ....: Gandalfus (TBassDLLPlayer Version 1.00) Homepage: www.blubplayer.de
Edit by ..: turboPASCAL

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~
Weiterhin gelten die Lizenen der BASS.DLL Autoren. http://www.un4seen.com/


Das Projekt wird nicht weiter entwickelt oder unterstützt.
Es kann zu Problemen bei der Installation kommen wenn andere / neuere Bass.dll-Versionen im Windows bzw. Windows/System32/-Verzeichnis
vorhanden sind. Da die Entwickler der Bass-Lib un4seen ihr Projekt stehst weiter entwickeln
und ggf. grössere Änderungen vornehmen, kann ich diese Komponente nicht immer, aus Zeitgründen, auf den aktuellen Stand halten.

Bei Delphiversionen ab D2007 lässt sich die Komponente laut eineigen Usern nicht installieren oder verwenden.

[Chaosente]

Ich verstehs nicht argh

Ich habs mir die Kompo runtergeladen ins lib verzeichnis geschmisspkg.en. Dann die bassdll.dpk geöffnet compiliert und versuch zu installieren. Dann sagt er aber er hätte die bass.dll nciht gefunden...

Ich dachte für die kompo braucht man die Bass.dll nciht mehr, oder mach ich bei der Installation was falsch?

btw: hab delphi 2005 PE kanns daran liegen?

[Cyberbob]

Wie im ersten Post schon steht, sind in dem Package zwri Komponenten enthalten, die eine Benutzt keine Bass.dll und die andere verwendet sie noch in der neuesten Version. Somit hast du auch noch mehr Funktionen, die du evtl. nutzen kannst!

[Chaosente]

muss ich dann was aus dem package löschen oder die bass.dll irgendow hinspeichern?

edit: hab mir jetzt die bass.dll ins lib verzeihnis geschoben und es hat geklappt mit der installtion, danke für eure tatkräftige hilfe

[Cyberbob]

@TP: Hab jetzt nochmal ein wenig herum experimentiert, weil mir der Fehler nicht mehr aus dem Kopf gegangen ist und konnte ihn jetzt mal einkreisen. Er tritt auf, wenn der Equalizer aktiviert ist und auch nur bei Liedern mit niedriger Bitrate.

Wenn du willst, kann ich dir mal so ein Liad per Mail oder PM schicken!

[turboPASCAL]

Zitat von Cyberbob:

... Er tritt auf, wenn der Equalizer aktiviert ist und auch nur bei Liedern mit niedriger Bitrate.

Das liegt an scheind an der Bass.dll. Ich habe das schon mal mit bekommen als ich ein Demo nur mit der Bass-API programiert habe.

[Cyberbob]

Ich verwende die Kompo ohne Bass.dll.
Wie kann ich den Fehler vermeiden?

Gruss
Christian

[turboPASCAL]

Wenn ich das wüsste...

Habe aber leider nicht die Zeit mich damit genauer zu befassen.

[Dana]

Hallo Turbo Pascal,

ich habe mit Deinen Komonenten BassdllPlayer versucht die Lautstärke eines Internetstreams zu verändern. Ging leider nicht. Deshalb habe ich folgende Zeilen in Deine Unit eingefügt. Ist das in Ordnung. Oder was habe ich falsch gemacht.


if Modus = moStream then
BASS_SetVolume(Volume);

Delphi-Quellcode:

procedure TBassdllPlayer.SetVolume(Volume: Byte);
var AnzChannels: integer;
begin
  // Begrenzen auf 100
  if Volume > 100 then Volume := 100;

   if Modus = moStream then
  BASS_SetVolume(Volume);

  if Modus = moSamples then
    BASS_SetConfig(BASS_CONFIG_GVOL_STREAM, Volume);

  if Modus = moMusik then
  begin
    AnzChannels := 0;
    while (BASS_MusicSetAttribute(Channel, BASS_MUSIC_ATTRIB_VOL_CHAN + AnzChannels, 1) <> DWord(-1)) do
    begin
      BASS_MusicSetAttribute(Channel, BASS_MUSIC_ATTRIB_VOL_CHAN +  AnzChannels, Volume);
      inc(AnzChannels);
    end;
  end;
end;

[Cyberbob]

[EDIT]Määäh blödsinn. Kann gelöscht werden. Ich muss mal zum Augenarzt[/EDIT]

[turboPASCAL]

Zitat von Dana:

Hallo Turbo Pascal,

ich habe mit Deinen Komonenten BassdllPlayer versucht die Lautstärke eines Internetstreams zu verändern. Ging leider nicht. Deshalb habe ich folgende Zeilen in Deine Unit eingefügt. Ist das in Ordnung. Oder was habe ich falsch gemacht.

Ja und nein. BASS_SetVolume setzt die globale Lautstärke also das Mastervolume.
( So was kann ich pers. nicht leiden wenn mir ein Prg. meine Einstellung verstellt )


Die richtige Korrektur sollte zB. so aussehen:

Delphi-Quellcode:

procedure TBassdllPlayer.SetVolume(Volume: Byte);
var AnzChannels: integer;
begin
  // Begrenzen auf 100
  if Volume > 100 then Volume := 100;

  case Modus of
    moStream,
    moSamples: BASS_SetConfig(BASS_CONFIG_GVOL_STREAM, Volume);
    moMusik:
      begin
        AnzChannels := 0;
        while (BASS_MusicSetAttribute(Channel,
          BASS_MUSIC_ATTRIB_VOL_CHAN + AnzChannels, 1) <> DWord(-1)) do
        begin
          BASS_MusicSetAttribute(Channel, BASS_MUSIC_ATTRIB_VOL_CHAN +  AnzChannels, Volume);
          inc(AnzChannels);
        end;
      end;
  end;
end;

Werde es bei Gelegenheit korrigieren.

//Edit: ich glaube bei GetVolume ist das der selbe Fall/Fehler "moStream" fehlt da wolh auch.