Скачать: CL | DM;

как в 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;

---

← →
DeMoN-777 ©   (2003-06-09 19:20) [6]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c