Вот создал с норм прогой а то та была касяковая

[Rebel123]

Вот вам моя первая прога! Media Palyer! Оцените го плиз и может подскажите что где подправить где добавить! Я у вас новичок научился кое чему у вас! Хорошии Сайт! И еще хотел спросить как в TrackBar'е сделать так чтоб можно было перемотать нажав на нужное место и чтоб при удерживании ползунка он перематывал где угодно как в MediaPalyerClassic.... жду ответов!!!

[NetSpace]

форма уже не дёргается, но не хочет открывать файл mp3 и выдаёт ошибку: No MCI device open! А видео мотает со скоростью 300 кадров в секунду!!!! Клип на 13 минут за минуту промотал!

[NetSpace]

КНОПКИ Вид, Настройка, О программе не работают....

[NetSpace]

ты его сам-то пробовал запустить?
Какой формат он у тебя точно проигрывает?

[)Игнат(]

Сообщение от NetSpace

форма уже не дёргается, но не хочет открывать файл mp3 и выдаёт ошибку: No MCI device open! А видео мотает со скоростью 300 кадров в секунду!!!! Клип на 13 минут за минуту промотал!

я пытаюсь написать что то вроде плеера, и у меня при пригрывании выскакивает таже ошибка. как это исправить?

[uberchel]

Покажите код проигрывания и открытия медиа файлов - тогда и посмотрим, что надо делать.

[)Игнат(]

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
MediaPlayer1.Play;
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
MediaPlayer1.Stop;
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
MediaPlayer1.Next;
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
MediaPlayer1.Previous;
end;

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
begin
MediaPlayer1.FileName:= FLB1.FileName;//Filelist

end;

procedure TForm1.DCB1Change(Sender: TObject);
begin
DLB1.Drive:=DCB1.Drive;//DriveComboBox
end;

procedure TForm1.DLB1Change(Sender: TObject);
begin
FLB1.Directory:=DLB1.Directory;//DirList
end;

procedure TForm1.FLB1Change(Sender: TObject);
begin
if Timer1.Enabled= true then
begin
MediaPlayer1.FileName:=FLB1.FileNam e;
Label1.Caption:=ExtractFileName(FLB 1.Filename) +ExtractFileExt(FLB1.Filename);
Label2.Caption:=Label1.Caption ;
MediaPlayer1.Play;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=trunc(MediaP layer1.Position);
end;

end.

[uberchel]

1. Пользуйтесь тегами # - aто не удобно смотреть код.
2. Конечно тут у вас понаписано кучу непонятно чего )
как я понял: FLB1 - это DericroryListBox a DBL- DriveComboBox1 ?
3. Нет MediaPlayer1.Open;

procedure TForm1.FLB1Change(Sender: TObject);
begin
if Timer1.Enabled= true then
begin
MediaPlayer1.FileName:=FLB1.FileNam e;
Label1.Caption:=ExtractFileName(FLB 1.Filename) +ExtractFileExt(FLB1.Filename);
Label2.Caption:=Label1.Caption ;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
end;

Вообще правильно будет создать отдельную процедуру Play;

procedure Play;
begin
Label1.Caption:=ExtractFileName(FLB 1.Filename) +ExtractFileExt(FLB1.Filename);
Label2.Caption:=Label1.Caption ;
With MediaPlayer1 do begin
FileName:= FLB1.FileName;
Open; Play;
end;
end;

[)Игнат(]

так из-за чего возникает ошибка?

[uberchel]

Я же выделил: MediaPlayer1.open; - Вот и ошибка, что мол файл не открыть!