Autor Beitrag
Leuchtturm
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1087

Win Vista, Knoppix, Ubuntu
Delphi 7 Pe, Turbo Delphi, C#(VS 2005 Express), (X)HTML + CSS, bald Assembler
BeitragVerfasst: Mo 23.10.06 16:04 
Hi,
ich versuche ein Lied abzuspielen was ich ausgewählt habe:
ausblenden Delphi-Quelltext
1:
2:
  i := BASS_StreamCreateFile(False, PChar(ListBox1.Items.Text), 0, 0, 0);//Habe ich auch schon mit Items.String etc versucht
  BASS_ChannelPlay(i , False);

es spiet allerdings überhaupt nichts ab.
:?: An was liegt das bzw wie kann ich den ausgewählten Titel starten :?:
Leuchtturm :wave:

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.
Blackheart666
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 2195

XP
D3Prof, D6Pers.
BeitragVerfasst: Mo 23.10.06 16:15 
Hast Du es schon mit einem absolutem Pfad probiert.
'C:\Mein Lied.mp3'
Listbox1.Items.Strings[i];
Blackheart666

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)
Leuchtturm Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1087

Win Vista, Knoppix, Ubuntu
Delphi 7 Pe, Turbo Delphi, C#(VS 2005 Express), (X)HTML + CSS, bald Assembler
BeitragVerfasst: Mo 23.10.06 16:19 
Ich lade sie aber über den OpenDialog und da kann der Benutzer alles Abspielbare reinladen, also nutzen mir die absoluten Pfadangaben nichts oder habe ich was falsch verstanden :?:
Leuchtturm

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.
jakobwenzel
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1889
Erhaltene Danke: 1

XP home, ubuntu
BDS 2006 Prof
BeitragVerfasst: Mo 23.10.06 16:23 
Du sollst versuchen, ob der Code mit einem absoluten Pfad probieren, damit die eine mögliche Fehlerquelle ausschließen kannst.

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.
Gausi
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 8554
Erhaltene Danke: 481

Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
BeitragVerfasst: Mo 23.10.06 16:26 
Stehen in der Listbox die kompletten Dateinamen drin, inklusive Pfad? Hast du die Bass.dll richtig initialisiert? Ist das richtige Device eingestellt? Ist die Lautstärke richtig?

Lass dir evtl. mal nach dem Create und nach dem Play den letzten Error der Bass.dll zurückgeben (über Bass_ErrorGetCode).

_________________
We are, we were and will not be.
Leuchtturm Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1087

Win Vista, Knoppix, Ubuntu
Delphi 7 Pe, Turbo Delphi, C#(VS 2005 Express), (X)HTML + CSS, bald Assembler
BeitragVerfasst: Mo 23.10.06 16:38 
Also die Musik wird nur abgespielt wenn ich
ausblenden Delphi-Quelltext
1:
2:
...
i := BASS_StreamCreateFile(False, PChar(OpenDialog1.Filename), 0, 0, 0);...
habe: Da wird aber nur die zuletzt geöffnete abgespielt

Edit: initialisiert ist sie richtig
Was ist ein device?
Die Lautstärke am Computer ist richtig eingestellt.
Bei Bass.dll weiß ich nicht wies funktioniert

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.
Gausi
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 8554
Erhaltene Danke: 481

Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
BeitragVerfasst: Mo 23.10.06 17:05 
Also, wenn der Code oben funktioniert, dann ist die Lautstärke richtig eingestellt, und das Device (Soundkarte) auch.

Dann liegt das Problem daran, dass in der Listbox nicht die kompletten Pfade drinstehen, würd ich mal sagen.

_________________
We are, we were and will not be.
Blackheart666
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 2195

XP
D3Prof, D6Pers.
BeitragVerfasst: Mo 23.10.06 17:05 
Für den einzelnen Eintrag in der Liste
ausblenden Delphi-Quelltext
1:
2:
3:
j:=Listbox1.ItemIndex;
  i := BASS_StreamCreateFile(False, PChar(Listbox1.Items.Strings[j]), 0, 0, 0);//Habe ich auch schon mit Items.String etc versucht
  BASS_ChannelPlay(i , False);

Mit Bass kenn Ich mich nicht aus, aber Ich schätze mal das wird ähnlich dem MediaPlayer sein wo Du aufs ende der Datei reagieren musst und das ganze dann eben mit einer Schleife lösen musst.
Blackheart666

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)
Leuchtturm Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1087

Win Vista, Knoppix, Ubuntu
Delphi 7 Pe, Turbo Delphi, C#(VS 2005 Express), (X)HTML + CSS, bald Assembler
BeitragVerfasst: Mo 23.10.06 17:06 
In der ListBox stehen die kompletten Pfade drin, so gehts:
ausblenden Delphi-Quelltext
1:
2:
3:
  w := ListBox1.ItemIndex;
  i := BASS_StreamCreateFile(False, PChar(ListBox1.Items.Strings[w]), 0, 0, 0);
  BASS_ChannelPlay(i , False);

Leuchtturm

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.