IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Delphi Discussion :

creation d'un media player


Sujet :

Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Août 2006
    Messages
    25
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2006
    Messages : 25
    Par défaut 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 : 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
    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.

  2. #2
    Membre chevronné

    Profil pro
    Inscrit en
    Mars 2005
    Messages
    258
    Détails du profil
    Informations personnelles :
    Âge : 50
    Localisation : France

    Informations forums :
    Inscription : Mars 2005
    Messages : 258
    Par défaut
    Bonsoir,

    Dans Ton FormCreate, rajoute aussi la ligne suivante :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Août 2006
    Messages
    25
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2006
    Messages : 25
    Par défaut
    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

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Août 2006
    Messages
    25
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2006
    Messages : 25
    Par défaut
    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é.

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Août 2006
    Messages
    25
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2006
    Messages : 25
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. windows media player
    Par azziz2005 dans le forum Autres Logiciels
    Réponses: 4
    Dernier message: 03/04/2007, 15h30
  2. Comment modifier le volume du media player ?
    Par Yepazix dans le forum API, COM et SDKs
    Réponses: 3
    Dernier message: 03/10/2005, 10h44
  3. commandes du windows media player
    Par Tierisa dans le forum Access
    Réponses: 6
    Dernier message: 09/09/2005, 08h45
  4. windows media player bloque
    Par c+cool dans le forum Autres Logiciels
    Réponses: 7
    Dernier message: 16/08/2005, 16h16
  5. [Outils][C#] Comment piloter Windows Media Player ?
    Par rawrr dans le forum EDI/Outils
    Réponses: 4
    Dernier message: 30/04/2005, 18h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo