Edits der viser "Tid der er gået" og "Tid tilbage" fra sang i P..

Sæt TimeFormat til millisekunder

MediaPlayer1.TimeFormat := tfMilliseconds;

Lav en timer med et tidsinterval på 1 sek, og i OnTimer koden skriver noget lignende det her

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit1.Text := IntToStr(MediaPlayer1.Position div 1000);
  Edit2.Text := IntToStr((MediaPlayer1.Length - MediaPlayer1.Position) div 1000);
end;

du kan benytte MediaPlayer.Position til at se hvor langt du er i sangen. Tag eksempelvis en TGauge eller en TProgressBar og lad MediaPlayer.Length være Max værdien og MediaPlayer.Position være Position! Hvis du vil vise det med tal (altså minutter og sekunder) kan du bruge MediaPlayer.TimeFormat. Her er et eksempel fra Hjælpe-filen:

type

  HMSRec = record
    Hours: byte;
    Minutes: byte;
    Seconds: byte;
    NotUsed: byte;

  end;

procedure TForm1.Button1Click(Sender: TObject);

var
  TheLength: LongInt;
begin
  { Set time format - note that some devices don’t support tfHMS }
  MediaPlayer1.TimeFormat := tfHMS;
  { Store length of currently loaded media in var }
  TheLength := MediaPlayer1.Length;
  with HMSRec(TheLength) do { Typecast TheLength as a HMSRec record }
  begin
    Label1.Caption := IntToStr(Hours); { Display Hours in Label1 }
    Label2.Caption := IntToStr(Minutes); { Display Minutes in Label2 }

    Label3.Caption := IntToStr(Seconds); { Display Seconds in Label3 }
  end;
end;

Held og Lykke

ZeroHero

nico22> Jeg har redigeret lidt i din kode...
Edit2.Text := IntToStr((MediaPlayer1.Length) div 60000);
så den nu viser i Minutter.. men kan man ikke gøre det sådan at den viser 3:21 i stedet for bare 3, som den gør ved koden ovenover...?

var
  R : Integer;
begin
  R := MediaPlayer1.Length - MediaPlayer1.Position;

  Edit1.Text := Format('%d:%d', [P div 60000, P div 1000]);

kan man ikke gøre det sådan at man div med 60 og siger 60 = 1 eller sådan noget....

PS.
Tak ZeroHero....

sludder

Edit1.Text := Format('%d:%d', [R div 60000, (R mod 60000) div 1000]);

du kan også prøve denne her

var
  R : Integer;
  T : TTime;
begin
  R := MediaPlayer1.Length - MediaPlayer1.Position;
  T := EncodeTime(0, R div 60000, (R mod 60000) div 1000, 0);

  Edit1.Text := TimeToStr(T);

Det virker ikke?
min kode: Label3.Caption := Format('%d:%r', [R div 60000, (R mod 60000) div 1000]);

FEJL:
[Error] Unit2.pas(78): Undeclared identifier: 'R'
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit2.pas'

du skal lig erklære variablen R

var
  R : Integer;

og denne her ('%d:%r',
skal se sådan ud ('%d:%d', ...

uses mmsystem;

procedure TForm1.Timer1Timer(Sender: TObject); 
var 
  Trk, Min, Sec: Word; 
begin 
  with MediaPlayer1 do 
  begin 
    Trk:= MCI_TMSF_TRACK(Position); 
    Min:=MCI_TMSF_MINUTE(Position); 
    Sec:=MCI_TMSF_SECOND(Position); 
    Label1.Caption:=Format('%.2d',[Trk]); 
    Label2.Caption:=Format('%.2d:%.2d',[Min,Sec]); 
  end; 
end;

procedure TForm2.Timer2Timer(Sender: TObject);
var
  R : Integer;
begin
Label2.Caption := IntToStr(MediaPlayer1.Position div 1000);
Label3.Caption := Format('%d:%r', [R div 60000, (R mod 60000) div 1000]);
end;

dkn> Den går da helt grasat... den tæller helt forkert.... eller den tæller 4 gange så meget... osv...

procedure TForm1.Timer2Timer(Sender: TObject);
var
  R : Integer;
begin
  R := MediaPlayer1.Length - MediaPlayer1.Position;

  Label2.Caption := IntToStr(MediaPlayer1.Position div 1000);
  Label3.Caption := Format('%d:%d', [R div 60000, (R mod 60000) div 1000]);
end;

nico22> hvordan får jeg den til at finde position Now eller hvad det nu hedder...
altså via denne kode:
Edit1.Text := TimeToStr(T);

du skal ikke start timeren før der er en mp3 som blier afspillet!!

var
  R : Integer;
  T : TTime;
begin
  R := MediaPlayer1.Length - MediaPlayer1.Position;
  T := EncodeTime(0, R div 60000, (R mod 60000) div 1000, 0);

  Edit1.Text := TimeToStr(T); //resterende tid

  R := MediaPlayer.Position;
  T := EncodeTime(0, R div 60000, (R mod 60000) div 1000, 0);

  Edit2.Text := TimeToStr(T); //forløbet tid

sorry så ikke dit seneste indlæg...
Men den der tæller hvor lang tid sangen har været i gang, den tæller i sek endnu og ikke i min altså den viser 90 og ikke 1:30????

kan man ikke få den til at vise 01 og ikke bare 1?

Tak for hjælpen alle 3 men Nico du løber med sejren...
tak for hjælpen

procedure TForm1.Timer2Timer(Sender: TObject);
var
  R : Integer;
begin
  R := MediaPlayer1.Position;
  Label2.Caption := Format('%.2d:%.2d', [R div 60000, (R mod 60000) div 1000]);

  R := MediaPlayer1.Length - MediaPlayer1.Position;
  Label3.Caption := Format('%.2d:%.2d', [R div 60000, (R mod 60000) div 1000]);
end;

tak