[DELPHI] pb lecture de fichiers multimedia avec TMplayer help!!!!!!!!

Recherche :

Dernière réponse
Sujet : [DELPHI] pb lecture de fichiers multimedia avec TMplayer help!!!!!!!!
karlkox	Je ne fais pas de Delphi, mais le son et tout ce qui y est rattaché, oui. Je te conseillerais donc d'utiliser la librairie FMOD qui permet la meme chose que ce que tu veux faire plus beaucoup d'autres choses, que tu utiliseras suivant tes besoins. Elle est tres simple a utiliser et il y a des exemples pres a l'emploi en Delphi. Tu as aussi un forum ou l'on te répondra surement et dans un délai tres cours. Tout ca, c'est la : http://www.fmod.org Ah oui, librairie gratuite pour tout projet non commerciale.

Dernière réponse

Sujet : [DELPHI] pb lecture de fichiers multimedia avec TMplayer help!!!!!!!!

karlkox

Je ne fais pas de Delphi, mais le son et tout ce qui y est rattaché, oui. Je te conseillerais donc d'utiliser la librairie FMOD qui permet la meme chose que ce que tu veux faire plus beaucoup d'autres choses, que tu utiliseras suivant tes besoins. Elle est tres simple a utiliser et il y a des exemples pres a l'emploi en Delphi. Tu as aussi un forum ou l'on te répondra surement et dans un délai tres cours. Tout ca, c'est la :

http://www.fmod.org

Ah oui, librairie gratuite pour tout projet non commerciale.

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

karlkox

zizoubest

LetoII a écrit a écrit :

MediaPlayer1.Open;
MediaPlayer1.Play;
MediaPlayer1.Display := Panel1;
MessageDlg('Message'+fichiers.FileName
,mtError,mbOKCancel,0);

Es't ce que tu devrais pas initialiser le Display avant de faire jouer le truc?

Je ne sais pas et si c'est le cas avec quoi.
Avec les wav par exemple il n'y a pas de display et je n'ai pas de son.

Merci.

LetoII

MediaPlayer1.Open;
MediaPlayer1.Play;
MediaPlayer1.Display := Panel1;
MessageDlg('Message'+fichiers.FileName
,mtError,mbOKCancel,0);

Es't ce que tu devrais pas initialiser le Display avant de faire jouer le truc?

zizoubest

up
help :jap:

zizoubest

unit lecteuravi;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, MPlayer, FileCtrl;

type
TForm1 = class(TForm)
fichiers: TFileListBox;
dossiers: TDirectoryListBox;
disques: TDriveComboBox;
MediaPlayer1: TMediaPlayer;
Panel1: TPanel;
Jouer: TButton;
Stop: TButton;
Quitter: TButton;
procedure FormActivate(Sender: TObject);
procedure JouerClick(Sender: TObject);
procedure StopClick(Sender: TObject);
procedure QuitterClick(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
disques.Drive :='C';
dossiers.Directory :='C:\windows\media';
end;

procedure TForm1.JouerClick(Sender: TObject);
begin

MediaPlayer1.FileName := fichiers.FileName;

MediaPlayer1.Open;
MediaPlayer1.Play;
MediaPlayer1.Display := Panel1;
MessageDlg('Message'+fichiers.FileName
,mtError,mbOKCancel,0);

end;

procedure TForm1.StopClick(Sender: TObject);
begin
MediaPlayer1.Stop;
end;

procedure TForm1.QuitterClick(Sender: TObject);
begin
Application.Terminate;
end;

end.

************************************************************
****
object Form1: TForm1
Left = 175
Top = 207
Width = 544
Height = 375
Caption = 'AVI Player'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object fichiers: TFileListBox
Left = 112
Top = 40
Width = 89
Height = 121
ItemHeight = 13
Mask = '*.avi'
TabOrder = 0
end
object dossiers: TDirectoryListBox
Left = 8
Top = 64
Width = 97
Height = 97
FileList = fichiers
ItemHeight = 16
TabOrder = 1
end
object disques: TDriveComboBox
Left = 8
Top = 40
Width = 97
Height = 19
DirList = dossiers
TabOrder = 2
end
object MediaPlayer1: TMediaPlayer
Left = 200
Top = 16
Width = 253
Height = 20
DeviceType = dtAVIVideo
Display = Panel1
Visible = False
TabOrder = 3
end
object Panel1: TPanel
Left = 216
Top = 40
Width = 313
Height = 305
Color = clInactiveCaptionText
TabOrder = 4
end
object Jouer: TButton
Left = 16
Top = 224
Width = 75
Height = 25
Caption = '&Jouer'
TabOrder = 5
OnClick = JouerClick
end
object Stop: TButton
Left = 104
Top = 224
Width = 75
Height = 25
Caption = '&Stop'
TabOrder = 6
OnClick = StopClick
end
object Quitter: TButton
Left = 16
Top = 264
Width = 75
Height = 25
Caption = '&Quitter'
TabOrder = 7
OnClick = QuitterClick
end
end

LetoII

Sans le code ça va pas être facile de t'aider....

zizoubest

Bonjour, j'essaie de découvrir delphi au travers de quelques exemple d'un livre.
J'ai un problème avec la lecture de fichier avi, wav, mp3 etc..
j'ai créé un petit lecteur comme expliqué dans le livre mais le pb c'est que en executant la lecture il ne se passe rien aucun son aucune image et le tout sans erreur.
Par ailleurs les périphériques MCI ont l'air de bien fonctionner.
Y a t il un paramètrage sous windows à faire si qlq1 a une idée
elle est la bien venue