kuetedonald
Messages postés49Date d'inscriptionvendredi 30 mai 2014StatutMembreDernière intervention 4 octobre 2016
-
31 oct. 2014 à 11:14
kuetedonald
Messages postés49Date d'inscriptionvendredi 30 mai 2014StatutMembreDernière intervention 4 octobre 2016
-
15 nov. 2014 à 14:59
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;
ThierryLaborde
Messages postés91Date d'inscriptionmercredi 12 septembre 2007StatutMembreDernière intervention23 janvier 20171 1 nov. 2014 à 05:03
Bonjour,
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 ?
kuetedonald
Messages postés49Date d'inscriptionvendredi 30 mai 2014StatutMembreDernière intervention 4 octobre 20163 15 nov. 2014 à 14:59