+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أجعل ملف الصوت يشتغل باستمرار دون توقف في MediaPlayer1 (/showthread.php?tid=7058)
كيف أجعل ملف الصوت يشتغل باستمرار دون توقف في MediaPlayer1 - haroun03 - 19-06-2015
السلام عليكم
كما هو في السؤال كيف اجعل الملف الصوتي المربوط بمكون MediaPlayer1 يشتغل دون توقف و يعدي الاشتغال كلما ينتهي الصوت تلقائيا عند الضغط على زر
و يقوم بالتوقف فقط عند الضغط على زر آخر
كيف أجعل ملف الصوت يشتغل باستمرار دون توقف في MediaPlayer1 - karika2 - 20-06-2015
كود :
[COLOR=Green]timer1.Interval:=1000
timer1.Enabled:=false[/COLOR]كود :
procedure TForm1.openClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Display:=Panel1;
MediaPlayer1.Open;
end;
end;كود :
procedure TForm1.playClick(Sender: TObject);
begin
Timer1.Enabled:=True;
end;كود :
procedure TForm1.stopClick(Sender: TObject);
begin
timer1.Enabled:=false;
MediaPlayer1.Stop;
end;كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
MediaPlayer1.Play;
end;كيف أجعل ملف الصوت يشتغل باستمرار دون توقف في MediaPlayer1 - rabihpascal - 20-06-2015
هذه طريقة ايضا
تصع في ااحدثonnotifyeventللميديا بلاير
With mediaplayer1 do
If notifyvalue=nvsuccessfull then
Mediaplayer1.position:=0;
Mediaplayer1.play
End