længde på musikfil

Hej ...

Jeg er i gang med et program hvor jeg skal bruge længen på filen der er åben plus længden hvor den er nået til.
Det er ikke så svær men jeg skal have det lavet sådan tt:mm:ss:mm
altså timer:minutter:sekunder:millisekunder og det skal være med ':' imellem

Håber i kan hjælpe.
-------------------------------------------------------
My name is Johnny and i am Funny and have no Money. :-(
/Mads

Ups... Glemte at skrive noget før.... Nå men jeg tror ikke det er muligt at millisekunderne med, men jeg kan godt hjælpe dig hvis det er nok med tt:mm:ss.......

Skriv hvis det er i orden

/Mads

Det er i helt i orden med mig.
-------------------------------------------------------
My name is Johnny and i am Funny and have a lots of Money. ;-)

Kode 

Label1.Caption := TimeToStr(MediaPlayer1.Position / 86400000);
Label2.Caption := TimeToStr(MediaPlayer1.TrackLength[0] / 86400000);

TrackBar1.Max := MediaPlayer1.TrackLength[0];
TrackBar1.Position := MediaPlayer1.Position;
[/Pre]

Jeg ved ikke hvorfor man lige skal dividere med det tal, men det kommer til at passe med tt:mm:ss, hvis man gør det...

Håber det hjælper dig videre

/Mads
						


						
						


						
					

Hej ...

Jeg er i gang med et program hvor jeg skal bruge længen på filen der er åben plus længden hvor den er nået til.
Det er ikke så svær men jeg skal have det lavet sådan tt:mm:ss:mm
altså timer:minutter:sekunder:millisekunder og det skal være med ':' imellem

Håber i kan hjælpe.
-------------------------------------------------------
My name is Johnny and i am Funny and have no Money. :-(

Hej ...

Jeg er i gang med et program hvor jeg skal bruge længen på filen der er åben plus længden hvor den er nået til.
Det er ikke så svær men jeg skal have det lavet sådan tt:mm:ss:mm
altså timer:minutter:sekunder:millisekunder og det skal være med ':' imellem

Håber i kan hjælpe.
-------------------------------------------------------
My name is Johnny and i am Funny and have no Money. :-(
/Mads

Hej ...

Jeg er i gang med et program hvor jeg skal bruge længen på filen der er åben plus længden hvor den er nået til.
Det er ikke så svær men jeg skal have det lavet sådan tt:mm:ss:mm
altså timer:minutter:sekunder:millisekunder og det skal være med ':' imellem

Håber i kan hjælpe.
-------------------------------------------------------
My name is Johnny and i am Funny and have no Money. :-(
/Mads

Ups... Glemte at skrive noget før.... Nå men jeg tror ikke det er muligt at millisekunderne med, men jeg kan godt hjælpe dig hvis det er nok med tt:mm:ss.......

Skriv hvis det er i orden

/Mads

Okai... Så smider jeg lige et stykke kode ind...

Først skal du lave en timer inde i den skal du så skrive følgende:

Kode 

Label1.Caption := TimeToStr(MediaPlayer1.Position / 86400000);
Label2.Caption := TimeToStr(MediaPlayer1.TrackLength[0] / 86400000);

TrackBar1.Max := MediaPlayer1.TrackLength[0];
TrackBar1.Position := MediaPlayer1.Position;

Jeg ved ikke hvorfor man lige skal dividere med det tal, men det kommer til at passe med tt:mm:ss, hvis man gør det...

Håber det hjælper dig videre

/Mads

Okai... Så smider jeg lige et stykke kode ind...

Først skal du lave en timer inde i den skal du så skrive følgende:

Kode 

Label1.Caption := TimeToStr(MediaPlayer1.Position / 86400000);
Label2.Caption := TimeToStr(MediaPlayer1.TrackLength[0] / 86400000);

TrackBar1.Max := MediaPlayer1.TrackLength[0];
TrackBar1.Position := MediaPlayer1.Position;

Jeg ved ikke hvorfor man lige skal dividere med det tal, men det kommer til at passe med tt:mm:ss, hvis man gør det...

Håber det hjælper dig videre

/Mads
/Mads

Okai... Så smider jeg lige et stykke kode ind...

Først skal du lave en timer inde i den skal du så skrive følgende:

Kode 

Label1.Caption := TimeToStr(MediaPlayer1.Position / 86400000);
Label2.Caption := TimeToStr(MediaPlayer1.TrackLength[0] / 86400000);

TrackBar1.Max := MediaPlayer1.TrackLength[0];
TrackBar1.Position := MediaPlayer1.Position;

Jeg ved ikke hvorfor man lige skal dividere med det tal, men det kommer til at passe med tt:mm:ss, hvis man gør det...

Håber det hjælper dig videre

/Mads
/Mads

trakbaren virker men mine labels gør ikke hvorfor ikke ?
-------------------------------------------------------
My name is Johnny and i am Funny and have a lots of Money. ;-)

Okai... Så smider jeg lige et stykke kode ind...

Først skal du lave en timer inde i den skal du så skrive følgende:

Kode 

Label1.Caption := TimeToStr(MediaPlayer1.Position / 86400000);
Label2.Caption := TimeToStr(MediaPlayer1.TrackLength[0] / 86400000);

TrackBar1.Max := MediaPlayer1.TrackLength[0];
TrackBar1.Position := MediaPlayer1.Position;

Jeg ved ikke hvorfor man lige skal dividere med det tal, men det kommer til at passe med tt:mm:ss, hvis man gør det...

Håber det hjælper dig videre

/Mads
/Mads

trakbaren virker men mine labels gør ikke hvorfor ikke ?
-------------------------------------------------------
My name is Johnny and i am Funny and have a lots of Money. ;-)

Er du sikker på dine labels har de ritige navne??

/Mads

Okai... Så smider jeg lige et stykke kode ind...

Først skal du lave en timer inde i den skal du så skrive følgende:

Kode 

Label1.Caption := TimeToStr(MediaPlayer1.Position / 86400000);
Label2.Caption := TimeToStr(MediaPlayer1.TrackLength[0] / 86400000);

TrackBar1.Max := MediaPlayer1.TrackLength[0];
TrackBar1.Position := MediaPlayer1.Position;

Jeg ved ikke hvorfor man lige skal dividere med det tal, men det kommer til at passe med tt:mm:ss, hvis man gør det...

Håber det hjælper dig videre

/Mads
/Mads

trakbaren virker men mine labels gør ikke hvorfor ikke ?
-------------------------------------------------------
My name is Johnny and i am Funny and have a lots of Money. ;-)

Er du sikker på dine labels har de ritige navne??

/Mads

Ja jeg er og da jeg prøvede med en watch på mine label skrev den at det ikke var mugligt at vise..
-------------------------------------------------------
My name is Johnny and i am Funny and have a lots of Money. ;-)

Okai... Så smider jeg lige et stykke kode ind...

Først skal du lave en timer inde i den skal du så skrive følgende:

Kode 

Label1.Caption := TimeToStr(MediaPlayer1.Position / 86400000);
Label2.Caption := TimeToStr(MediaPlayer1.TrackLength[0] / 86400000);

TrackBar1.Max := MediaPlayer1.TrackLength[0];
TrackBar1.Position := MediaPlayer1.Position;

Jeg ved ikke hvorfor man lige skal dividere med det tal, men det kommer til at passe med tt:mm:ss, hvis man gør det...

Håber det hjælper dig videre

/Mads
/Mads

trakbaren virker men mine labels gør ikke hvorfor ikke ?
-------------------------------------------------------
My name is Johnny and i am Funny and have a lots of Money. ;-)

Er du sikker på dine labels har de ritige navne??

/Mads

Ja jeg er og da jeg prøvede med en watch på mine label skrev den at det ikke var mugligt at vise..
-------------------------------------------------------
My name is Johnny and i am Funny and have a lots of Money. ;-)

Mærkeligt... Jeg bruger nemlig selv koden i et af mine egne programmer... Og der duer det... Du kan downloade det på www.fun-com.tk/Smp.exe hvis du vil se det...

/Mads