IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Обработка ошибки, Открытие аудио файла
klem4
сообщение 16.08.2005 17:46
Сообщение #1


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Как в данном случае обойти ошибку при не правильном формате файла, что нужно поставить на месте вопросов ?


procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
   try

      MediaPlayer1.Open;
      MediaPlayer1.Play;

      except on 

???

 do begin
          ShowMessage('Error! Can''t play file.');
          exit;
      end;
   end;

end;


или это вообще не так делается ? unsure.gif


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 1)
volvo
сообщение 16.08.2005 18:08
Сообщение #2


Гость






procedure TForm1.SpeedButton2Click(Sender: TObject);
begin

  { начало блока проверки }
  try { проверять на ошибки в этом блоке }

    MediaPlayer1.Open;
    MediaPlayer1.Play;

  except { если в проверяемом блоке есть ошибки - сделать следующее }
    ShowMessage('Error! Can''t play file.');
    exit;
  end;
  { конец блока проверки }

end;

 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 24.07.2025 7:26
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"