Fortschrittsanzeige in Zahlen

[Luzifer666]

Hallo Community!

Ich würde gerne aus einer Mp3 die Länge in Sekunden herausfinden und in einem Label anzeigen lassen. Dann soll per Timer beim Abspielen des Liedes diese Zeit sekündlich mit der aktuellen Position im Lied abgeglichen werden (-> Die Zahl tickt also im Sekundentakt nach unten).

Wie kann ich das am Besten realisieren?
Danke für Hilfe!

[Matze]

Hi!

Herzlich willkommen in der DP!

Benutzt du den TMediaPlayer, due bass.dll, oder was?


Beim TMediaPlayer bekommst du die Länge mit

Delphi-Quellcode:

MediaPlayer1.Length

das kann man leicht in Sekunden umwandeln, frag mich aber bitte nicht wie, aber falls es dich interessiert, kann ich nachgucken.

Mit

Delphi-Quellcode:

MediaPlayer1.Position

bekommst du die aktuelle Position des Songs, vergleiche den wert mit der Länge und dann sollte es eigenttlich keine Probleme mehr bereiten.



Achja, die bass.dll hat auch Funktionen, die die Länge, bzw. die Position liefern. Falls du mit dieser arbeiten solltest.

[Luzifer666]

Hallo!

Jo, genau das ist mein Problem! :)

Mit

Delphi-Quellcode:

Mediplayer.Length;

hab ich schon herumexperimentiert aber leider konnte ich das Ergebnis nicht vernünftig in einem Label anzeigen lassen. Ich möchte es im Format [Minuten]:[Sekunden] anzeigen lassen, weiss aba nich wie. :(

Aber danke schonmal für die Hilfe!

[Mirilin]

:hi:

Hilfe -> Length -> Beispiel

mfg Tobias

[SirThornberry]

die Funktion arbeitet mit Millisekunden. Wenn Mediaplayer.length Sekunden sind brauchst du einfach nur die erste zeile nach dem "begin" rausnehmen

Delphi-Quellcode:

function getTimeToDisplay(wert: Cardinal;withhour: Boolean = False): String;
var stunden, minuten, sekunden: Integer;
begin
 wert := wert div 1000; //bei Sekunden die Zeile raus

 stunden := wert div 3600;
 wert := wert - wert div 3600 * 3600;

 minuten := wert div 60;
 wert := wert - wert div 60 * 60;

 sekunden := wert;

 if (Stunden = 0) and (withhour = False) then
  result := formatfloat('00', minuten) + ':' + formatfloat('00', Sekunden)
 else
  result :=  inttostr(Stunden) + ':' + formatfloat('00', minuten) + ':' + formatfloat('00', Sekunden)
end;

[Luzifer666]

Sieht ja gut aus! Nur wie bau ich das ein? :?

[Mirilin]

:hi:

a) Hast Du in der Hilfe gekuckt?

b) Im OnTimer Position abfragen und dementsprechend setzen.

mfg Tobias

[SirThornberry]

einfach im OnTimer-Event

Delphi-Quellcode:

Zeitlabel.caption := gettimetodisplay(Mediaplayer.length);

[Gandalfus]

http://www.delphi-forum.de/viewtopic.php?t=24318 :wiejetzt:

[Luzifer666]

@ Gandalfus: Es wird mir doch sicher erlaubt sein in mehreren Foren die Frage zu stellen, oder? (zur allgemeinen Beruhigung: Es sind nur die zwei bereits ganannten) :wink:

@ SirThornberry: Klingt ja vernünftig, nur wo finde ich dieses "Zeitlabel"? Wenn das ein ganz normales Label ist, erkennt Delphi die Anweisung "gettimetodisplay" nicht. Ich vermute mal es ist eine neue Komponente?