delphi4arab منتديات دلفي للعرب

السلام عليكم
كما هو في السؤال كيف اجعل الملف الصوتي المربوط بمكون MediaPlayer1 يشتغل دون توقف و يعدي الاشتغال كلما ينتهي الصوت تلقائيا عند الضغط على زر
و يقوم بالتوقف فقط عند الضغط على زر آخر

كود :
[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;

هذه طريقة ايضا
تصع في ااحدثonnotifyeventللميديا بلاير
With mediaplayer1 do
If notifyvalue=nvsuccessfull then
Mediaplayer1.position:=0;
Mediaplayer1.play
End

haroun03

karika2

rabihpascal