پخش فايل صوتي با چي بهتره؟

[manzare]

شما را به خدا كمكم كنيد :عصبانی++::گریه:
يك ماهه دنبال اين سئوالم
من ميخوام ادرس يك فايل صوتي را به media plyer بدم تا پخش كنه

کد:
if OpenDialog2.Execute then begin filnaml:=OpenDialog2.FileName; st2:=filnaml;mediaplayer1.filename:=opendialog1.fi lename;mediaplayer1.open;mediaplayer1.play;
1 ) وقتي اجرا ميكنم اصلا media plyer غير فعاله
2) وقتي media plyer را open ميكنم خطا ميده كهdevice را نميشناسه


راه ديگر به جز media plye چيست؟؟؟؟؟؟؟؟
جان من نگيد سرچ كن كه كار اين ماهم همين بوده:گریه:

[دنیای دلفی]

procedure TForm3.FormShow(Sender: TObject);
begin
Try
mp.Open;
mp.Play;
Except
MessageOk('كارت صدا فعال نمي باشد',clRed,clBlack,50,mtError);
end;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
mp.FileName:=Background.WAV';


end;

[Mahmood_M]

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

if OpenDialog2.Execute then begin filnaml:=OpenDialog2.FileName;
st2:=filnaml;
mediaplayer1.filename:=opendialog1.fi lename;
mediaplayer1.open;
mediaplayer1.play;
در واقع در پایان کد ، آدرس فایلی که باز شده به مدیاپلیر داده نمی شه ! ، کد رو به صورت زیر اصلاح کنید :

if OpenDialog2.Execute then
begin
filnaml := OpenDialog2.FileName;
st2 := filnaml;
mediaplayer1.filename := st2;
mediaplayer1.open;
mediaplayer1.play;

برنامه زیر رو دانلود کنید ، یک مدیاپلیر ساده هست :

لینک دانلود : http://nabegheh.parsaspace.com/Examples/MediaPlayer.rar

اگه این برنامه هم کار نکرد ، دیگه مشکل از ویندوز و یا کارت صوتی یا هرچیزی غیر از کدهای دلفی هست ...

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