Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 481

/ вопрос открыт /

Доброго времени суток, уважаемые эксперты!
Необходимо программно запустить mp3 файл в моем проекте. Подскажите какие есть варианты?

Dux Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Dux (статус: Посетитель)
Вопрос отправлен: 7 апреля 2008, 18:04
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Drozdov D.V.

Здравствуйте, Dux!
Возможно отвечу не точно, а верней вот вам статья про ваш вопрос.

Приложение:
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9. Beep;
  10.  
  11.  
  12.  
  13. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  14. begin
  15. Beep;
  16. end;
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23. function MessageBeep(uType:word) : boolean;
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41. function PlaySound(pszSound:PChar; hmod:HINST; fdwSound:Cardinal):boolean;
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58. PlaySound(0, 0, SND_PURGE);
  59.  
  60.  
  61.  
  62.  
  63.  
  64. procedure TForm1.Button1Click(Sender: TObject);
  65. var PCh: PChar;
  66. begin
  67. if OpenDialog1.Execute then
  68. begin
  69. StrPCopy(PCh,OpenDialog1.FileName);
  70. PlaySound(Pch,0,SND_ASYNC or SND_LOOP);
  71. end;
  72. end;
  73.  
  74.  
  75.  
  76.  


Ответ отправил: Drozdov D.V. (статус: 4-ый класс)
Время отправки: 8 апреля 2008, 20:28
Оценка за ответ: 3


Мини-форум вопроса

Всего сообщений: 8; последнее сообщение — 10 апреля 2008, 23:41; участников в обсуждении: 5.
Вадим К

Вадим К (статус: Академик), 8 апреля 2008, 00:53 [#1]:

mp3 файлы не являются исполнимыми файлами. Их нельзя запускать.
Галочка "подтверждения прочтения" - вселенское зло.
Dux

Dux (статус: Посетитель), 8 апреля 2008, 01:11 [#2]:

Нашел, можно с использованием библиотеки bass.dll
Аксион

Аксион (статус: 4-ый класс), 8 апреля 2008, 13:42 [#3]:

Dux используй компонент MediaPlayer в свойстве FileName укажи путь к файлу и командой MediaPlayer1.play; он начнёт проигрыватся. (на сколько я понял нужно именно это)
T$imokhin

T$imokhin (статус: 1-ый класс), 8 апреля 2008, 17:54 [#4]:

Здравствуйте, Dux!
Можно отдельно запускать файл. Для этого есть процедура ShellExecute.
Все её параметры я не помню. Можно в Инете поискать.


{ShellExecute(handle,nil,'Tpc.exe',' 1.pas','',SW_HIDE);
//Это код из моеё программы
// Тут Tpc.exe файл который мы запускае(он зам запускается)
//Для *.txt Откроется Блокнот, для *.mp3 Плеей
//1.pas это передаваймый парраметр.
//Нужно восновном при коммандной строке и DOSе
//SW_HIDE программа открывается невидно. (На дисплее её не видно)
// Поищи в Нете . }

А ещё на панели System есть компонент MediaPlayer.
Ну в нём легко разобраться самому.
-------
"Вечна жыві і квітней Беларусь"
Drozdov D.V.

Drozdov D.V. (статус: 4-ый класс), 8 апреля 2008, 20:48 [#5]:

По поводу MediaPlayer, моё мнение лучше обходиться без него будет выглядеть более професионально!
MediaPlayer - если проигрыватель или что подобное.
T$imokhin

T$imokhin (статус: 1-ый класс), 9 апреля 2008, 17:33 [#6]:

Media Player можно использовать невидимо.
Visible:=false;//Сделать невидимым
MediaPlayer.Play; //Начать играть
MediaPlayer.Stop; //Стоп
-------
"Вечна жыві і квітней Беларусь"
Drozdov D.V.

Drozdov D.V. (статус: 4-ый класс), 10 апреля 2008, 16:15 [#7]:

Тоесть элементов Media Player видно не будет?
Dux

Dux (статус: Посетитель), 10 апреля 2008, 23:41 [#8]:

Спасибо большое за помощь, уже разобрался с bass.dll (http://www.un4seen.com/), так что все ок...

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 27 июня 2017, 15:16
Выполнено за 0.03 сек.
Рейтинг@Mail.ru