AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte [Komponente] Bass Player Komponente: TBassDLLPlayer (+Demos)
Thema durchsuchen
Ansicht
Themen-Optionen

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

Ein Thema von turboPASCAL · begonnen am 2. Jun 2005 · letzter Beitrag vom 5. Dez 2014
Antwort Antwort
Seite 15 von 34   « Erste     5131415 161725     Letzte »    
Benutzerbild von turboPASCAL
turboPASCAL
Registriert seit: 8. Mai 2005
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.
Angehängte Dateien
Dateityp: zip simpleplayerdemos-source_397.zip (46,5 KB, 1242x aufgerufen)
Dateityp: zip demoplayer-source_456.zip (16,6 KB, 1274x aufgerufen)
Dateityp: zip tbassdllplayer_414.zip (321,4 KB, 2047x aufgerufen)
Dateityp: zip bassplayerbin_859.zip (282,5 KB, 1262x aufgerufen)
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
 
DummerDickerHase

 
Delphi 7 Professional
 
#141
  Alt 31. Mai 2006, 08:25
Zitat von xaeralx:
kannst mal bitte kurz beschreiben
Weiß nicht mehr genau, ich mein ich hab einfach das "BassDLLpkg.dpk" Package geöffnet, Compiliert und Installiert. Vorher noch die "create-dcr.bat" gestartet, so dass die Kompo noch ein schmuckes Bildchen bekommt
Bei mir lief es wie geschmiert!
  Mit Zitat antworten Zitat
xaeralx
 
#142
  Alt 2. Jun 2006, 13:28
problem ist es bei mir, ich bekomme es nicht mal kompilier, delphi meckert das nicht alle dateien vorhanden sind...
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

 
Delphi 6 Personal
 
#143
  Alt 2. Jun 2006, 16:15
Zitat von xaeralx:
problem ist es bei mir, ich bekomme es nicht mal kompilier, delphi meckert das nicht alle dateien vorhanden sind...
Dann währe es nett wenn du sagst welche. Ohne detalierte Informationen ist es schwer zu helfen.
Matti
  Mit Zitat antworten Zitat
nkaaa

 
Delphi 2005 Personal
 
#144
  Alt 21. Jun 2006, 15:22
Hallo turbopascal,

kann es sein, dass man die Lautstärke beim Abspielen von Internet Streams nicht verändern kann?
oder mache ich irgendetwas falsch mit deiner komponente? Wäre schade, wenn es nicht ginge..

Ansonsten seht gute Arbeit

edit:
ich merke gerade, dass es prizipiell schon geht, wenn ich mein komplettes form mit einem anderen VoLume wert starte.
aber leider funktioniert das verstellen des volume wertes nicht zur Laufzeit zB mit einem + und einem - Button.

trotzdem noch komisch ist, dass wenn ich den player laufen lasse, dann stoppe, dann die Lautstärke ändere und dann zum schluss wieder starten will, dann hat er die Lautstärke nicht verändert.

najo..wie gesagt, hab die Probleme nur mit Internet Streams :/


nkaaa
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

 
Delphi 6 Personal
 
#145
  Alt 22. Jun 2006, 09:33
Hi,

Zitat von nkaaa:
[...] wenn ich mein komplettes form mit einem anderen VoLume wert starte.
aber leider funktioniert das verstellen des volume wertes nicht zur Laufzeit zB mit einem + und einem - Button.
Hä, was ?

Zitat von nkaaa:
trotzdem noch komisch ist, dass wenn ich den player laufen lasse, dann stoppe, dann die Lautstärke ändere und dann zum schluss wieder starten will, dann hat er die Lautstärke nicht verändert.

najo..wie gesagt, hab die Probleme nur mit Internet Streams :/
Ich kann dazu so nix sagen da ich deinen Quellcode nicht kenne.
Matti
  Mit Zitat antworten Zitat
nkaaa

 
Delphi 2005 Personal
 
#146
  Alt 22. Jun 2006, 18:34
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject); //zum Radio starten
begin
  bassdllplayer1.Volume:=LMDspinEdit1.Value; //zB Value = 50 (geht von 0 bis 100)
  bassdllplayer1.PlayNetStream('http://'+edit5.text); //zB [url]http://localhost:8000[/url]
  Bassdllplayer1.GetNetStreamInfo(memo1.lines);
end;

procedure TForm1.Button5Click(Sender: TObject); //zum Musik stoppen
begin
  bassdllplayer1.UnloadChannel;
  memo1.clear;
end;

// und jetzt funktioniert bei mir folgendes nicht, wenn ich den InetStream höre:
// die Lautstärke ändert sich nicht

procedure TForm1.Button6Click(Sender: TObject); //lauter
begin
  bassdllplayer1.Volume:=bassdllplayer1.Volume+10;
end;

procedure TForm1.Button7Click(Sender: TObject); //leiser
begin
  bassdllplayer1.Volume:=bassdllplayer1.Volume-10;
end;
hi, danke schonmal, dass du dir Zeit genommen hast..

hoffe es ist jetzt ausreichend beschrieben

nkaaa
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

 
Delphi 6 Personal
 
#147
  Alt 23. Jun 2006, 11:01
Ha, jane kann ja auch nicht. Kleiner Bug in der Unit.

Ändere (ersetze) mal in der BassDLLPlayer.pas die folgenden Proceduren so:

Delphi-Quellcode:
function TBassPlayer.GetVolume: Byte;
begin
  Result := 0;
  Case Modus of
    moStream,
    moSamples : Result := BASS_GetConfig(BASS_CONFIG_GVOL_STREAM);
    moMusik : Result := BASS_MusicGetAttribute(Channel, BASS_MUSIC_ATTRIB_VOL_CHAN);
  end;
end;

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

  Case Modus of
    moSamples, moStream:
      begin
        BASS_SetConfig(BASS_CONFIG_GVOL_STREAM, Volume);
      end;
    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;
PS.:
Anbei mal eine neue Version die die Bass.dll Version 2.3 unterstützt. In dieser Version wird das einbinden der Bass.Dll nicht unterstützt, das heisst die Bass.dll muss auf dem Rechner vorhanden sein bzw. mitgeliefert werden.
Angehängte Dateien
Dateityp: zip demo_493.zip (113,8 KB, 58x aufgerufen)
Matti
  Mit Zitat antworten Zitat
nkaaa

 
Delphi 2005 Personal
 
#148
  Alt 23. Jun 2006, 18:52
hi funktioniert soweit super

hätte nur noch eine frage:

was unterscheidet die methoden "stop" und "unload channel"?


nkaaa
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

 
Delphi 6 Personal
 
#149
  Alt 23. Jun 2006, 19:57
Zitat von nkaaa:
Was unterscheidet die Methoden "Stop" und "UnloadChannel"?
"Stop" - hält das abspielen an (Play, Stop, Pause)
"UnloadChannel" - inst zum entladen/freigeben der Channels

Im Normalfall brauchst du BassPlayer.UnloadChannel nicht aufrufen, das erledigt BassPlayer.Free.

BassPlayer.UnloadChannel war mal für was ... k.A.
Matti
  Mit Zitat antworten Zitat
sailxia
 
#150
  Alt 26. Jun 2006, 10:37
it's a greate work, but a problem is cannot load Bass's Add_ons to use, can anyone tell me how load the bass's add-ons like basswma.dll, basscd.dll or bass_ac3.dll with TBassDllPlayer? or no ways?

Greets!
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 15 von 34   « Erste     5131415 161725     Letzte »    


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 14:02 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz