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

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

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

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

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

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


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