reNamed: Umrechnungsprobleme bei Zeitanzeige von Sounddatei;

[himitsu]

Der Teil mit dem hochrechnen der Minuten/Stunden stimmt so, ist jedenfalls kein fehler drin.
Ich lösse das jedoch so, falls mal Sekunden grosser als 60 ist:

Delphi-Quellcode:

If Sekunden >= 60 Then Begin
  Inc(Minuten, Sekunden div 60);
  Sekunden := Sekunden mod 60;
End;
If Minuten >= 60 Then Begin
  Inc(Stunden, Minuten div 60);
  Minuten := Minuten mod 60;
End;

Inc(X, Y); entspricht X := X + Y;
So kann man auch mal grössere Werte für Sekunden behandeln
(z.B.: 400 Sekunden = 6 Minuten, 40 Sekunden)

BeiSekunden := Mediaplayer1.Position musst du aber aufpassen.
Mediaplayer1.Position wird nach dem in Mediaplayer1.TimeFormat festgelegten Format codiert.

TimeFormat/Position kann folgende Formate verwenden (siehe OH TMPTimeFormats):

Delphi-Quellcode:

{TimeFormat = }   {Position = }
tfMilliseconds    Millisekunden: Integer
tfHMS             Stunden, Minuten, Sekunden: Byte ($xxSSMMHH = Integer)
tfMSF             Minuten, Sekunden, Frames: Byte ($xxFFSSMM = Integer)
tfFrames          Frames: Integer
tfSMPTE24         Stunden, Minuten, Sekunden, Frames: Byte ($FFSSMMHH = Integer)
tfSMPTE25         {wie tfSMPTE24}
tfSMPTE30         {wie tfSMPTE24}
tfSMPTE30Drop     {wie tfSMPTE24}
tfTMSF            Spuren, Minuten, Sekunden, Frames: Byte ($FFSSMMTT = Integer)

{ F = Frames            }
{ S = Sekunden          }
{ M = Minuten           }
{ H = Strunden          }
{ T = Spuren            }
{ Frames = Einzelbilder }

Versuch mal nach dem laden der Mediendatei TimeFormat zu setzen:MediaPlayer1.TimeFormat := tfMilliseconds; Und die Sekunden so zu berechnen:

Delphi-Quellcode:

Sekunden := Mediaplayer1.Position div 1000;
{oder}
Sekunden := Round(Mediaplayer1.Position / 1000);


Mediaplayer1.Position := Sekunden * 1000;

[DelphiUser7]

Jetzt sieht mein Quellcode so aus:

Delphi-Quellcode:

if not (sender=BitBtn3) then begin
  Sekunden := mediaplayer1.Position div 1000;
  Sekunden := Sekunden+1;
 end;
  If Sekunden = 60 then begin
    Sekunden := 0;
    Minuten := Minuten+1;
    If Minuten = 60 then begin
      Minuten := 0;
      Stunden := Stunden+1;
    end;
  end;  
    If Sekunden >= 60 Then Begin
     Inc(Minuten, Sekunden div 60);
     Sekunden := Sekunden mod 60;
    End;
    If Minuten >= 60 Then Begin
     Inc(Stunden, Minuten div 60);
     Minuten := Minuten mod 60;
    End;

Nur jetzt gibts ein neues Problem: die Sekunden zählen jetzt zwar so, wie ich es mir vorstelle, aber die Minuten und Stunden scheinen beide etwas 'aus dem Konzept' gekommen zu sein, die zählen jetzt im Sekundentakt; irgendwie nicht ganz so, wie es sein soll, oder?

[DelphiUser7]

Ja!!!!!!!!!! ;
Es funktioniert, und zwar komplett; bis auf eine Kleinigkeit: wenn ich mit der ProgressBar zurückstelle wird bei den Minuten immer der korrekte Wert angezeigt, es sei denn, ich stelle in einen Bereich zurück, der unter 1 Min. liegt; dann lässt der Timer die Zeit da einfach weiterlaufen, bis die Sekundenzahl 60 ist, und schreibt dann 1 hin; dabei sollte er doch eigentlich 0 anzeigen, wenn noch keine Minute um ist;

DelphiUser7

[himitsu]

Nach deinen bisherigen Beispielen sah es so aus, als wenn die Minuten und Stunden vorher schon mal berechnet werden, aber wenn diese erst an dieser Stelle berechnet werden, versuchs mal hiermit:

Delphi-Quellcode:

{normal}
{Sekunden := mediaplayer1.Position div 1000;}

If not (Sender = BitBtn3) Then Begin
  Sekunden := mediaplayer1.Position div 1000;
  Sekunden := Sekunden + 1;
End;

Minuten := Sekunden div 60;
Sekunden := Sekunden mod 60;

Stunden := Minuten div 60;
Minuten := Minuten mod 60;


{optimiert}
{Sekunden := mediaplayer1.Position div 1000;}

If not (Sender = BitBtn3) Then Inc(Sekunden);

Stunden := Sekunden div 3600;
Minuten := (Sekunden div 60) mod 60;
Sekunden := Sekunden mod 60;

(Da die Sekunden nich unbedingt in diesem Code berechnet werden, sollten sie vorher auf jeden Fall mindestens ein mal gesetzt werden.)

PS. Bei deiner Letzten Version hatest du die Minuten/Stunden doppelt berechnet.

Delphi-Quellcode:

{1} If Sekunden = 60 then begin
{1}   Sekunden := 0;
{1}   Minuten := Minuten+1;
{1}   If Minuten = 60 then begin
{1}     Minuten := 0;
{1}     Stunden := Stunden+1;
{1}   end;
{1} end; 
{2} If Sekunden >= 60 Then Begin
{2}   Inc(Minuten, Sekunden div 60);
{2}   Sekunden := Sekunden mod 60;
{2} End;
{2} If Minuten >= 60 Then Begin
{2}   Inc(Stunden, Minuten div 60);
{2}   Minuten := Minuten mod 60;
{2} End;

Wenn es so weiter geht, wird's ja bald richtig laufen.

[DelphiUser7]

Nicht bald, sondern sofort!
funzt, und zwar alles, vielen Dank, dass du dir so viel Mühe wegen mir gemacht hast!;

MfG
DelphiUser7