IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Расширение файла., Как определить?
сообщение
Сообщение #1


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Здрастье. Пишу плеер и столкнулся с проблемой - как узнать, какое расширение имеет муз. файл (.mp3;.mpg;.avi и т.д). Должно получиться вроде того:
Код
if {такое-то расширение} then begin
           {какие-нибудь действия}
         end;

Помогите пожалуйста! mega_chok.gif

Сообщение отредактировано: Артемий2 -


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






ExtractFileExt чем не устраивает?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Извини, я наверное описался, я имел ввиду то, что я уже знаю какое расширение файл. Не могу только понять, помоги пожалуйста разобраться. wacko.gif
Вот так:
if {расширение .WAV} then begin
{делаем какие-то действия.}
end;
if {расширение .MP3} then begin
{делаем какие-то действия.}
end;


Сообщение отредактировано: Артемий2 -


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Прости volvo, лоханулся. Вот че получилось:
begin
OpenDialog1.Execute;
if ExtractFileExt(OpenDialog1.FileName) = '.mp3' then begin
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open;
Mediaplayer1.Play;
end;
end;


Вывод: БОЛЬШЕ сна! Спасибо за помощь!


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 26.07.2021 11:54
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name