موضوع پخش فايل هاي صوتي

[ahmadi613]

با سلام خدمت عزيزان
بنده در مورد پخش فايل هاي صوتي دو مشكل اساسي بشرح زير دارم اگر دوستان بتوانند مشكلم را حل نمايند ممنون آنها خواهم شد.
1-من يك پروژه مستقل مي سازم در پوشه اي10 فايل صوتي قرار ميدهم ويك مولفه mediaplayer روي فرم قرار مي دهم اما فقط يك فايل صوتي را از پوشه مي خوان آيا كسي ميتواند از همين* يك mediaplayer اين 10 فايل صوتي رااجرا نمايد.
2-همين برنامه فقط در درايوي كه آدرس فايل هاي صوتي را داده ام اجرا مي شود ويا اگر آن را روي سيستم ديگر ببرم بايد آن را در درايو همنام درايو سيستم مبدا آن را نصب كنم البته با installshield هم برايش ستاپ مي سازم باز هم بايد درايو مقصد بايد همچون مبدا باشدتا اجرا شود.آيا راهي است كه بتوانم در درايو دلخواه آن را اجرا كنم .از توجه شما سپاسگزارم.

[admin]

سلام مهندس احمدی.
اینو میتونید با استفاده از یک OpenDialog پویا کنید . مثال :
کد:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
edit1.Text:= Trim(OpenDialog1.Files.GetText);
end;

و بعدا در یک باتن دیگر فایل رو به صورت زیر اجرا کرده و لازم به ذکر است که با این روش هیچ فرقی نمیکند که شما برنامه رو در چه درایو و یا سیستمی نصب کردید ، چون در واقع کاربر فایل ها رو انتخاب خواهد کرد .
کد:

MediaPlayer1.Close;
if Edit1.Text <> &quot;&quot; then
begin
MediaPlayer1.FileName := Edit1.Text;
mediaplayer1.Open;
 mediaplayer1.Play;
end;

اگر هم منظورتون اینه که اون پوشه نبایستی به انتخاب کاربر انتخاب بشه ، میتونید از آدرس دهی Curent استفاده کرده و فقط به صورت زیر آدرس دهی کنید :
کد:

MediaPlayer1.Close;
MediaPlayer1.FileName := "Sony Ericsson - Beginning.mp3";
mediaplayer1.Open;
 mediaplayer1.Play;

برای انتخاب آهنگهای بعدی هم فقط کافیه با Event های مربوط به MediaPlayer کار کنید ...

[b_itman_b]

یه سوال.فرق دستور trim که گفتید با اینکه بگیم:
edit1.text:=opendialog1.filename
در چیه؟
و چطور میتونیم یه لیست پخش رو بهش بدیم؟نه فقط یه آهنگ.
ممنون

[admin]

trim کلیه ی فضاهای خالی قبل و بعد از رشته را از بین می برد.
لیست پخش سلیقه ایه ...
مثلا :
فایل ، آرایه و ...

[ahmadi613]

باسلام
ضمن تتشكر از زحمت مدير محترم.من از كد همراه با opendialog استفاده كردم حتي در قسمت* filenameنيز مسير فايل صوتي را معرفي نمودم اما برنامه كمپايل نمي شد.البته مقدار زيادي هم با تغييرات روي آن كار كردم به نتيجه نرسيدم.اگر زحمت نباشد با همين كد قبلي مسير فايل را معرفي نماييد كه برنامه اجرا شود ممنون شما هستيم.