CurrentTime

[mrseagull]

Не могу разбить CurrentTime у MediaPlayer на милисекунды, секунды, минуты 
Работаю на С++. Понятно что надо разделить значение но на сайте в справке так и не нашел в каких единицах CurrentTime

[rareMax]

TTimeSpan - попробуй его

[Andrey Efimov]

FMX.Media.TMediaPlayer.CurrentTime

Там написано:

Цитата

Specifies the current playback position.

CurrentTime is measured in 100ns. To obtain s, divide CurrentTime by MediaTimeScale.

Set CurrentTime to control the current position to be played.

 

[Axbor]

Делим на 100000 (если не ошибаюсь), и получаем продолжительность в секундах... Дальше как обычно.

[rareMax]

procedure TForm4.Button1Click(Sender: TObject);
Var
  LMediaTime: TTimeSpan;
begin
  // Заполняем TTimeSpan
  LMediaTime := TTimeSpan.Create(MediaPlayer1.CurrentTime);
  // Выводим инфу в заголовок формы
  Caption := string.Join(':', [LMediaTime.Minutes, LMediaTime.Seconds,
    LMediaTime.Milliseconds]);
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
  // Загружаем медиафайл
  MediaPlayer1.FileName :=
    'C:\Users\Public\Music\Sample Music\Maid with the Flaxen Hair.mp3';
  // Воспроизводим его
  MediaPlayer1.Play;
end;