Ошибки МедиаПлеера

[TriCERATOP]

как написать обработчик ошибок для File Not Found ?

[Пепел Феникса]

а вы перед открытием проверяйте наличие файла, а потом открывайте(иначе можно выводить ошибку иль еще чтонить)
еще можно использовать защищенные блоки

try 
 {Здесь опасные действия}
except
 {Здесь действия в случае ошибки}
end;

[TriCERATOP]

а как проверить налие файла: ибо структура

procedure TForm2.Button31Click(Sender: TObject);
begin
MediaPlayer1.FileName:=put+'45.mp3';
try
MediaPlayer1.Open;
except
Label3.Caption:='нет файла';
end;
MediaPlayer1.Play;
end;

не работает у меня

[uberchel]

Лови ))

with MediaPlayer1 do 
begin
FileName:= 'Медиа файл'; 
if FileName = '' then 
ShowMessage('БлИнА ОШиБкА')
else begin
Open;
Play;
end;
end;

мож на весы нажать

[Пепел Феникса]

uberchel, ты не то написал вообще.

procedure TForm2.Button31Click(Sender: TObject);
begin
MediaPlayer1.FileName:=put+'45.mp3';
try
MediaPlayer1.Open;
MediaPlayer1.Play;
except
Label3.Caption:='нет файла';
end;
end;

поидее так

еще можно так:

procedure TForm2.Button31Click(Sender: TObject);
begin
if FileExist(put+'45.mp3') 
 then
 begin
  MediaPlayer1.FileName:=put+'45.mp3';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
 end;
 else
Label3.Caption:='нет файла';
end;

[uberchel]

Пепел Феникса, а ты проверял ! вот у меня всё работает и у TriCERATOP видимо тоже. Код я привёл правельный, вопрос стоял на счет того

как написать обработчик ошибок для File Not Found ?

и не FileExist, а FileExists

[NetSpace]

вот это да!!! 6 лет на дельфи программирую, но про обработку ошибок никогда не вспоминал. и никогда их не обрабатывал. просто учитываю все непредвиденные стандартные ситуации и готово!

[Пепел Феникса]

uberchel, просто он еще и поймать её не может...
кстати лучше обнулять файлнейм

ну опечатался..с кем не бывает.

[uberchel]

Ха-ха, да точно )), надо обработчики всегда писать, ато кто знает какой юзер попадется, может он и все придусмотрел,, А ЮЗЕР ТО НАЙДЕТ, И ВЛЯПАТЬСЯ !!!!!