BassdllPlayer vergangene Zeit eines tracks?

[Darnus]

Ich habe ein problem und zwar soll die zeit angezeigt werden die abgespielt wird, das funktioniert beim TMediaplayer jedoch nicht beim bassdllplayer:

Delphi-Quellcode:

procedure TForm1.Timer4Timer(Sender: TObject);
var h,i:integer;
begin
h := BassdllPlayer1.SongLength div 1000;
Label3.Caption :='Gesamt Zeit '+ IntToStr(h div 60)+':'+IntToStr(h mod 60);

i := BassdllPlayer1.Position div 1000;
Label4.Caption :='Vergangene Zeit: '+ IntToStr(i div 60)+':'+IntToStr(i mod 60);
end;

Kann mir jemand sagen wie das geht der zeigt nur 0:0 an mehr nicht!

[Neutral General]

warum denn div 1000? Lass das mal weg!
Ach ja und eine Variale würde dafür auch reichen ;)
Bzw im Notfall auch gar keine^^

[Darnus]

mEGA THX !!! Es funzt!

[Darnus]

Ahja hier die auflösung ich habe es nun so gemacht da ich das so haben wolte 0:00...

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var zeit,Minutes,Seconds:integer;
begin
with BassdllPlayer1 do
  zeit:= position;
  Minutes:= zeit div 60;
  Seconds:= zeit mod 60;

if Seconds <10 then Label5.Caption :=IntToStr(Minutes) + ':0' + IntToStr(Seconds)
else Label5.Caption :=IntToStr(Minutes) + ':' + IntToStr(Seconds);

zeit:= bassdllplayer1.Length;
  Minutes:= zeit div 60;
  Seconds:= zeit mod 60;

if Seconds <10 then Label29.Caption :='Time: '+IntToStr(Minutes) + ':0' + IntToStr(Seconds)
else Label29.Caption :='Time: '+IntToStr(Minutes) + ':' + IntToStr(Seconds);

end;

es geht sogar ^^

[ErazerZ]

für 0:00 könntest die Format funktion benützen mit dem Parameter '%.2d' also zb.

Delphi-Quellcode:

  ShowMessage(Format('%.2d', [5])); // ausgabe ist 05