سؤال عن ال TrackBar1 :

السلام عليكم

اهذا ما تبحث عنه اخي العزيز

Procedure TForm1.TrackBar1Change(sender:TObject);
begin
if MediaPlayer.Mode=mpPlaying then 
begin
MediaPlayer1.Position:=TrackBar1.Poistion*1000;
//1000 depends on the trackbar setting , see Timer procedure
MediaPlayer1.Play;
end;
end;
//------------
Procedure TForm1.Timer1Timer(sender:TObject);
begin
if Mediaplayer1.mode=mpPlaying then 
begin
MediaPlayer1.TimeFormat:=tfMilliseconds;
TrackBar1.Max:=MediaPlayer1.Lenght div 1000;
TrackBar1.Position:=MediaPlayer1.Position div 1000;
end;
end;

لدي مشكلة اود طرحها هنا

استخدم حاليا winxp (لم تكن المشكلة موجودة في غيرها من انظمة الـ windows ) وعندما اريد فتح ملف dat بواسطة TMediaPlayer اواجه الخطا الأتي

The specified device is not open or is not recognized by MCI

ارجو من يعرف اي شي عن هذه المشكلة اخباري .

وعليكم السلام ورحمة الله وبركاته

أخي العزيز : tmaaa

شكراً لك على المساعدة ولكن أخي العزيز بعد أن صنعت ما أشرته علي قمت بتشغيل البرنامج وجربت أحد الأفلام و لكن لم أستطع أن أقدّم الفيلم نحو الأمام وأيضاً أصبح الفيلم يقرأ بشكل متقطع فما الحل ، وشئ آخر كم أضع ال Interval للـ Timer وهل أجعله في حالة عمل مباشرة (Enabled) فأرجو منك المساعدة

وشكرا جزيلاً ً لك .