![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
klem4 |
![]()
Сообщение
#1
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Как в данном случае обойти ошибку при не правильном формате файла, что нужно поставить на месте вопросов ?
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;
или это вообще не так делается ? ![]() -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
{ начало блока проверки }
try { проверять на ошибки в этом блоке }
MediaPlayer1.Open;
MediaPlayer1.Play;
except { если в проверяемом блоке есть ошибки - сделать следующее }
ShowMessage('Error! Can''t play file.');
exit;
end;
{ конец блока проверки }
end;
|
![]() ![]() |
![]() |
Текстовая версия | 24.07.2025 7:26 |