...die restliche Abspielzeit einer Datei (Mediaplayer) anzeigen?

Autor: Leo Thor

Kategorie: Multimedia

Procedure TForm1.Timer1Timer(Sender: TObject);
Var
 
TheLength,Posi,SummaMin,SummaSec: Integer;
begin

//Progress Bar to check if the track is playing
if Progress.Max<>0 then Begin
    
Progress.Position := Mediaplayer1.Position;

     //Gets the length of the selected track
    
TheLength := Mediaplayer1.TrackLength[ListBox1.ItemIndex];

      //gets the current position of the track
      
Posi := Mediaplayer1.Position;

      //Caculates Minutes
      
SummaMin := ((TheLength - Posi) div 1000) Div 60;

      //Calculates Seconds
      
SummaSec := ((TheLength - Posi) Div 1000) Mod 60;

      //Adds zero if Seconds are less then ten
      
If SummaSec < 10 Then
      
Label2.Caption := '0' + IntToStr(SummaSec)
      Else
      
Label2.Caption := IntToStr(SummaSec);

      //Minutes
      
Label1.Caption := IntToStr(SummaMin);

End;

 

printed from
www.swissdelphicenter.ch
developers knowledge base