آژانس هواپیمایی
tanki

تکرار در عنصر مدیا پلیر

شروع موضوع توسط peiman ‏23 نوامبر 2005 در انجمن Delphi

  1. peiman

    peiman Registered User

    تاریخ عضویت:
    ‏23 فوریه 2003
    نوشته ها:
    1,545
    تشکر شده:
    21
    چطوری میشه برای عنصر مدیا پلیر تکرار اتوماتیک گذاشت؟ یعنی تا دنیا دنیاست بخونه
     
  2. Amir Lajevardi

    Amir Lajevardi کاربر تازه وارد

    تاریخ عضویت:
    ‏7 سپتامبر 2005
    نوشته ها:
    60
    تشکر شده:
    0
    محل سکونت:
    Tehran
    ابتدا قبل از تعریف متغیرهای اصلی یک ثابت همانند زیر تعریف کنید:

    کد:
    const
    ModeStr: array[TMPModes] of string =
    ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');
    
    سپس در Event -> onnotify مربوط به mediaplayer کدهای زیر رو اضافه کنید:

    کد:
    procedure TForm1.MediaPlayer1Notify(Sender: TObject);
    begin
      if (Loop.Checked)and(ModeStr[MediaPlayer1.Mode]='Stopped') then
        MediaPlayer1.Play;
    end;
    
    loop یک checkbox هستش که روی فرم باید قرار بدین تا تکرار شدن یا نشدن رو بر اساس اون معین کنید.

    اگر در پیاده سازیش مشکلی بود بفرمائید.
     
  3. peiman

    peiman Registered User

    تاریخ عضویت:
    ‏23 فوریه 2003
    نوشته ها:
    1,545
    تشکر شده:
    21
    بد جوری دنبالش بودم
    هم این هم سیستم ترای
    مرسی
     
avanak همکاری در فروش عسل طبیعی و گرده گل ایرانی