Корче, у медиаплеера есть такая штука EMCIDeviceError. При ошибке файла она выдает сообщение "No MCI device open". Она должна выдать одно сообщение, НО.. у меня выдает их дофига, может хоть 1000 , если я не остановлю этот фигов процесс. Дам код:
Ну, так а самое интересное ты не показал... Что ты делаешь ПОСЛЕ показа сообщения? Полностью весь Begin ... End приведи...
Пробовал так:
Я тебя попросил НЕ кусочки, непонятно откуда выдранные, а ПОЛНОСТЬЮ блок Begin End для обработчика исключения. Ты вопрос задаешь, значит это - в твоих интересах. Не хочешь говорить, как делал - иди на форум телепатов.
if OpenDialog1.Execute then
with MediaPlayer1 do
begin
Filename := OpenDialog1.filename;
Notify := True;
try
Open;
except
on EMCIDeviceError do
begin
ShowMessage('Ошибка обращения к файлу ');
MediaPlayer1.Close;
MediaPlayer1.Refresh;
end;
Прости за задержку, вот полный Begin..End . Очень прошу помочь!
if OpenDialog1.Execute then
with MediaPlayer1 do
begin
Filename := OpenDialog1.filename;
Notify := True;
try
Open;
except
on EMCIDeviceError do
begin
ShowMessage('Ошибка обращения к файлу ');
MediaPlayer1.Close;
MediaPlayer1.Refresh;
end;
А что получается, если убрать Refresh?
Тоже самое!
А такой вопрос: Для чего использовать "EMCIDeviceError" если ты всё равно выводишь своё сообщение об ошибке и закрываешь проигрыватель.
Короче слушайте, вот этот плеер что я пишу, уже довольно сложный по своему устройству, соответственно внутренний код тоже не маленький. Собирал как-бы по кусочкам. Кто-то дал одно, кто-то другое, и теперь это всё в одной куче. Тогда я попробовал написать самый простой какой только можно придумать плеер. И ТАМ ВСЁ НОРМАЛЬНО! Скорее все что-то ещё нужно править в коде, не только этот кусок!
Я в смысле того что ты уже сообщение на русском ниже вывел через ShowMessage(), но мне кажется что тот код который ты указал запускается бесконечным циклом генерации сообщений.
Твоя связка try...except циклически опрашивает истинность, а выход ты из неё не сделал.
Хотя я скорее всего ошибаюсь так как с делфи всего недели три.
ей выход не нужен. она сама удаляет объект исключительной ситуации, когда отработает...
1. попробуй убрать строку
on EMCIDeviceError do
Всё это происходит в OnClick кнопки "Открыть медиафайл"!
Не нашел я этот "Stop on Delphi"! У меня Delphi 7 и TurboDelphi.NET , но сейчас я на семерке.
Если не возражаешь я скину проект чуть позже.
Пробовал твой совет
on EMCIDeviceError do
у меня 6.
во вторник в универе посмотрю, где это в 7.
Слушай, я точно знаю что проблема не сдесь! Ведь когда я писал новый плеер ,этого не было! Скорее всего что-то в самом коде не то! Ща сяду, буду смотреть код. Спасибо за советы. Если сам не справлюсь, то кину тебе проект!