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

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

  1. peiman

    peiman Registered User

    تاریخ عضویت:
    ‏23 فوریه 2003
    نوشته ها:
    1,544
    تشکر شده:
    20
    چطوری میشه برای عنصر مدیا پلیر تکرار اتوماتیک گذاشت؟ یعنی تا دنیا دنیاست بخونه
     
  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,544
    تشکر شده:
    20
    بد جوری دنبالش بودم
    هم این هم سیستم ترای
    مرسی
     
zarpopخرید بک لینک