Hallo, ich setze den Devicetyp auf dtCDAudio sowie das TimeFormat auf tfHMS und kriege einfach nicht die richtigen Zeiten zurückgemeldet. Die Gesamtlänge der CD wird falsch gemeldet, bei Trackposition erhalte ich die Tracknummer, das einzige was richtig ist, ist die Tracklänge und Trackposition wenn ich das Property Position dafür nehme. Mit tfMilliseconds klappt es sowieso nicht. Kann mir bitte jemand sagen wie das klappt. Bei wav u. mp3 mit tfMilliseconds klappt alles wunderbar. Vielleicht kann mir auch jemand sagen wie es bei dtAvi funktiniert, damit ich nicht wieder stundenlang probieren muss. Vielen Dank im voraus. Gruss Walter
Announcement
Collapse
No announcement yet.
Zeiten v. CD's beim Mediaplayer
Collapse
X
-
<pre>
hallo,
versuch mal das...
<br>
MP ist der MediaPlayer!!
<br>
<br>
<br>
uses MMSystem;
<br>
procedure TForm1.Timer1Timer(Sender: TObject);
var
FTime: TDateTime;
sec, min, tr: Byte;
begin
try
sec := mci_TMSF_Second(MP.Position); // Zuweisen der Sekunde
min := mci_TMSF_Minute(MP.Position); // Zuweisen der Minute
tr := mci_TMSF_Track(MP.Position); // Zuweisen des Tracks
FTime := EncodeTime(0, min, sec, 0); // Zusammenfassen in eine Zeiten
Label1.Caption := 'Track ' + IntToStr(tr) + ' ' + TimeToStr(FTime);
except
Showmessage('Ungültiges Zeitformat!');
end;
end;
<br>
<br>
Viel Spaß beim Testen!!
cu Sebastia
Comment