Zeitumwandlung mit Millisekunden ergibt Millisekunden mit null

[Anakond]

Hallo,
Ich benutze Delphi 10.4
Mit dem Mediaplayer-Komponente möchte ich die Millisekunden abrufen.
Die Anwendung wird auf einem Android-Tablet mit Version 7.0 installiert.
Das Problem ist, wenn ich die Zeitumwandlung zum Beispiel (string) '00:01:23.379'
durchführe, wird das Ergebnis '00:01:23' bzw. '00:01:23.000'

Meine Frage ist, wie kann ich eine korrekte Zeitkonvertierung durchführen,
um auch die Millisekunden '.379' abrufen zu können.

Das Ziel dieses Projekt ist,
dass der Mediaplayer genau zu einer bestimmter Zeit aufhört zu spielen.

Code:

procedure TFormMain.Button21Click(Sender: TObject);
var
  dt: TDatetime;
  iTime: Double;
begin
  
  // test 01
  dt := StrToDateTime(datetostr(date) + ' ' + '00:01:23.379');
  Label10.Text := FormatDateTime('hh:nn:ss.zzz', dt);
  // Ergebnis: Label10.Text-> '00:01:23' )

  // test 02
  // wenn MediaPlayer1.CurrentTime > '00:01:23.379'
  Label10.Text := FormatDateTime('hh:nn:ss.zzz', MediaPlayer1.CurrentTime.ToDateTime);
  // Ergebnis: Label10.Text -> '00:01:23' )

  if CompareTime(MediaPlayer1.CurrentTime.ToDateTime, dt) > 0 then // dt ist hier '00:01:23'
    MediaPlayer1.Stop;

  // Oder
  // wie kann man die Zeit '00:01:23.379' umwandeln zu iTime
  // iTime := ???
  if MediaPlayer1.CurrentTime > iTime then MediaPlayer1.Stop;

end;

Vielen Dank für jede Hilfe, die Sie mir geben können.

[Papaschlumpf73]

Hast du schon geprüft, ob die Millisekunden überhaupt in dem DateTime-Wert richtig angekommen sind?
Z.B. mit System.DateUtils.MilliSecondOf()

[Papaschlumpf73]

Habs mal probiert. Das Problem ist schon StrToDateTime. Hier gehen dir schon die Millisekunden verloren.
Keine Ahnung wie das mit dem StrTo... richtig geht. Das hier ist aber Idiotensicher: EncodeDatetime()

[Anakond]

Code:

 dt := StrToDateTime(datetostr(date) + ' ' + '00:01:23.379');
 mil := System.DateUtils.MilliSecondOf(dt) ;
 Label10.Text := mil.ToString ;

Das Ergbnis is 0 in Label10.Text

Ich weiß nicht, ob das Problem von Android Version 7 oder von Delphi kommt?

[Papaschlumpf73]

Unter Windows kommt da auch .000 raus.

[Uwe Raabe]

Zitat von Anakond:

Das Problem ist, wenn ich die Zeitumwandlung zum Beispiel (string) '00:01:23.379'

Solange du den DecimalSeparator nicht umgestellt hast, müsste das aber '00:01:23,379' heißen.

[Anakond]

Villen dank für deine hinweise mit EncodeDateTime()

Code:

  dt := EncodeDateTime(2022, 08, 16, 00, 01, 23, 379);
  Label10.Text := FormatDateTime('hh:nn:ss.zzz', dt ) ;

Super, jetzt bekomme ich die Millisekunden.

[Anakond]

Zitat von Uwe Raabe:

Zitat von Anakond:

Das Problem ist, wenn ich die Zeitumwandlung zum Beispiel (string) '00:01:23.379'

Solange du den DecimalSeparator nicht umgestellt hast, müsste das aber '00:01:23,379' heißen.

Wie kann ich die DecimalSeparator umstellen ?

Muss ich suchen FormatSettings für dt oder im FormatDateTime() ???

[Anakond]

Ich bin ihnen sehr dankbar für ihre schnelle Antwort.

Ich habe FormatSettings. in der Form-Erstellung eingelegt.

Code:

procedure TForm.FormCreate(Sender: TObject);
 FormatSettings.DecimalSeparator := '.' ;
end;

Habe eine Zeit lange gesucht, und es scheint jetzt alles so zu funktionieren,
wie ich mir das gewünscht habe.

Villen Dank.

[Uwe Raabe]

Zitat von Anakond:

Wie kann ich die DecimalSeparator umstellen ?

Die Idee war an sich nicht, den DecimalSeparator umzustellen. Der sollte sich immer nach dem User richten. Eigentlich sollte das Zeitliteral angepasst werden, wenn es denn überhaupt in dieser Form in das Programm gehört.

Ohne Umstellung geht es aber auch so:
StrToDateTime(datetostr(date, TFormatSettings.Invariant) + ' ' + '00:01:23.379', TFormatSettings.Invariant);