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

[BassFan]

Zitat:

Zitat von turboPASCAL

Kommt eine Fehlermeldung etc. ?

LaUp.Font.Color 'Ungültiger Eigenschaftswert'

[Cyberbob]

Dann musst du im Obejektinspektor die Farbwerte von LaUp.Font.Color und LaDown.Font.Colorder Unit BassChannel.pas in clBlack ändern. Bei meinem Delphi (D6) hatte ich das selbe Problem und habs damit lösen können

[BassFan]

Zitat:

Zitat von Cyberbob

Dann musst du im Obejektinspektor die Farbwerte von LaUp.Font.Color und LaDown.Font.Colorder Unit BassChannel.pas in clBlack ändern. Bei meinem Delphi (D6) hatte ich das selbe Problem und habs damit lösen können

Danke geht hier auch :-D
Allerdings schon seltsam das die 6++ die Farbe nicht identifizieren kann.

Grüße

[litsa]

Hi turboPASCAL,

danke für die Antwort...

Code:

procedure TDFSMain.FormCreate(Sender: TObject);
begin
BassdllPlayer1.Volume := 70;
LS.Caption := Format ('%d %%', [BassdllPlayer1.Volume]);
LStrackbar.Position := BassdllPlayer1.Volume;
end;

Code:

procedure TDFSMain.LStrackbarChange(Sender: TObject);
begin 
BassdllPlayer1.Volume := LStrackbar.Position;
LS.Caption := Format ('%d %%', [BassdllPlayer1.Volume]);
end;

Beim Ausführen steht im Label LS 10% und die Trackbar steht auf max. Habe auch die Property Volume auf 70 gesetzt und BassdllPlayer1.Volume := 70; weggelassen aber keine Veränderung...

[turboPASCAL]

@litsa, auf was steht denn der Wert Max im OI bei deiner Trackbar ? :gruebel:

[litsa]

Auf 10..als ob die maximale Lautstärke nur bis 10 gehen würde..also einstellen kann ich nur 1 bis 10 (und das hört sich auch so!)

[donpeppone]

Hallo zusammen!

Ich nutze die BASS-Komponente sowohl als Player wie auch als Recorder.
Da der Player öfters in Remotesessions verwendet wird, ist mir aufgefallen,
dass die Wiedergabe ruckelt. Es hört sich so an, als ob der Track mehrmals
gleichzeitig gestartet wird und nun nicht 100% übereinander liegt.
Dieses Phänomen tritt bei der Nutztung von mstsc also Microzoft TerminalServerClient
auf.
Wollte mal fragen, ob jmd weiß, wodran das liegen könnte. Ob die Dateien
vorher erst gestreamt bzw. zwischengespeichert werden müssten, wie es WinAMP, WinMediaPlayer.. machen.

Will nur nicht nach der Abfrage, ob es sich um eine TerminalServerSession handelt,

Delphi-Quellcode:

function IsRemoteSession:Boolean;
const
 sm_RemoteSession = $1000; // from WinUser.h
begin 
 IsRemoteSession := (GetSystemMetrics(sm_RemoteSession) <> 0); 
end;

dieTMediaPlayer-Komponente nutzen. Das ist ja nicht Sinn der Sache zig Player in
einem zu verwenden.

Hoffe auch, dass ich mit meiner Frage hier an der richtigen Stelle bin. :roll:

Vielen Dank D.P.

[Balu der Bär]

Moin turboPASCAL,

ich hoffe du kannst mir nochmal helfen:
Diesmal möchte ich eine Resource aus einer DLL laden und mittels TBassdllPlayer abspielen, kannst da noch was einbauen für mich? *liebguck*

Oder gibt es nicht einen anderen Weg das ich die Resource aus der DLL mittels deiner Komponente abspielen kann, also das irgendwie selber implementiere?

MfG

Edit: Ups, ich hab die Lösung grad hier gefunden. :oops:

[BassFan]

Beim BassPlayerEx habe ich ein Problem in dieser Zeile

Delphi-Quellcode:

    else if lParam = IPC_GETPLAYLISTFILE then begin
      ReturnStr := StreamInfo.FileName + chr(0);
      p := @ReturnStr;
      inc(p, 1);
      Result := Longint(p);

Mit dem Plugin Trix3.12 werden mir seltsamer weise nur Titel angezeigt
die im Vorspann nicht mehr als 5 Buchstaben haben.

Beispiel ABBA - Das ist ein Test ..... nur ABBA wird angezeigt
Beispiel ABBA22 - Auch ein Test .. nix wird angezeigt.

Fehlt hier eventuell der (index)

Siehe!

Code:

#define IPC_GETPLAYLISTFILE 211
/* (requires Winamp 2.04+, only usable from plug-ins (not external apps))
** char *name=SendMessage(hwnd_winamp,WM_WA_IPC,index,IPC_GETPLAYLISTFILE);
** IPC_GETPLAYLISTFILE gets the filename of the playlist entry [index].
** returns a pointer to it. returns NULL on error.
*/

Wie würde diese übergabe dann richtig lauten ?

gruß

[omata]

Hallo BassFan,

schau doch mal hier, vielleicht hilft dir das weiter.

Gruss
Thorsten

[BassFan]

Zitat:

Zitat von omata

Hallo BassFan,

schau doch mal hier, vielleicht hilft dir das weiter.

Gruss
Thorsten

Leider nein.
Der link beschreibt wie man die Daten von Winamp empfängt.
Aber nicht wie er selber in Winamp übergeben wird.

Die WinProc in BassPlayerEx soll ja die übergabe von Winamp emulieren
irgendetwas muss hier fehlen das die Plugins beim lesen des Strings nicht alles
interpretieren können.

gruß .. Danke für deine Hilfe

[BassFan]

Hier noch mal ein kleines Pic.

[Nicolai1234]

Hallo,
ich versuche gerade diese Komponente zu benutzen und die Dateien über TMemoryStream zu laden, aber leider funktioniert das nicht ganz:

Delphi-Quellcode:

var stre: tmemorystream;
begin
stre := tmemorystream.Create;
stre.LoadFromFile('C:\Musik\031 - Om Lounge 5  - Track 12.mp3');
//stre.Position := 0;
bassdllplayer1.LoadFromStream(stre);
bassdllplayer1.Play;

Aber es passiert rein gar nichts... egal ob position auf 0 gesetzt wird oder nicht.
Der Stream solte eigentlich richtig geladen werden...

Ich versuche bewusst Filestream zu vermeiden, da ich nicht ständig auf die Festplatte zugreifen möchte. Dahe wäre TMemorystream ideal.

Vielen Dank im voraus

[turboPASCAL]

Ne, das wird so nix. LoadFromStraam / SaveToStream läd/speichert nur Einstellungen für den BassDLLPlayer.

Wenn du nicht auf der Platte rumrödeln willst, willste aber Speicher verschwenden ? ;)

[Nicolai1234]

Zitat:

Zitat von turboPASCAL

Wenn du nicht auf der Platte rumrödeln willst, willste aber Speicher verschwenden ? ;)

In der Tat :wink:
In der endgültigen Version sollen Daten temporär via Netzwerk in den Speicher geladen werden, dann abgespielt und dann wieder freigegeben werden. Die Festplatte soll damit nichts zu tun haben.

Habe ich da mit deiner Komponente keine Möglichkeit?

[turboPASCAL]

Ich sag mal vorsichtig: "Nicht vor dem kommenden Wochenende." ;)

[Nicolai1234]

Zitat:

Zitat von turboPASCAL

Ich sag mal vorsichtig: "Nicht vor dem kommenden Wochenende." ;)

Nächstes Wochenende wäre ideal :)

Oder gibt es einen aderen Weg, der euch spontan einfällt. Wichtig ist eben nur, dass ich keinen Festplattenzugriff habe.

[Cyberbob]

Hallo, gibt es auch eine möglichkeit, mit deiner Komponente auch wma-Dateien anzuspielen? Wenns geht, ohne zusätzlich noch dll oder dergleichen mitliefern zu müssen...

[turboPASCAL]

Zitat:

Zitat von Cyberbob

Hallo, gibt es auch eine möglichkeit, mit deiner Komponente auch wma-Dateien anzuspielen? Wenns geht, ohne zusätzlich noch dll oder dergleichen mitliefern zu müssen...

Nein, das wird die Komponente nicht unterstützen.

[turboPASCAL]

So, LoadFromStream ist nun eingebaut, jedoch nicht für Modulo-Dateien wie .mod, .xm, .it usw.

Die alte "LoadFromStream" hat nun einen neuen Namen LoadSetupFromStream damit es nicht mer verwechselt oder zu Irreführungen kommt.

Update im ersten Beitrag.

:hi:

[Nicolai1234]

Zitat:

Zitat von turboPASCAL

So, LoadFromStream ist nun eingebaut, jedoch nicht für Modulo-Dateien wie .mod, .xm, .it usw.

Die alte "LoadFromStream" hat nun einen neuen Namen LoadSetupFromStream damit es nicht mer verwechselt oder zu Irreführungen kommt.

Update im ersten Beitrag.

:hi:

Vielen, vielen Dank dafür auf jeden Fall... Habs erst heute gesehen :oops:

Die Funktion heißt aber LoadSettingsFromFile, nicht Setup ;)

[Cyberbob]

Hae hier bei Meinem Projekt den Fehler, das die Komponente beim Laden einer Bestimmten MP3 einen Fehler ausgibt.

Code:

---------------------------
Unit: BassDLLPlayer 1.26
---------------------------
BASS_FXSetParameters, Fehler
---------------------------
OK   
---------------------------

Welche möglichkeit gibt es diesen Fehler zu beseitigen/abzufangen?

[Cyberbob]

Bekomme ich keine Antwort oder wiess sie keiner.

Das Prlbem tritt nur bei bestimmten Dateien und auch nur, wenn ich die FFT oder Wave-Daten anzeigen lasse auf.

Gruss
Christian

[turboPASCAL]

Upps, habe ich direkt übersehen.

Kommt das nur bei manchen oder bei allen mp3's und oder kannst du mir sagen was für Daten die mp3 hat ?

[Cyberbob]

Nur bei einer meiner MP3's
Ich hab jetzt die Datei mit nem Editor geöffnet und neu gespeichert jetzt tritts nicht mehr auf.

[turboPASCAL]

Nagut.

Bei dem nächsten mal schick mir doch bitte mal die Datei oder gib ein paar Infos von dem Teil. ;)

[Cyberbob]

Habs jetzt nochmal mit ner alten Echse probiert, das tritt der Fehler auf. Mit der neuen Version , in der ich auch die neue Version des TBassDllPlayers verwende, tritt der Fehler nicht mehr auf.
Ich hatte zwischendurch ein Update auf die neue Version bemacht

[turboPASCAL]

Das ist ja eine beruigende Nachricht. ;)

[Darnus]

Und wie bitte soll man das installen? Ist keine anleitung bei und die komponente verschwinden auch an dauernt wieder aus delphi .

[Cyberbob]

Hallo und Herzlich Willkommen in der :dp: !

Die Komponente wird wie jede andre Auch installiert. (Ausser in den Turbo-Explorer versionen, da kann man keine Designtime-Packages installieren...eigentlich)

Alle Dateien des Packages in den Lib-Ordner von Delphi (keinen eigenen Unterordner erstellen) Dann die "BassDLLpkg.dpk" doppelklicken, auf Kopilieren und anschliessend auf Installieren klicken. Nun noch Delphi neu Starten und das Package sollte erfügbar sein.


Gruss
Christian

[Chaosente]

Ich verstehs nicht argh :evil:

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:

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:

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 :mrgreen: )


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. :gruebel:

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