|
Вопрос # 1 481/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Необходимо программно запустить mp3 файл в моем проекте. Подскажите какие есть варианты?
 |
Вопрос задал: Dux (статус: Посетитель)
Вопрос отправлен: 7 апреля 2008, 18:04
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Drozdov D.V.
Здравствуйте, Dux!
Возможно отвечу не точно, а верней вот вам статья про ваш вопрос.
Приложение: Переключить в обычный режим-
-
-
-
-
-
-
-
- Beep;
-
-
-
- procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
- begin
- Beep;
- end;
-
-
-
-
-
-
- function MessageBeep(uType:word) : boolean;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- function PlaySound(pszSound:PChar; hmod:HINST; fdwSound:Cardinal):boolean;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- PlaySound(0, 0, SND_PURGE);
-
-
-
-
-
- procedure TForm1.Button1Click(Sender: TObject);
- var PCh: PChar;
- begin
- if OpenDialog1.Execute then
- begin
- StrPCopy(PCh,OpenDialog1.FileName);
- PlaySound(Pch,0,SND_ASYNC or SND_LOOP);
- end;
- end;
-
-
-
-
 |
Ответ отправил: Drozdov D.V. (статус: 4-ый класс)
Время отправки: 8 апреля 2008, 20:28
Оценка за ответ: 3
|
Мини-форум вопроса
Всего сообщений: 8; последнее сообщение — 10 апреля 2008, 23:41; участников в обсуждении: 5.
|
Вадим К (статус: Академик), 8 апреля 2008, 00:53 [#1]:
mp3 файлы не являются исполнимыми файлами. Их нельзя запускать.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Dux (статус: Посетитель), 8 апреля 2008, 01:11 [#2]:
Нашел, можно с использованием библиотеки bass.dll
|
|
Аксион (статус: 4-ый класс), 8 апреля 2008, 13:42 [#3]:
Dux используй компонент MediaPlayer в свойстве FileName укажи путь к файлу и командой MediaPlayer1.play; он начнёт проигрыватся. (на сколько я понял нужно именно это)
|
|
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. (статус: 4-ый класс), 8 апреля 2008, 20:48 [#5]:
По поводу MediaPlayer, моё мнение лучше обходиться без него будет выглядеть более професионально!
MediaPlayer - если проигрыватель или что подобное.
|
|
|
T$imokhin (статус: 1-ый класс), 9 апреля 2008, 17:33 [#6]:
Media Player можно использовать невидимо.
Visible:=false;//Сделать невидимым
MediaPlayer.Play; //Начать играть
MediaPlayer.Stop; //Стоп
-------
"Вечна жыві і квітней Беларусь"
|
|
|
Drozdov D.V. (статус: 4-ый класс), 10 апреля 2008, 16:15 [#7]:
Тоесть элементов Media Player видно не будет?
|
|
|
Dux (статус: Посетитель), 10 апреля 2008, 23:41 [#8]:
Спасибо большое за помощь, уже разобрался с bass.dll (http://www.un4seen.com/), так что все ок...
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
