creation d'un media player

(en esperant etre dans la bonne section ;) )

Salut, je me suis lancer dans l apprentissage de la programmation, et pour mon premier essai j ai voulu creer un mediaplayer en suivant le tutoriel suivant: par "Christopher PECAUD"

http://christopher-pecaud.developpez...CKDelphi/#L1.1

et egalement:

http://paul.glagla.free.fr/d2.htm

J'arrive a m'en sortir plus ou moins je peut ouvrir un avi et le jouer, cependant il m'est impossible de créer le trackbar pour regler le son si vous pouviez m'aider, voici mon code:

ps:TrackBar1: TTrackBar;> est l poutil qui me permettrai de regler le son.
ps2: j ai egalement un probleme apres un fullscrenn l iamge se recardre en Haut a gauche et non au centre, enfin ca ce n ai pas urgent merci.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
unit Unit1;
 
{-----------------------------------------------------------------------------}
interface
 
{-----------------------------------------------------------------------------}
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DSPack, StdCtrls, Buttons, ComCtrls, Menus;
 
{-----------------------------------------------------------------------------}
type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    FilterGraph1: TFilterGraph;
    BitBtn4: TBitBtn;
    DSVideoWindowEx21: TDSVideoWindowEx2;
    DSTrackBar1: TDSTrackBar;
    PopupMenu1: TPopupMenu;
    Play1: TMenuItem;
    Pause1: TMenuItem;
    Stop1: TMenuItem;
    Quitter1: TMenuItem;
    FullScreen1: TMenuItem;
    OpenDialog1: TOpenDialog;
    OuvrirBtn: TBitBtn;
    TrackBar1: TTrackBar;
    procedure OuvrirBtnClick(Sender: TObject);
 
 
    procedure DSVideoWindowEx21Click(Sender: TObject);
    procedure Quitter1Click(Sender: TObject);
    procedure Stop1Click(Sender: TObject);
    procedure Pause1Click(Sender: TObject);
    procedure Play1Click(Sender: TObject);
    procedure FullScreen1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
{-----------------------------------------------------------------------------}
var
   Form1: TForm1;
 
{-----------------------------------------------------------------------------}
{   La constante fichier doit être modifiée pour désigner un
{   fichier miltimedia accessible sur votre ordinateur, et compatible
{   avec Windows Media Player
{                                                                             }
Fichier:string;
 
{-----------------------------------------------------------------------------}
implementation
 
{$R *.dfm}
 
{-----------------------------------------------------------------------------}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if not filtergraph1.active then begin
  filtergraph1.active:=true;
  filtergraph1.RenderFile(fichier);
end;
if not filtergraph1.active then begin
filtergraph1.active:=true;
filtergraph1.RenderFile(fichier);
 
end;
filtergraph1.Play;
end;
 
{-----------------------------------------------------------------------------}
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
close;
end;
 
{-----------------------------------------------------------------------------}
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
filtergraph1.Pause;
end;
 
{-----------------------------------------------------------------------------}
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
filtergraph1.Stop;
filtergraph1.Active:=false;;
end;
 
{-----------------------------------------------------------------------------}
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
filtergraph1.cleargraph;
filtergraph1.active:=false;
end;
 
{-----------------------------------------------------------------------------}
procedure TForm1.FullScreen1Click(Sender: TObject);
begin
 If DSVideoWindowEx21.FullScreen then
  begin
    DSVideoWindowEx21.FullScreenTopMost := False;
    DSVideoWindowEX21.SetBounds(0,0,337, 225);
 
    DSVideoWindowEx21.NormalPlayback;
    end
  else
  begin
      DSVideoWindowEx21.FullScreenTopMost := True;
      DSVideoWindowEX21.SetBounds(0,0,Screen.Width, Screen.Height);
      DSVideoWindowEx21.StartFullScreen;
 
  end;
 
end;
 
procedure TForm1.Play1Click(Sender: TObject);
begin
 if not filtergraph1.active then begin
filtergraph1.active:=true;
filtergraph1.RenderFile(fichier);
 
end;
filtergraph1.Play;
end;
 
procedure TForm1.Pause1Click(Sender: TObject);
begin
 filtergraph1.Pause
end;
 
procedure TForm1.Stop1Click(Sender: TObject);
begin
 filtergraph1.Stop;
filtergraph1.Active:=false;
end;
 
procedure TForm1.Quitter1Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.DSVideoWindowEx21Click(Sender: TObject);
begin
  If DSVideoWindowEx21.FullScreen then
  begin
    DSVideoWindowEx21.FullScreenTopMost := False;
    DSVideoWindowEX21.SetBounds(0,0,337, 225);
 
    DSVideoWindowEx21.NormalPlayback;
    end
  else						   
  begin
      DSVideoWindowEx21.FullScreenTopMost := True;
      DSVideoWindowEX21.SetBounds(0,0,Screen.Width, Screen.Height);
      DSVideoWindowEx21.StartFullScreen;
 
  end;
end;
 
 
procedure TForm1.OuvrirBtnClick(Sender: TObject);
begin
 // Attention: prévoir une gestion des erreurs
if opendialog1.execute then begin
 
 
 
fichier:=opendialog1.filename;
 
 
 
 
 
end;//if opendialog1
 
end;
 
end.

Bonsoir,

Dans Ton FormCreate, rajoute aussi la ligne suivante :
Code:

1 2 3 4 tbVolume.Position := 3000; tbVolume.SelEnd := tbVolume.Position; filterGraph1.Volume := tbVolume.Position;
Ca c'est pour l'initialisation!!!

Et ensuite

rajoute la fonction OnChange de ta Trackbar (comme dans la partie 3.5 de mon tutoriel)...

A plus...

Christopher PECAUD

salut merci pour la reponse rapide et precise, je vais essayer de suite, sinon tres bon tuto pour les novice comme moi ;).

edit: c est peut etre bete, surement d ailleur, mais c est ou exactement le FormCreate, desolé c est mes debut ;)

finalement jai reussi a gerer le son, il y a un petit bug qui est que je doit utiliser la barre pour regler le son car a l ouvertur d un media le la barre est a zero mais pas le son. Il faudrait que je parvienne a ce que lors de l ouverture d un media la barre se mette au centre par exemple et ainsi maittre le son du media a moitié.

salut bonb je n arrive toujours pas a regler le bug avec la bar de son mais se n est pas urgent.
Par contre j aimerai inclure un graph a mon player de facon a ce que l affichage de sortie de video soit celle de mon choix (le graph est deja fait avec grhapedit).
Comment faire? faut il utiliser Tfilter ou paramettrer TFliterGraph??
merci