Lecteur avi, mpeg et wmv
unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, MPlayer, FileCtrl; type TForm1 = class(TForm) DriveComboBox1: TDriveComboBox; DirectoryListBox1: TDirectoryListBox; FileListBox1: TFileListBox; MediaPlayer1: TMediaPlayer; Panel_Display: TPanel; Button_Lecture: TButton; Button_Stop: TButton; Button_Quitter: TButton; procedure Button_LectureClick(Sender: TObject); procedure Button_StopClick(Sender: TObject); procedure Button_QuitterClick(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button_LectureClick(Sender: TObject); begin MediaPlayer1.FileName := FileListBox1.FileName; // Spécifie le fichier à ouvrir MediaPlayer1.Display := Panel_Display; // Fenêtre d'affichage de la vidéo MediaPlayer1.Open; //Ouvre le périphérique multimédia. MediaPlayer1.Play; //Déclenche le lecteur de périphérique. end; procedure TForm1.Button_StopClick(Sender: TObject); begin MediaPlayer1.Stop; //Arrête la lecture end; procedure TForm1.Button_QuitterClick(Sender: TObject); begin Application.Terminate; //Termine l'exécution de votre application. end; end.
Lire des fichiers XM
//////////////////////////////////////////////////// //////////////////Jouer des fichier xm ///////////// ////////////////////www.OneSofts.com//////////////// //////////////// PsyckoHia@ifrance.com ///////////// //////////////////////////////////////////////////// /////////////////psyckohia@onesofts.com///////////// ///////////////////////11/11/2007/////////////////// //////////////////////////////////////////////////// // Ajouter MiniFMOD Dans uses unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ExtDlgs, ShellApi, Buttons, MiniFMOD;// Ajouter MiniFMOD Dans uses type TPsyckoHia = class(TForm) MySite: TLabel; OpenDialog1: TOpenDialog; Panel1: TPanel; OuvrirXm: TSpeedButton; Label1: TLabel; Panel2: TPanel; Label2: TLabel; Play: TImage; Stop: TImage; PlayRes: TImage; StopRes: TImage; ListeXm: TComboBox; procedure MySiteClick(Sender: TObject); procedure OuvrirXmClick(Sender: TObject); procedure StopClick(Sender: TObject); procedure PlayClick(Sender: TObject); procedure PlayResClick(Sender: TObject); procedure StopResClick(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var PsyckoHia: TPsyckoHia; implementation {$R *.dfm} {$R xm.RES} /// Ajouter {$R xm.RES} ///////////////////////// Ouvrir un fichier XM ///////////////////////// procedure TPsyckoHia.OuvrirXmClick(Sender: TObject); begin OpenDialog1.InitialDir := (ExtractFileDir(Application.ExeName)); If OpenDialog1.Execute Then Begin XMFree; XMLoadFromFile(PChar(OpenDialog1.FileName)); Play.Visible := True; Stop.Visible := False; Panel2.Visible := False; end; end; //////////////////////////////////////////////////////////////////////// //////////////////////////////// LECTURE /////////////////////////////// procedure TPsyckoHia.PlayClick(Sender: TObject); begin XMPlay; Stop.Visible := true; OuvrirXm.Visible := False; Play.Visible := false; end; //////////////////////////////////////////////////////////////////////// ////////////////////////////////// STOP ///////////////////////////////// procedure TPsyckoHia.StopClick(Sender: TObject); begin XMStop; XMFree; Stop.Visible := False; OuvrirXm.Visible := True; Play.Visible := false; Panel2.Visible := True; end; //////////////////////// Stop La lecture de la ressource /////////////////////// procedure TPsyckoHia.PlayResClick(Sender: TObject); begin XMLoadFromRes(PChar(ListeXm.Text),'xm'); XMPlay; ListeXm.Enabled := false; PlayRes.Visible := False; StopRes.Visible := True; Panel1.Visible := false; end; //////////////////////// Stop La lecture de la ressource /////////////////////// procedure TPsyckoHia.StopResClick(Sender: TObject); begin XMStop; XMFree; ListeXm.Enabled := True; PlayRes.Visible := True; StopRes.Visible := False; Panel1.Visible := true; end; //////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////// procedure TPsyckoHia.MySiteClick(Sender: TObject); begin ShellExecute(0,'Open','http://www.OneSofts.com','null','null',SW_NORMAL); //////////////////////////////////////////////////////////////////////// end; end.