mediaplayer

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if MediaPlayer1.Mode=mpPlaying then
begin
MediaPlayer1.Position:=TrackBar1.Position*1000;
MediaPlayer1.Play;
Form1.Caption:=inttostr(TrackBar1.Position);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with MediaPlayer1 do
begin
opendialog1.Execute;
DeviceType:=dtAutoSelect;
FileName:=opendialog1.FileName;
Open();
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

if Mediaplayer1.mode=mpPlaying then
begin
MediaPlayer1.TimeFormat:=tfSMPTE25;
TrackBar1.Max:=MediaPlayer1.Length div 1000;
TrackBar1.Position:=MediaPlayer1.Position div 1000;

end;

جرب الكود السابق بيعطيك بالفورم كابشن وقت مقطع الصوت وانت سوي تنازلي

وللعلم هذا الكود موجود بالمنتدى فاللمزيد من المعلومات استخدم البحث في المنتدى

شكرا لك أخي المثال يعطيني عد تصاعدي فهل ممكن مثل فيه العد يكون تنازلي -waf

ضع هذا التعديل

procedure TForm1.TrackBar1Change(Sender: TObject);
var
i:Integer;
begin
if MediaPlayer1.Mode=mpPlaying then
begin
MediaPlayer1.Position:=TrackBar1.Position*1000;
MediaPlayer1.Play;
i:=MediaPlayer1.Length div 1000 - TrackBar1.Position;
Form1.Caption:=inttostr(i);

end;
end;

هذا مثال

Media.rar

شكر لك أخي ولكن هنك تقطعات في الصوة عتد قراة الملف -waf

وكيف يمكن جعل العد التنزولي يبدو بهذ الشكل 00:00

السلام عليكم أرجوأن لأكون ثقل الروحي عليكم أخواني لدي تسأل حول كيف يمكن إعادة TrackBar1إلي القيمة البدية عند نهاية الملف القروء

وشكرا وأرجو أن لا أكون ثقيل عليكم بهذه لأسئلة -waf

يمكنك وضع شرط If اذا اصبح الوقت صفر يقوم باعادة تشغيل الملف