Bonjour je voudrais afficher une video sur une fiche. j'utilise le code ci-dessous mais lorque je charge ma video je suis le sons de ma videos mais pas d'affichage
procedure TForm1.OpenButtonClick(Sender: TObject); begin OpenDialog1.Filter := TMediaCodecManager.GetFilterString; if OpenDialog1.Execute then begin PauseButton.Enabled := True;
MediaPlayer1.FileName := OpenDialog1.FileName;
if MediaPlayer1.Media <> nil then begin Label1.Text := IntToStr(MediaPlayer1.Media.VideoSize.Truncate.X) + 'x' + IntToStr(MediaPlayer1.Media.VideoSize.Truncate.Y) + 'px ' + IntToStr(MediaPlayer1.Media.Duration div MediaTimeScale) + 'ms'; TrackBar1.Max := MediaPlayer1.Media.Duration; VolumeTrack.Value := 1 - MediaPlayer1.Media.Volume;
Le composant MediaPlayer dans Firemonkey permet de lire une vidéo ou un fichier de musique. Pour afficher la vidéo il faut aussi rajouter le composant MediaPlayerControl et le lier au composant MediaPlayer. Est-ce que c'est ce que vous avez fait ?