Discussion :

[jp1965]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 .

[jlsolimine]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;