مديا ابلاير mediaplayer في delphi

اذهب الى الأسفل

مديا ابلاير mediaplayer في delphi

مُساهمة  mah11 في 29/6/2013, 8:15 pm

بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين

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



الكود:

unit Unit1; // delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 MPlayer, ExtCtrls, StdCtrls; // delph.forumalgerie.net

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

var
 Form1: TForm1; // delph.forumalgerie.net

implementation

{$R *.DFM} // delph.forumalgerie.net

{
فتح ملف فيديو أي صوت و صورة أو وديو أي صوت
بعد البحث عنه
}

procedure TForm1.Button1Click(Sender: TObject); // delph.forumalgerie.net
begin
MediaPlayer1.AutoOpen := false; // delph.forumalgerie.net
OpenDialog1.DefaultExt := 'avi'; // delph.forumalgerie.net
OpenDialog1.Filter := 'fichiers avi(*.avi)|*.avi|fichiers wav(*.wav)|*.wav|tout les fichiers (*.*)|*.*'; // delph.forumalgerie.net
if OpenDialog1.Execute then
begin
 MediaPlayer1.FileName := OpenDialog1.FileName; // delph.forumalgerie.net
 MediaPlayer1.DeviceType := dtAutoSelect; // delph.forumalgerie.net
 MediaPlayer1.Open; // delph.forumalgerie.net
 MediaPlayer1.Play; // delph.forumalgerie.net
 MediaPlayer1.DisplayRect := Panel1.ClientRect; // delph.forumalgerie.net
end; // delph.forumalgerie.net
end; // delph.forumalgerie.net

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

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

end. // delph.forumalgerie.net


منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net


عدل سابقا من قبل alla في 24/5/2015, 6:38 pm عدل 3 مرات (السبب : تصحيح بعض المعلومات)

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: مديا ابلاير mediaplayer في delphi

مُساهمة  sdk11 في 13/6/2015, 12:02 am

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى