تعامل مع الوسائط المتعدد في دلفي
صفحة 1 من اصل 1 • شاطر
تعامل مع الوسائط المتعدد في دلفي
بسم الله الرحمن الرحيم
تعامل مع الوسائط المتعدد في دلفي
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.
تعامل مع الوسائط المتعدد في دلفي
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.
مواضيع مماثلة
» تعامل مع الرسائل في الدلفي
» تعامل مع النماذج المستعملة في المشروع
» شرح كيفية استعمال الحلقات في دلفي
» دلفي ورسائل
» رسائل في دلفي
» تعامل مع النماذج المستعملة في المشروع
» شرح كيفية استعمال الحلقات في دلفي
» دلفي ورسائل
» رسائل في دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى