Playlist Problem

[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