Корче, у медиаплеера есть такая штука EMCIDeviceError. При ошибке файла она выдает сообщение "No MCI device open". Она должна выдать одно сообщение, НО.. у меня выдает их дофига, может хоть 1000 , если я не остановлю этот фигов процесс. Дам код:
Код
if OpenDialog1.Execute then with MediaPlayer1 do begin Filename := OpenDialog1.filename; Notify := True; try Open; except on EMCIDeviceError do begin ShowMessage('Ошибка обращения к файлу ');
ей выход не нужен. она сама удаляет объект исключительной ситуации, когда отработает...
1. попробуй убрать строку
on EMCIDeviceError do
то есть просто try ... except ... там вариантов ошибки не много, можно попробовать не проверять.
2. при запуске непосредственно из среды и из уже скомпилированного файла ведет себя одинаково? 3. найди в Делфи такой пункт меню (где именно он находится - не знаю, он в разных версиях по-разному засунут): Stop on Delphi exception и посмотри, нет ли там галочки 4. в каком обработчике события вся эта радость происходит? 5. ...проще всего - скинь полностью проект. интересно посмотреть и попробовать найти глюк.
Сообщение отредактировано: volvo -
--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!