تعامل مع الوسائط المتعدد في دلفي

بسم الله الرحمن الرحيم

تعامل مع الوسائط المتعدد في دلفي

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
 MediaPlayer1: TMediaPlayer;
 Panel1: TPanel;
 Button1: TButton;
 OpenDialog1: TOpenDialog;
 Button2Open: TButton;
 Button3Save: TButton;
 SaveDialog1: TSaveDialog;
 procedure Button1Click(Sender: TObject);
 procedure Button2OpenClick(Sender: TObject);
 procedure Button3SaveClick(Sender: TObject);
 private
 { Déclarations privées }
 public
 { Déclarations publiques }
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}
{
 فتح ملف فيديو أي صوت و صورة أو وديو أي صوت
 بعد البحث عنه
}
procedure TForm1.Button1Click(Sender: TObject);
begin
 MediaPlayer1.AutoOpen := false;
 OpenDialog1.DefaultExt := 'avi';
 OpenDialog1.Filter := 'fichiers avi(*.avi)|*.avi|fichiers wav(*.wav)|*.wav|tout les fichiers (*.*)|*.*';
 if OpenDialog1.Execute then
 begin
 MediaPlayer1.FileName := OpenDialog1.FileName;
 MediaPlayer1.DeviceType := dtAutoSelect;
 MediaPlayer1.Open;
 MediaPlayer1.Play;
 MediaPlayer1.DisplayRect := Panel1.ClientRect;
 end;
end;

// فتح ملف صوت محدد في المسار
procedure TForm1.Button2OpenClick(Sender: TObject);
begin
 MediaPlayer1.AutoOpen := false; // Ouvrir
 MediaPlayer1.FileName := 'C:\WINDOWS\Media\start.wav';
 MediaPlayer1.DeviceType := dtAutoSelect;
 MediaPlayer1.Open;
 MediaPlayer1.Wait := false;
// بداية التسجيل
 MediaPlayer1.StartRecording;
end;

// حفظ الملف
procedure TForm1.Button3SaveClick(Sender: TObject);
begin
 MediaPlayer1.Stop; // Entegistrer
 SaveDialog1.DefaultExt := 'wav';
 SaveDialog1.FileName := 'wave';
 SaveDialog1.Filter := 'fichier (*.wav)|*.wav';
 if SaveDialog1.Execute then
 begin
 MediaPlayer1.FileName := SaveDialog1.FileName;
 MediaPlayer1.Save;
 MediaPlayer1.Close;
 end;
end;

end.