PDA

View Full Version : چی کار کنم که آهنگ مدیا پلیر به صورت اتوماتیک تکرار بشه؟



Narges-s
جمعه 13 شهریور 1388, 02:07 صبح
من از مدیا پلیر استفاده کردم . اما میخوام آهنگی که واسش در نظر گرفتم به صورت اتوماتیک تکرار بشه. یعنی آهنگ در صورتی قطع بشه که کاربر اونو خاموش کنه!

میشه بگید باید از چه کدی استفاده کنم؟ و اون کد رو کجا باید بنویسم؟ :متفکر:

majid_ramak
جمعه 13 شهریور 1388, 12:23 عصر
یه متغیر به اسم FFlag تو Private از نوع Boolean تعریف کنید.
بعد دوتا Button یکی به اسم Play و Stop و در OnClick اونا و OnNotify مدیا پلیر این کدها رو بنویسید:


;(procedure TForm1.MediaPlayerNotify(Sender:TObject
begin
if (MediaPlayer.NotifyValue = nvSuccessful) and (FFlag = True) then
begin
; MediaPlayer.Play
;MediaPlayer.Notify := True
;end
;end


;(procedure TForm1.PlayClick(Sender: TObject
begin
;FFlag := True
;MediaPlayer.Play
;MediaPlayer.Notify := True
;end


;(procedure TForm1.StopClick(Sender: TObject
begin
;FFlag := False
;MediaPlayer.Stop
;MediaPlayer.Notify := True
;end

Narges-s
جمعه 13 شهریور 1388, 15:06 عصر
یه متغیر به اسم FFlag تو Private از نوع Boolean تعریف کنید.
بعد دوتا Button یکی به اسم Play و Stop و در OnClick اونا و OnNotify مدیا پلیر این کدها رو بنویسید


من برای پخش آهنگم از خود مدیا پلیر استفاده کردم و هیچ Button دیگه رو قرار ندادم رو فرم . در واقع من فقط Visible دکمه ی Stop رو هم True قرار دادم تا هم جای کمتری بگیره و هم اینکه کابر امکان خاموش کردن آهنگ رو داشته باشه. و با باز شدن فرم آهنگ اتوماتیک پخش میشه . من فقط میخوام این آهنگ تموم نشه و بعد از تموم شدنش مجددا تکرار بشه. تا زمانی که خود کاربر آهنگ رو خاموش کنه :متفکر:

majid_ramak
جمعه 13 شهریور 1388, 15:33 عصر
خوب کدی که مربوط به دکمه Play بود رو در OnShow فرمتون بنویسید و کدی که مربوط به دکمه Stop بود رو در OnClick مدیا پلیر بنویسید. و کد مربوط به OnNotify مدیا پلیر هم سرجاش بمونه.
فقط خاصیت AutoEnable مدیا پلیر رو False کنید و خاصیت AutoOpen رو True کنید.

masoud_z_65
شنبه 14 شهریور 1388, 02:54 صبح
خوب کدی که مربوط به دکمه Play بود رو در OnShow فرمتون بنویسید و کدی که مربوط به دکمه Stop بود رو در OnClick مدیا پلیر بنویسید. و کد مربوط به OnNotify مدیا پلیر هم سرجاش بمونه.
فقط خاصیت AutoEnable مدیا پلیر رو False کنید و خاصیت AutoOpen رو True کنید.

کاش با 1 مثال بیشتر توضیح میدادید...ممنون

Narges-s
شنبه 14 شهریور 1388, 06:02 صبح
خوب کدی که مربوط به دکمه Play بود رو در OnShow فرمتون بنویسید و کدی که مربوط به دکمه Stop بود رو در OnClick مدیا پلیر بنویسید. و کد مربوط به OnNotify مدیا پلیر هم سرجاش بمونه.
فقط خاصیت AutoEnable مدیا پلیر رو False کنید و خاصیت AutoOpen رو True کنید.

خیلی ممنون. دستتون درد نکنه . عالی بود. :خجالت:

راستش من اولین بارم بود از مدیا استفاده میکردم و باهاش آشنایی نداشتم . کمکتون واقعا به دردم خورد و یکی از هزار تا مشکلم رو برطرف کرد.

ایشالا که همیشه موفق باشید :لبخندساده:

majid_ramak
شنبه 14 شهریور 1388, 09:43 صبح
کاش با 1 مثال بیشتر توضیح میدادید...ممنون
دوست عزیز اون کدی که بالا نوشتم رو به این شکلی که الان گفتم بنویسید.
مثالش تو پست های قبلی هست.