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

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة  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






عدل سابقا من قبل mah11 في 23/5/2015, 2:34 pm عدل 1 مرات (السبب : تصحيح بعض المعلومات)

mah11
Admin

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

http://delph.forumalgerie.net

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

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

مُساهمة  sad13 في 8/1/2014, 9:10 pm


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

sad13
مبرمج

عدد المساهمات : 53
تاريخ التسجيل : 04/01/2014

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

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

مُساهمة  mah11 في 23/5/2015, 2:35 pm

بارك الله فيك

mah11
Admin

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

http://delph.forumalgerie.net

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

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

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

بارك الله فيك

sdk11
مبرمج مجتهد

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

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

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


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