پخش متوالی موزیک

[mahsa_kb]

سلام
من می خوام در طول اجرای برنامم یک موزیک پخش بشه و هر وقت تموم شد به طور خودکار دوباره شروع به پخش کنه ، برای یک موزیک از تایمر استفاده کردم و مشکلی نداشتم ، ولی حالا می خوام چند تا موزیک رو پشت سر هم پخش کنه و بعد دوباره تکرار کنه ( مثل زمان فعال بودن repeat در mediaplayer )

ممنون

[hossein taghi zadeh]

شما می‌توانید از رویداد OnNotify استفاده کنید.

رویداد OnNotify مربوط به مؤلفه MediaPlayer زمانی فراخوانی می‌شود که فایل در حال پخش تمام شود و ویژگی NotifyEvent نیز مقدار True داشته باشد.

[Valadi]

این هم یک کد :
uses
MMSystem;

procedure TForm1.Button1.Click;
begin
PlaySound('c:\Doggie.wav', 0, SND_FILENAME + SND_ASYNC);
end;


{

Different modes:
Verschiedene modi:

SND_ASYNC : Start playing, and don't wait to return
Sound wird im Hintergrund abgespielt.

SND_SYNC : Start playing, and wait for the sound to finish
Das Programm fنhrt erst dann fort, wenn der
Sound fertig abgespielt worden ist. }

// SND_LOOP:

PlaySound('BELLS.WAV', 0, SND_LOOP + SND_ASYNC);


{Keep looping the sound until another sound is played or
PlaySound(nil, 0, 0) is called. }

{Der Sound lنuft in einer Schleife so lange, bis
PlaySound(nil, 0, 0) kommt oder eine neue Datei abgespielt wird.}

[zahra_no]

آقای ولدی شما دیگه چرا؟؟؟؟؟؟؟؟؟؟؟؟؟
اخه کد رو همینطوری که نمیزارن اینجا، داخل تگ میزاشتین خب

[SayeyeZohor]

uses
MMSystem;

procedure TForm1.Button1.Click;
begin
PlaySound('c:\Doggie.wav', 0, SND_FILENAME + SND_ASYNC);
end;


{

Different modes:
Verschiedene modi:

SND_ASYNC : Start playing, and don't wait to return
Sound wird im Hintergrund abgespielt.

SND_SYNC : Start playing, and wait for the sound to finish
Das Programm fنhrt erst dann fort, wenn der
Sound fertig abgespielt worden ist. }

// SND_LOOP:

PlaySound('BELLS.WAV', 0, SND_LOOP + SND_ASYNC);


{Keep looping the sound until another sound is played or
PlaySound(nil, 0, 0) is called. }

{Der Sound lنuft in einer Schleife so lange, bis
PlaySound(nil, 0, 0) kommt oder eine neue Datei abgespielt wird.}


نياز شديد به ايجاد يك پست الكي داشتم جهت افزايش رنك خودم :قهقهه::قهقهه:

[persia_hrn]

سلام دوستان

راه های زیادی واسه این کار هست ، به عنوان مثال شما آهنگهارو توی یک لیست بریزید و با یه تایمر کنترل کنید زمانی که Position مدیاتون به آخر رسید آهنگ بعدی لیست رو لود کنه و اگر ListIndex برابر با List.Items.count-1 بود بیاد دوباره از Index شماره 0 لیست آهنگرو لود کنه .

البته راه های دیگه ای هم هست ولی به نظر من این از همه ساده تره .

موفق باشید