+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مواصلة القراءة في المديا بلاير MediaPlayer (/showthread.php?tid=3091)
مواصلة القراءة في المديا بلاير MediaPlayer - ZORRO__DZ - 17-05-2011
السلام عليكم
قمت بعمل برنامج لقراءة القرأن الكريم من سيرفر ،
كيف عند انتهاء السورة مثلا الفاتحة يواصل القرأة للبقرة ( مثال)
وفي المرفقات الكود لفهم المشكل أكثر
مواصلة القراءة في المديا بلاير MediaPlayer - kachwahed - 17-05-2011
وعليكم السلام ورحمة الله
لم أجرب، لكني أرجح أنه يملك إجراء Pause كما يملك إجراء Play
PHP كود :
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.FileName := YourFilename;
MediaPlayer1.Open;
MediaPlayer1.Play;
مواصلة القراءة في المديا بلاير MediaPlayer - mohfa - 18-05-2011
ضف هذا لمكون TTimer :
PHP كود :
procedure TForm1.Timer1Timer(Sender: TObject);
var
TrackPos,
TrackLen:Integer;
begin
TrackPos :=Trunc( WindowsMediaPlayer1.controls.currentPosition);
TrackLen :=Trunc( WindowsMediaPlayer1.currentMedia.duration);
if (TrackPos=TrackLen) and (TrackPos>0) then begin
ComboBox1.ItemIndex :=ComboBox1.ItemIndex+1;
ComboBox1Change(self);
end;
end;
والسلام عليكم .
مواصلة القراءة في المديا بلاير MediaPlayer - ZORRO__DZ - 18-05-2011
السلام عليكم
بارك الله فيكم الأخ Kachwahed و mohfa
لك المشكل لم ينحل حاولت التعديل على كل الاكواد لكن دون جدوى ارى ان الأمر بسيط فقط بعض التركيز لكنه جربت عدة محاولات
شكراً لكل من مر من هنا وانا في انتظار بعض الإقتراحات من الاعضاء
جزاكم الله خيرً
* فقط يجب عليكم فتح الكود سورس المرفق لفهم الإشكالية جزاكم الله خير
مواصلة القراءة في المديا بلاير MediaPlayer - mohfa - 18-05-2011
اخي الكريم الاجابة تمت على اساس طرحك للمشكل الكود الذي كتبته نجح معي وتتم القراءة من سورة الى اخرى بعد انتهاء الاولى هذا يتم على حساب الطول الزمني للسورة .
انظرالى :
SouraPos و SouraLen .
هل هذا ماتبحث عنه
PHP كود :
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Case ComboBox1.ItemIndex of
1:WindowsMediaPlayer1.URL:='http://server10.mp3quran.net/jleel/001.mp3';
2:WindowsMediaPlayer1.URL:='http://server10.mp3quran.net/jleel/008.mp3';
3:WindowsMediaPlayer1.URL:='http://server10.mp3quran.net/jleel/009.mp3';
end;
timer1.enabled:=true;
{هذا كله يمكنك استبداله بالكود الموجود في الاعلى
If ComboBox1.text='EL_FATHA' then
WindowsMediaPlayer1.URL:='http://server10.mp3quran.net/jleel/001.mp3';
////////////////////////////////
If ComboBox1.text='EL_ANFALL' then
WindowsMediaPlayer1.URL:='http://server10.mp3quran.net/jleel/008.mp3';
////////////////////////////////
If ComboBox1.text='EL_TAOUBAA' then
WindowsMediaPlayer1.URL:='http://server10.mp3quran.net/jleel/009.mp3';
}
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
SouraPos,
SouraLen:Integer;
begin
SouraPos :=Trunc( WindowsMediaPlayer1.controls.currentPosition);
SouraLen :=Trunc( WindowsMediaPlayer1.currentMedia.duration);
if (SouraPos=SouraLen) and (SouraPos>0) then begin
ComboBox1.ItemIndex :=ComboBox1.ItemIndex+1;
ComboBox1Change(self);
end;
end;
مواصلة القراءة في المديا بلاير MediaPlayer - ZORRO__DZ - 19-05-2011
مشكور الأخ محمد نعم حل المشكل لكن جزئياً لا **** الإكثار عليك
وان كان عندك وقت سوف نواصل وهدف البرنامج واضح
مواصلة القراءة في المديا بلاير MediaPlayer - mohfa - 19-05-2011
اذا كان كذلك ضع المشروع في قسم المشاريع الجماعية وستجد من يشاركك من الاعضاء باذن الله .