Hi
,
ich hab ja mal das Programm
DockPlayer geschrieben, das im Hintergrund einen TMediaPlayer nutzt. Nun muss ich aber ordnungsgemäß die Länge des Liedes herausfinden und wann es zu ende ist. Ich hab einfach mal die nicht so schöne art gelöst
Quelltext
1: 2: 3: 4: 5:
| //Intervall = 1000 procedure TForm1.Timer1Timer(Sender: TObject); begin if MediaPlayer1.Length:=self.MediaPlayer1.Position then myplayer.next; end; |
Funktioniert ganz prima, aber wenn ich komprimierte Waves habe oder MIDI-Dateien abspiele, stimmt die Länge und Position gar nicht mehr, ist zu kurz dargestellt. Dies hat auch zur Folge, dass mein Fortschrittsbalken viel zu früh am ende ist. Hat einer eine Lösung, wie man ordnungsgemäß die Länge und Position eines Liedes herausbekommt?
Bis dann