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

**mah11** 5/8/2013, 7:59 pm

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

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

الكود:: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, // delph.forumalgerie.net 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 { 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'; // delph.forumalgerie.net 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

sad13 8/1/2014, 9:10 pm

مشكـــــور على الموضـــــوع.................

**mah11** 23/5/2015, 2:35 pm

بارك الله فيك

sdk11 13/6/2015, 9:04 am

بارك الله فيك

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

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

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

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

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