دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

مديا ابلاير 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
مبرمج مجتهد

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

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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