Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2003.10.06;
Скачать: [xml.tar.bz2];

Вниз

как в 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 вся ветка

Форум: "Media";
Текущий архив: 2003.10.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.008 c
1-18342
Wide
2003-09-22 18:28
2003.10.06
Как переменную объявленную в Форме 1 использовать в форме 2


14-18599
dimon1979
2003-09-18 11:41
2003.10.06
Установка компонент


14-18627
Romka
2003-09-17 17:17
2003.10.06
Systray


1-18289
MakNik
2003-09-26 09:14
2003.10.06
QReport


1-18466
Developerr
2003-09-24 13:09
2003.10.06
Как можно определить день недели?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский