Einzelnen Beitrag anzeigen

Benutzerbild von Birzenbae
Birzenbae

Registriert seit: 8. Okt 2004
115 Beiträge
 
Delphi 2005 Personal
 
#21

Re: TMediaPlayer: aktuelle Position anzeigen lassen?

  Alt 22. Okt 2004, 20:36
so bitte:

Delphi-Quellcode:
function hour (zeit: integer): String;
var a : Real;
    min, h : Integer;
begin
a:= zeit /1000;
min:= round(a) div 60;
h := min div 60; //berechnung Stunde
if h<10 then Result:='0' + inttostr(h)+':'         //ausgabe wenn stunde 1stellig
else Result:=inttostr(h)+':'; //ausgabe wenn stunde 2stellig
end;

function minute (zeit : integer):string;
var a : Real;
    min : Integer;
begin
a := zeit / 1000;
min := round(a) div 60; //berechnung minute
if min < 10 then Result := '0' + inttostr(min)+':'  //ausgabe wenn minute 1stellig
else Result := inttostr(min) + ':'; //ausgabe wenn minute 2stellig
end;

function second (Zeit : integer): string;
var a : Real;
    sec : Integer;
begin
a := zeit / 1000;
sec := round(a) mod 60; //berechnung sekunde
if sec < 10 then Result := '0' + inttostr(sec) //ausgabe wenn sekunde nur 1stellig
else Result := inttostr(sec); //ausgabe wenn sekude 2stellig
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := hour(Mediaplayer1.Postion); //Label1 = stunde
Label2.Caption := minute(Mediaplayer1.Postion); //Label2 = minute
Label3.Caption := second(Mediaplayer1.Postion); //Label3 = sekunde
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
{cmd. zum starten des Players}
Timer1.Enabled:=true; //startet timer wenn player startet aber timer muss von anfang enabled auf false stehen
end;
das mit dem übergeben von string in Integer brauchste hier nicht das wird alles in den functions gemacht.
P.S: hab noch net getestet obs geht aber compiler zeigt ma keinen fehler an.
David
  Mit Zitat antworten Zitat