play list در windows media player activex

[zahra_no]

با سلام

من چطوری میتونم در windows media player activex یک play list درست کنم.

لطفا کمک کنید.خیلی گشتم ولی چیزی که به دردم بخوره پیدا نکردم.

میخوام چند تا فایل با آدرس مشخص به مدیا بدم تا پشت سر هم پخش کنه.

[BORHAN TEC]

میتونید از کدی مثل زیر استفاده کنید که من در اینجا دو فایل را به Media Player می فرستم تا آنها را پخش کند:
uses
ShellAPI;

procedure TForm3.Button1Click(Sender: TObject);
var
s: string;
begin
s := '"G:\Music\Slection\Music (1).mp3"';
s := Concat(s, ' "G:\Music\Slection\Music (2).mp3"');

ShellExecute(0, 'open', 'wmplayer.exe', PWideChar(s),'' , SW_NORMAL);
end;
البته من این کد را در Windows 7 و Delphi 2010 تست کردم.

[zahra_no]

درسته تو دلفی 2009 هم جواب داد
ولی من میخوام تو مدیا خود فرم پخش شه
برای این کار باید چه کنم؟

[zahra_no]

دوستان میتونین در این مورد به من کمک کنید.

[Mahmood_M]

PlayList چیز پیچیده ای نیست ، یک لیست از آدرس فایلها هست که با یک Index مشخص می شن ، مثل یک TStrings
می تونید یک کلاس از TStrings ایجاد کنید و آدرس فایلهای درون Playlist رو توش بریزید و مثلا یک متغیر عمومی هم داشته باشید که مقدار Index فایلی که در حال پخش شدن هست رو نگهداری کنه
برای آشنایی بیشتر با کلاس TStrings به این تاپیک (http://barnamenevis.org/showthread.php?79100-%D9%85%D9%82%D8%A7%D9%84%D9%87-%D8%A8%D8%B1%D8%B1%D8%B3%DB%8C-%D9%85%D8%AA%D8%AF%D9%87%D8%A7%D8%8C-%D8%AA%D9%88%D8%A7%D8%A8%D8%B9-%D9%88-%D8%AE%D8%B5%D9%88%D8%B5%DB%8C%D8%AA%D9%87%D8%A7%D B%8C-TStrings) مراجعه کنید

موفق باشید ...

[zahra_no]

ممنون از پاسختون
من الان یه در یک لیست ریختم و اولی رو دادم به UML مدیا پلیرم
خب من چطوری بهش بگم تموم شد برو بعدی، چطوری طرف زد رو next اون بره آهنگ بعدی
چطوری این لیست رو بدم به playlist مدیا پلیرم؟

من مشکل کد دارم، خیلی گشتم ولی نتونستم پاسخی درستی دریافت کنم