Forum: Multimedia
Delphi
by Birzenbae,
22. Okt 2004
Kein Problem aber mit etwas kreativität wärst auch von alleine drauf gekommen.
Forum: Multimedia
Delphi
by Birzenbae,
22. Okt 2004
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
{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)...
Forum: Multimedia
Delphi
by Birzenbae,
22. Okt 2004
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:
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); ...
Forum: Multimedia
Delphi
by Birzenbae,
22. Okt 2004
ok dann werd ichs selbst doch testen müssten.
Forum: Multimedia
Delphi
by Birzenbae,
22. Okt 2004
so bitte:
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
Forum: Multimedia
Delphi
by Birzenbae,
22. Okt 2004
ja warte bis ich fertig bin ,muss etwas anders anfangen da du es in drei labels haben willst, dann erklär ich dir das ma.
Forum: Multimedia
Delphi
by Birzenbae,
22. Okt 2004
das string in integer oder die zeitausgabe??????
Forum: Multimedia
Delphi
by Birzenbae,
22. Okt 2004
das wird etwas schwerer mit mehreren Labels
un string in integer geht so
strtoint(x) //aus string integer mach
inttostr(x) //aus integer mach string(für ausgabe ganz wichtig)
Forum: Multimedia
Delphi
by Birzenbae,
22. Okt 2004
er gibt aber nur strings raus er benutzt ja eigentlich integer
wenn de willst versuch ich den auch für stunden zu erweitern
Forum: Multimedia
Delphi
by Birzenbae,
22. Okt 2004
ka ich habs in timer gemacht dan is sicher das der das auch auf jeden fall aktualisert aber du kannt natürlich sagen das beim starten der mp3 das timer.enabled:= true gestellt wird.
Forum: Multimedia
Delphi
by Birzenbae,
22. Okt 2004
welchen meinen???? noe der funzt perfekt wenn de en timer holst un machst wies in der timer procedure drinne steht.
Forum: Multimedia
Delphi
by Birzenbae,
22. Okt 2004
für minuten hab ich das ein fach so gemacht
function time (zeit : Integer): string;
var allsec: real;
minute,second: integer;
begin
if zeit >=1000 then begin
allsec := zeit / 1000;
minute := round(allsec) div 60;
second := round(allsec) mod 60;
Forum: Multimedia
Delphi
by Birzenbae,
22. Okt 2004
hab ich das richtig verstanden du willst die aktuelle zeit der Tmediaplayerkomponente ausgeben lassen??