Comment intégrer mplayer à un programme

Bonjour à tous,

je n'arrive pas à intégrer mplayer dans un programme; avec le code ci-dessous, j'obtiens le son mais pas l'image.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TForm1.Button2Click(Sender: TObject);   var pid:dword; pos:trect;   begin pos.Left:=10; pos.Top:=10; pos.Right:=320; pos.Bottom:=240; pid:=GetProcessID; videoproces:=tprocess.Create(nil); videoproces.WindowRect:=pos; videoproces.CommandLine:='mplayer /home/toto/Téléchargement/Sita_Sings_the_Blues.ogg -slave -quiet -wid '+inttostr(GetProcessID); videoproces.Options:=[pousepipes]; videoproces.Execute; end;

---

Je me demande s' il me manque pas une option à mplayer .

Quelqu'un a-t-il déjà essayé et réussi ??

Merci .

Bonjour,
il y a une erreur dans les options :
dans l'option -wid il faut mettre le Handle (TForm.Handle)de la fenêtre où tu veux que la vidéo soit lu. Il te faudra peut-être créer une autre fenêtre pour la visualisation.
essaie avec ça : (sous windows)

Code:

---

1 2 3 4 5 6 7 8

fenetre : TForm ; // fenêtre de visualisation de la vidéo   procedure TForm1.Button2Click(Sender: TObject); begin videoproces:=TProcessUTF8.Create(Self); videoproces.CommandLine := 'mplayer -slave -quiet -vo direct3d -wid ' + IntToStr( fenetre.Handle ) + ' "/home\toto\Téléchargement\Sita_Sings_the_Blues.ogg"' ; videoproces.Execute; end;

---