Работа с MediaPlayer

[Makhammadjon]

Здравтвуйте. У меня вопрос в том что, я не могу использовать Properties MediaPlayer. Например 

{ TrackBar1->Max=MediaPlayer1->Duration; }

Этот код никак не работает в Android. 

Я хочу чтобы при нажатии кнопки ПЛЕЙ TrackBar двигался. 

Если компилирую для Windows работает, для Android нет.

{

MediaPlayer1->FileName = IncludeTrailingPathDelimiter(System::Ioutils::TPath::GetDocumentsPath()) + "music.mp3";

TrackBar1->Max=MediaPlayer1->Duration;
Timer1->Enabled=1;
MediaPlayer1->Play(); 

}

Жду Вашего ответа.

Изменено 4 апреля, 2018 пользователем Makhammadjon

[delcpy]

Я думаю примерно вот так будет.

uses 

System.IOUtils;

procedure TMyForm.sbPlayClick(Sender: TObject);
begin
  MediaPlayer.FileName:= TPath.GetDocumentsPath + PathDelim +'grouse_boy.mp3';
  MediaPlayer.Play; 
  tbRjabhucMusicTrek.Max := MediaPlayer.Duration;
end;

procedure TMyForm.sbStopClick(Sender: TObject);
begin
  MediaPlayer.Stop; 
  MediaPlayer.CurrentTime := 0; 
end;

procedure TMyForm.Timer1Timer(Sender: TObject);
begin
  tbRjabhucMusicTrek.Value := MediaPlayer.CurrentTime;
end;

 

Изменено 6 марта, 2019 пользователем Бука