Playlist Problem

[Bernd29bln]

Hallo,

meine playlist funktioniert super, sie hat nur ein problem, sie spielt immer nur den ersten titel.
wieso?


meine open procedure

Delphi-Quellcode:

var
   f: PChar;
begin
   if not OpenDialog1.Execute then Exit;
     f := PChar(OpenDialog1.FileName);
     strs[PlayIndex] := BASS_StreamCreateFile(False, f, 0, 0, 0);
   if strs[PlayIndex] <> 0 then
   begin
       Playlist := ListView1.Items.Add;
       Playlist.Caption := (opendialog1.FileName);
       Playlist.SubItems.Add(extractfilename(opendialog1.FileName));

      Inc(PlayIndex);
   end
   else
      Error('Error creating stream!');
end;

play procerure

Delphi-Quellcode:

begin

 playindex :=0;

    if PlayIndex < ListView1.Items.Count -1 then
     begin
       Playindex := Listview1.ItemIndex;
      
       Inc(PlayIndex);
// Play the stream (continuing from current position)
   if Playindex >= 0 then
      if not BASS_ChannelPlay(strs[Playindex], False) then
         Error('Error playing stream!');
  end;
end;

kann mir das mal jemand mal bitte erklären wo mein fehler liegt .

MfG bernd

[marabu]

Hallo Bernd,

kein Wunder - da ist nirgendwo eine Schleife in deiner Play-Prozedur.

Grüße vom marabu

[Bernd29bln]

hi marabu,

wie müsste den eine solche schleife aussehen?

gruss bernd

[marabu]

Hallo Bernd,

schwer zu sagen, wenn ich so wenig über dein Programm weiß - vielleicht so?

Delphi-Quellcode:

begin
  for playindex := 0 to Pred(strs.Count) do
  begin
    // Play the stream (continuing from current position)
    if not BASS_ChannelPlay(strs[Playindex], False) then
      Error('Error playing stream!');
  end;
end;

marabu

[Bernd29bln]

Hallo,

ich hab mal das ganze mit mediaplayer kompo ausprobiert. da geht es super, nur mit bass nicht.

wen ich die schleife ein baue, dann laufen alle titel gleichzeitig.

hmmmm, :wall:

gruss bernd

[Luckie]

Du darfst den nächsten Titel natürlich erst abspielen, wenn der vorherige zu ende ist.

[Bernd29bln]

hi lukie,

ist schon klar , ich bin mmtool geschädigt , da war alles einfacher :roll: .

aber auch teurer . wie tuhe ich ihm den das vermitteln .

gruss bernd

[Luckie]

Du weißt, wie lang das Stück ist (-> bass.dll), du zählst einfach die Sekunden mit, bis keine mehr übrig sind, dann sollte es eigentlich zu ende sein.

[Bernd29bln]

ahhhh ,

du meinst in etwa so:

Delphi-Quellcode:

var
  p: DWORD;
  akttime : integer;
begin
  BASS_ChannelBytes2Seconds(Chan,
BASS_ChannelGetLength(Chan));
  akttime := round(BASS_ChannelBytes2Seconds(Chan,
BASS_ChannelGetPosition(Chan)));

  if (seeking = -1) then // not seeking - update pos scroller
      begin

         p := Trunc(BASS_ChannelBytes2Seconds(chan, BASS_ChannelGetPosition(chan)));
        trkPos1.Position := p;

  if BASS_ChannelIsActive(Chan) = 1 then

  ToTimer1.Text :=  Format ('%0.2d:%0.2d',[akttime div 60,akttime mod 60]);

  if BASS_ChannelIsActive(Chan) = 3 then
  end
  else
  begin
  led1.Blink := False;
  if BASS_ChannelIsActive(Chan) = 0 then
  
  if BASS_ChannelIsActive(Chan) = 1 then

  if BASS_ChannelIsActive(Chan) = 2 then
  ToTimer1.Text := 'Fehler';
   end;

end;

zumindest läuft so bei mir der titel timer.

gruss