Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Länge des Lied richtig darstellen (https://www.delphipraxis.net/14214-laenge-des-lied-richtig-darstellen.html)

Affje800 4. Jan 2004 20:58


Länge des Lied richtig darstellen
 
hi

ich mache grad nen schönen mp3-player. jedoch will ich die richtige länge des liedes auslesen.
ich habe das vorher ganz einfach mit label1.caption:= mediaplayer1.length gemacht.
da kommt dann aber ne zahl wie 2436254. wie geht das genau??

noch ne frage: wie sieht es aus mit filmen abspielen??

[edit=sakura] Doppelpost gelöscht. Mfg, sakura[/edit]

phlux 4. Jan 2004 21:04

Re: Länge des Lied richtig darstellen
 
Hi!
Probier mal
Delphi-Quellcode:
Label1.Caption := TimeToStr(MediaPlayer1.Length);
Ansonsten Mediaplayer anklicken -> F1 Drücken -> Auf Eigenschaften klicken -> Dann auf Length klicken -> Oben auf Beispiel klicken -> Beispiel angucken

Mirilin 4. Jan 2004 21:04

Re: Länge des Lied richtig darstellen
 
:hi:

Delphihilfe
Die Eigenschaft Length legt die Länge des Mediums im geöffneten Multimedia-Gerät fest.
Beschreibung
Die Angabe von Length erfolgt im aktuellen Zeitformat, das in der Eigenschaft TimeFormat festgelegt ist.

--> da hats auch ein Beispiel

Zitat:

noch ne frage: wie sieht es aus mit filmen abspielen??
Lade mal einen Film, und schau was passiert.


noch einen Link

mfg Tobias

H4ndy 5. Jan 2004 14:24

Re: Länge des Lied richtig darstellen
 
Ich hatte mir die Umrechnung selber geschrieben:

Delphi-Quellcode:
function zeitformat(ms:integer):string;
const
  MINUTES : Integer = 1000 * 60;
  SECONDS : Integer = 1000;
var
  min,sec:integer; minStr,secStr:string;
begin
  min := ms div MINUTES;
  dec(ms,min * minutes);

  sec := ms div SECONDS;

  if min < 10 then
    minStr := '0' + IntToStr(min)
  else
    minStr := IntToStr(min);
  if sec < 10 then
    secStr := '0' + IntToStr(sec)
  else
    secStr := IntToStr(sec);

  zeitformat := minStr + ':' + secStr;
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:26 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz