| Autor |
Beitrag |
Leuchtturm
      
Beiträge: 1087
Win Vista, Knoppix, Ubuntu
Delphi 7 Pe, Turbo Delphi, C#(VS 2005 Express), (X)HTML + CSS, bald Assembler
|
Verfasst: Mo 23.10.06 16:04
Hi,
ich versuche ein Lied abzuspielen was ich ausgewählt habe:
Delphi-Quelltext 1: 2:
| i := BASS_StreamCreateFile(False, PChar(ListBox1.Items.Text), 0, 0, 0); BASS_ChannelPlay(i , False); |
es spiet allerdings überhaupt nichts ab.
 An was liegt das bzw wie kann ich den ausgewählten Titel starten
Leuchtturm 
_________________ Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.
|
|
Blackheart666
      
Beiträge: 2195
XP
D3Prof, D6Pers.
|
Verfasst: 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 
      
Beiträge: 1087
Win Vista, Knoppix, Ubuntu
Delphi 7 Pe, Turbo Delphi, C#(VS 2005 Express), (X)HTML + CSS, bald Assembler
|
Verfasst: 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
      
Beiträge: 1889
Erhaltene Danke: 1
XP home, ubuntu
BDS 2006 Prof
|
Verfasst: 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
      
Beiträge: 8554
Erhaltene Danke: 481
Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
|
Verfasst: 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 
      
Beiträge: 1087
Win Vista, Knoppix, Ubuntu
Delphi 7 Pe, Turbo Delphi, C#(VS 2005 Express), (X)HTML + CSS, bald Assembler
|
Verfasst: Mo 23.10.06 16:38
Also die Musik wird nur abgespielt wenn ich 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
      
Beiträge: 8554
Erhaltene Danke: 481
Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
|
Verfasst: 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
      
Beiträge: 2195
XP
D3Prof, D6Pers.
|
Verfasst: Mo 23.10.06 17:05
Für den einzelnen Eintrag in der Liste
Delphi-Quelltext 1: 2: 3:
| j:=Listbox1.ItemIndex; i := BASS_StreamCreateFile(False, PChar(Listbox1.Items.Strings[j]), 0, 0, 0); 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 
      
Beiträge: 1087
Win Vista, Knoppix, Ubuntu
Delphi 7 Pe, Turbo Delphi, C#(VS 2005 Express), (X)HTML + CSS, bald Assembler
|
Verfasst: Mo 23.10.06 17:06
In der ListBox stehen die kompletten Pfade drin, so gehts:
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.
|
|
|