مشکل در اجرای پشت سر هم دو فایل با mediaPlayer [بایگانی]

nasr

چهارشنبه 28 مرداد 1388, 10:40 صبح

سلام

من می خوام دوتا فایل mp3 پشت سرهم اجرا بشه ولی فقط دومی اجرا میشه

MediaPlayer1.FileName:='13.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;

MediaPlayer1.FileName :='14.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;

Felony

چهارشنبه 28 مرداد 1388, 11:36 صبح

کد شما کاملا اشتباه هست ، باید هم اینطور عمل کنه ، مثل این میمونه که شما این کد رو بنویسی :

Form1.Caption:='A';
Form1.Caption:='B';
کامپایلر بعد از اجرا کد اول سریعا میره سراغ خط بعدی و شما فکر میکنید فقط عبارت B در عنوان فر م نمایش داده شه .

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

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

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
MediaPlayer1.FileName:='D:\New Folder (3)\01 - PARVAAZ.MP3';
MediaPlayer1.Open;
MediaPlayer1.Play;
Form1.Caption:=MediaPlayer1.FileName;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if MediaPlayer1.Position=MediaPlayer1.Length then begin
Timer1.Enabled:=False;
MediaPlayer1.FileName:='D:\New Folder (3)\BEZANhabib01.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
Form1.Caption:=MediaPlayer1.FileName;
end;
end;

البته این صرفا یک راه حل بود و راه حلهای بهتری هم هست .