Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Black Diver © (2003-06-05 00:15:00)

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

DeMoN-777 (2003-06-09 19:20:00) [1]
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;

Black Diver (2003-06-06 23:17:00) [2]

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;

ЮЮ (2003-06-06 04:31:00) [3]

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

Black Diver (2003-06-05 22:28:00) [4]

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

Black Diver (2003-06-05 22:26:00) [5]

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

Spawn (2003-06-05 22:21:00) [6]

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »