Почему этот код после проигрывания MIDI не хочет воспроизвотить следующую выбранную мидишку?
Выводит такие сообщения:
"MMSYSTEM275 Указанный файл не найден. Проверьте правильность ввода пути и имени файла."
и
"No MCI device open."

Код

uses MPlayer; var mp: TMediaPlayer; procedure TForm1.ColorBtn5Click(Sender: TObject); begin with Sender as TButton do case Tag of  0 :  begin   Tag := 1;   mp := TMediaPlayer.CreateParented(Handle);   mp.DeviceType := dtSequencer;   if not FileExists(Label6.Caption) then    begin     if Application.MessageBox('Файл не найден!'#13+     'Выберите новый из списка вкладки "Музыкальные композиции".', 'Заголовок окна',     MB_ICONWARNING or MB_OK or MB_DEFBUTTON2 or MB_TASKMODAL) = ID_OK then TabSet1.TabIndex :=2;    end    else     mp.FileName := PChar(Label5.Caption);     mp.Wait:= True;     mp.Open;     mp.Play;     ColorBtn5.Caption := 'Стоп';     ColorBtn3.Caption := 'Стоп';      if (mp.NotifyValue = nvSuccessful) and         (mp.Mode = mpStopped) then         begin      ColorBtn5.Caption := 'Тест';      ColorBtn3.Caption := 'Тест';         end;    end;    1 :    begin     Tag := 0;     mp.Wait := True;     mp.Stop;     ColorBtn5.Caption := 'Тест';      ColorBtn3.Caption := 'Тест';     mp.Free;    end; end; end;

Код конечно вырван с "мясом", так что представляет винигрет, но может дело в том что проверяется наличие файла:

  if not FileExists(Label6.Caption) then

а считывается файл:

  mp.FileName := PChar(Label5.Caption);

Или так и надо?

Я вот чёто непойму зачем писать

Код

if not FileExists(Label6.Caption) then   begin ошибка else mp.FileName := PChar(Label5.Caption); и т.д

Тоесть говоря по русски если нету файла 6 то ошибка а если он есть то запустить фаил 5. Нафига тогда проверять наличие файла 6 если он неиспользуется.

Да ребята, верно.
Это я недосмотрел.
Спасибо!
Исправлю.

Но дело, по-моему, совсем не в этом.
Ещё до того, как я поместил все эти проверки, наблюдались подобные ошибки.

А вообще что это за файл "MMSYSTEM275"? Это тот миди который ты хотел проиграть или какой-то другой файл? Если другой, то имя его смутно мне напоминает, что может просто программа не может найти в системе соответствующего драйвера используемого формата миди.

Я решил немного прокоментировать код, убрал из него проверку и сообщение.
Правильно ли я всё делаю?
Меня гложат сомнения.

Код

uses MPlayer; var mp: TMediaPlayer; //Исходная надпись на кнопке - Тест procedure TForm1.ColorBtn5Click(Sender: TObject); begin with Sender as TButton do case Tag of 0 :   begin    Tag := 1;    mp := TMediaPlayer.CreateParented(Handle);    mp.DeviceType := dtSequencer;    mp.FileName := PChar(Label5.Caption);    mp.Wait:= True;    mp.Open;    mp.Play;    //Началось воспроизведение    //Изменяем надпись на кнопке на Стоп    ColorBtn5.Caption := 'Стоп';             //После завершения проигрывания мидишки     //изменяем надпись на кнопке снова на Тест     if (mp.NotifyValue = nvSuccessful) and        (mp.Mode = mpStopped) then        begin         ColorBtn5.Caption := 'Тест';        end;   end; 1 :   begin    Tag := 0;    mp.Wait := True;    mp.Stop;    mp.Free;   end; end; end;

Цитата

А вообще что это за файл "MMSYSTEM275"? Это тот миди который ты хотел проиграть или какой-то другой файл? Если другой, то имя его смутно мне напоминает, что может просто программа не может найти в системе соответствующего драйвера используемого формата миди.

MMSYSTEM275 - это скорее всего драйвер.
А программа сначало нормально проигрывает все мидишки.

И, когда случаеться такая неприятность, я закрываю программу, снова открываю - все нормально работает.

Совсем забыл: и в Label6 и в Label5 отображаеться одно
и тоже имя файла!

А может просто ShellExecute() или надо обязательно гемороя ?

Цитата

А может просто ShellExecute() или надо обязательно гемороя ?

Мне не нужно, чтобы открывалься Медиаплейер. К тому же на это уходит время. А насчет, как ты говоришь, гемороя, так зачем вообще что-то создавать, можно вообще всё делать с помощью ShellExecute().

Держи.. бутылка, что ли с тебя...  

private
mp: TMediaPlayer; // Обязательно надо использовать глобальную переменную.

Код

Procedure TForm1.CheckTheEnd(Sender:TObject); Begin IF mp.Mode=mpStopped then Button1Click(Button1); End; procedure TForm1.Button1Click(Sender: TObject); Begin Case TButton(Sender).Tag OF  0: Begin      TButton(Sender).Tag:=1;      mp:=TMediaPlayer.CreateParented(Handle);      With mp Do       Begin        DeviceType:=dtAutoSelect;        FileName:='c:\town.mid';        Wait:=False;        Open;        Play;        TButton(Sender).Caption:='Стоп';        onNotify:=CheckTheEnd;       End;     End;  1: IF Assigned(mp) then // Для безопасности      Begin       With TButton(Sender) Do        Begin         Tag:=0;         Caption:='Тест';        End;       With mp Do        Begin         Stop;         Free;        End;      End; End; end;

P.S. Обрати внимание на синтаксис - твой синтаксис вряд ли даст другим программистам желания в нём ковыряться.

Вот спасибочки...
А то мучаюсь уже с недели две с этим кодом, глаза чуть ли на лоб не лезли.

ВСЕ РАВНО ТЕ ЖЕ ОШИБКИ:

"MMSYSTEM275 Указанный файл не найден. Проверьте правильность ввода пути и имени файла.", "No MCI device open."

После первого завершения проигрывания мидишки - все нормально, но как только я пытаюсь проиграть ее снова - выводяться вышеуказанные сообщения. Причем, они появляються не всегда, но почти всегда.

Ребята помогите!!!

Вообще лучше проигрывать все через MCI ( Multimedia API ).
Да и с ошибками проще расправлятся + больше контроля над процессом

Цитата(Guest @ 10.6.2002, 20:46)

ВСЕ РАВНО ТЕ ЖЕ ОШИБКИ: "MMSYSTEM275 Указанный файл не найден. Проверьте правильность ввода пути и имени файла.", "No MCI device open." После первого завершения проигрывания мидишки - все нормально, но как только я пытаюсь проиграть ее снова - выводяться вышеуказанные сообщения. Причем, они появляються не всегда, но почти всегда. Ребята помогите!!!

К сожалению, не могу знать, у меня всё работает.
Видимо, Ваша проблема в кодеке...

У меня нет опыта работы с проигрыванием, но исходя из здравого смысла если у вас проигрывается первый файл и не проигрывается дальше значит что-то происходит с загрузкой кодека -  или возникает ошибка и его (кодек выбивает) или он не закрывается корректно, или что-то в этом роде. Может стоит попробовать вынести медиаплеер в DLL чтобы его можно было вообще выгрузить, и повторное проигрывание было подобно повторному запуску программы. Теперь небольшой вопрос - а метод Stop - он синхронный? если он асинхронный, то возможен вариант что компонент разрушается до того как законцится проигрывание. Попробуйте только 1 раз создавать и разрушать плеер, и только подгружать новые файлы...

Цитата(Baa @ 10.6.2002, 20:49)

Вообще лучше проигрывать все через MCI ( Multimedia API ). Да и с ошибками проще расправлятся + больше контроля над процессом

Ну предлагай пример с MCI для обсуждения.... :-))

Цитата(Vit @ 10.6.2002, 22:38)

возможен вариант что компонент разрушается до того как законцится проигрывание.

Я пробовал пробить этот вариант
Stop;
While Mode<>Stopped Do Application.ProcessMessages;
у меня  не вышло.

Всем добрый день! Сначала хочу поблагодарить всех за помощь. Наконец то я нашел свою ошибку. Так как моя программа и MIDI файлы находятся в одном каталоге, я решил проигнорировать полные пути:

mp.FileName := Label5.Caption;
(mp.FileName := 'Filename.mid';)

В этом и была моя ошибка. С TmediaPlayer'ом такая "фишка" не проходит. Нужно использовать полные пути. Поэтому я сделал так:

            mp.FileName := ExtractFilePath(Application.EXEName)+Label5.Caption;
            (mp.FileName := 'C:\Path\Filename.mid';)

Теперь все работает. Надеюсь, моя халатность станет другим наукой. Кстати, с DLL файлами такая "фишка" проходит!