مديا ابلاير mediaplayer في delphi
2 مشترك
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
مديا ابلاير mediaplayer في delphi
بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الوسائط المتعدد في دلفي
منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الوسائط المتعدد في دلفي
- الكود:
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 مرات (السبب : تصحيح بعض المعلومات)
رد: مديا ابلاير mediaplayer في delphi
بارك الله فيك
sdk11- مبرمج مجتهد
- عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014
مواضيع مماثلة
» كيفية انشاء ملف DLL بـــ Delphi واستدعائه بــــبرنامج دلفي Delphi تحميل قيم
» طلب مساعدة في delphi
» delphi and sql
» كل أوامر delphi
» delphi programmer
» طلب مساعدة في delphi
» delphi and sql
» كل أوامر delphi
» delphi programmer
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى