Discussion :

[Yepazix]

Bonjour,

J'expérimente un peu le composant MediaPlayer.
Pour commencer je voulais faire un truc simple.
Jouer un simple WAV qui est dans un repertoir de mon application.

J'ai placé sur une fiche un compo MediaPlayer et un boutton.

Quand je clique sur le bouton, ça fait ceci :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
AppDir := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName));
Mediaplayer1.Filename:= AppDir + 'sound\1.wav';
Mediaplayer1.play;
Edit1.Text:=mediaplayer1.FileName;
end;

Sur MediaPlayer1 j'ai mis AutoOpen a TRUE.

Et ben quand je clique sur mon bouton j'ai pas un pet de son qui sort. Pourtant la ligne Edit1.Text:=mediaplayer1.FileName; met permet bien de voir que c'est le bon nom de fichier qui est dedans.

Du coup j'ai essayé en mettant dans Filename directement d:\MEDIA\sound\0.wav

Et la quand je clique sur le bouton il joue le son 0.wav, pourtant avant de faire PLAY je change le filename !!
Donc je me dis qu'il ne charge pas ce que je met dans Filename mais je ne sais pas comment lui dire de le charger.

PPFFFF chui pas clair, enfin si quelqu'un comprends ce que je veux dire merci de m'aider....

[the_clansman]

Salut,

Ben moi, je fais ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.BitBtn1Click(Sender: TObject);
 
Var
  AppDir: String;
 
begin
  AppDir := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName));
  Mediaplayer1.Filename:= AppDir + 'sound\02-UnLapin.mp3';
  Mediaplayer1.Open;
  Mediaplayer1.play;
  Label1.Caption:=mediaplayer1.FileName;
end;

Donc, pas d'autoopen, une affectation à la mimine du fichier et un lancement à la mimine de open...

[ero-sennin]

Salut puce_84,

Je ne sais pas si je serai d'une grande aide, mais je n'utilise pas le composant TMediaPlayer. Je préfère utilise l'active X TWindowsMediaPlayer, qui, à mon goût, offre beaucoup plus de fonctionnalités.

D'ailleurs, j'ai récemment fait un tuto concernant l'utilisation du TWindowsMediaPlayer. Si ça peut t'aider ...
(n'hésites pas à critiquer )

A+

[cincap]

@ Puce_84, il faut lui indiquer "Open" autrement que dans les propriétés.

The_Clansman te l'indique !

@ Ero-Sennin dommage que l'on ne sait plus charger le projet d'exemple, cela m'intéresse.

@+,

Cincap

[Yepazix]

Merci the_clansman,

J'ai en effet uttilisé OPEN comme tu l'as préconisé et ça marche nikel !
Etrange toutefois que AutoOpen ne marche pas. Autoopen n'est il pas justement créé juste pour ne pas devoir faire un OPEN à chaque fois ?

Merci aussi a ero-sennin,

Je vais regarder ce composant bien que pour ce que je veux faire le compo de base soit déjà suffisant ça a l'air bien intéressant.

A+ et encore merci à vous deux.