TMediaPlayer: aktuelle Position anzeigen lassen?

[Birzenbae]

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.

[mlspider]

Erst einmal ein großes Dankeschön für den Code, allerdings zeigt mir der Compiler immer noch an: inkompatible Typen String und Integer.

[Birzenbae]

ok dann werd ichs selbst doch testen müssten.

[Birzenbae]

ganz typisch für mich immer hab ich irgendwo en dummen schreibfehler drinne
es laag am timer code so jetzte stimmts aber wenn de nix verändert hast:

Delphi-Quellcode:

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

[mlspider]

Den hatte ich schon bei mir korrigiert. Nee, ich meinte eigentlich, daß ich die Zeit nicht mit Labels anzeigen lassen möchte, sondern mit Digits. Den kann ich aber nur einen Integerwert zuweisen.

[Birzenbae]

ah sag das doch hab gedacht du willsts auf 3 labels haben na dann is aber net viel anders.

einfach diese 3 zeilen statt den andern 3 zeilen in timer-procedure reinmachen

Delphi-Quellcode:

{was da eben hin muss} := strtoint(hour(Mediaplayer1.Position));    
{was da eben hin muss} := strtoint(minute(Mediaplayer1.Position));  
{was da eben hin muss} := strtoint(second(Mediaplayer1.Position));

strtoint(x) bedeutet nichts anders als das die zahl x vom string-typ in einen ínteger-typ, mit dem man dann rechnen kann, umgesetzt wird.
Hier wirds gleich für alle arten erklärt.

[mlspider]

Jetzt funktionierts!!! Ich danke Dir!!!

[Birzenbae]

Kein Problem aber mit etwas kreativität wärst auch von alleine drauf gekommen.