مواصلة القراءة في المديا بلاير MediaPlayer

[ZORRO__DZ]

السلام عليكم

قمت بعمل برنامج لقراءة القرأن الكريم من سيرفر ،
كيف عند انتهاء السورة مثلا الفاتحة يواصل القرأة للبقرة ( مثال)
وفي المرفقات الكود لفهم المشكل أكثر

[kachwahed]

وعليكم السلام ورحمة الله
لم أجرب، لكني أرجح أنه يملك إجراء Pause كما يملك إجراء Play

PHP كود :

MediaPlayer1.DeviceType := dtAutoSelect; 
MediaPlayer1.FileName := YourFilename; 
MediaPlayer1.Open; 
MediaPlayer1.Play; 


بالتوفيق.

[mohfa]

ضف هذا لمكون 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; 


ملاحظة : اجعل خاصية Enabled لل TTimer غير مفعلة إلا عند بداية القراءة .
والسلام عليكم .

[ZORRO__DZ]

السلام عليكم

بارك الله فيكم الأخ Kachwahed و mohfa

لك المشكل لم ينحل حاولت التعديل على كل الاكواد لكن دون جدوى ارى ان الأمر بسيط فقط بعض التركيز لكنه جربت عدة محاولات

شكراً لكل من مر من هنا وانا في انتظار بعض الإقتراحات من الاعضاء

جزاكم الله خيرً

* فقط يجب عليكم فتح الكود سورس المرفق لفهم الإشكالية جزاكم الله خير

[mohfa]

اخي الكريم الاجابة تمت على اساس طرحك للمشكل الكود الذي كتبته نجح معي وتتم القراءة من سورة الى اخرى بعد انتهاء الاولى هذا يتم على حساب الطول الزمني للسورة .
انظرالى :
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; 


[ZORRO__DZ]

مشكور الأخ محمد نعم حل المشكل لكن جزئياً لا **** الإكثار عليك

وان كان عندك وقت سوف نواصل وهدف البرنامج واضح

[mohfa]

اذا كان كذلك ضع المشروع في قسم المشاريع الجماعية وستجد من يشاركك من الاعضاء باذن الله .