No Mci Device Open, Недочёт Опции

[Артемий]

Корче, у медиаплеера есть такая штука 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 - 2.11.2006 18:41