как в mediaplayer обработать ошибку неправильного файла

← →
Black Diver (2003-06-05 00:15) [0]

Есть mediaplayer нужно переберать все файлы в директории и играть из них те, которые медиа. Но при нахождении просто файла( например текстового) программа вываливается с ошибкой. КАК ЭТО ОБОЙТИ????? филтр по расширениям не предлагать =(

← →
Spawn © (2003-06-05 22:21) [1]

Ты бы код показал) А то непонятно в чем искать ошибку то.

← →
Black Diver (2003-06-05 22:26) [2]

Я просто нигде не могу найти код, как проигнорировать ошибку неправильного файла(например когда в Tmediaplayer входным даешь текстовый файл он ругается), а мне надо чтобы он этот файл пропустил и пошел дальше

← →
Black Diver (2003-06-05 22:28) [3]

Как обработать эту ошибку?????

← →
ЮЮ © (2003-06-06 04:31) [4]

Как и все другие:
try
MPlayer.Filename :=
...
except
end;

← →
Black Diver (2003-06-06 23:17) [5]

PLIZZZZZZ если можете исправте код:

with MediaPlayer1 do begin
if CheckBox1.Checked=true then
if FileName<>"" then
if trackbar1.Position=mediaplayer1.Length then
begin
filelistbox1.ItemIndex:=filelistbox1.ItemIndex+1;
mediaplayer1.FileName:=filelistbox1.FileName;

mediaplayer1.open;
trackbar1.Max:=mediaplayer1.Length;
mediaplayer1.Play;
form1.caption:="Gplayer "+ mediaplayer1.FileName;
end;
end;
end;

with MediaPlayer1 do
begin
if CheckBox1.Checked=true then
if FileName<>"" then
if trackbar1.Position=mediaplayer1.Length then
begin
filelistbox1.ItemIndex:=filelistbox1.ItemIndex+1;
try
mediaplayer1.FileName:=filelistbox1.FileName;
mediaplayer1.open;
trackbar1.Max:=mediaplayer1.Length;
mediaplayer1.Play;
form1.caption:="Gplayer "+ mediaplayer1.FileName;
except
( "Unkown file") with MediaPlayer1 do
begin
if CheckBox1.Checked=true then
if FileName<>"" then
if trackbar1.Position=mediaplayer1.Length then
begin
filelistbox1.ItemIndex:=filelistbox1.ItemIndex+1;
try
mediaplayer1.FileName:=filelistbox1.FileName;
mediaplayer1.open;
trackbar1.Max:=mediaplayer1.Length;
mediaplayer1.Play;
form1.caption:="Gplayer "+ mediaplayer1.FileName;
except
ShowMessage("Unkown file");
end;
end;
end;

как в mediaplayer обработать ошибку неправильного файла Найти похожие ветки