Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 29.09.2008, 22:36   #1
JRcoker
Форумчанин
 
Аватар для JRcoker
 
Регистрация: 18.07.2008
Сообщений: 119
Репутация: 16
По умолчанию mp3 в исполняемый файл

Как добавить mp3(можно wav или wma смотря что проще но желательно mp3) файл в исполняемый файл и каким кодом его потом проиграть?..
__________________
Улыбайся...Люди любят идиотов...
JRcoker вне форума   Ответить с цитированием
Старый 29.09.2008, 23:26   #2
eoln
Профессионал
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,708
Репутация: 2215

icq: 421277094
По умолчанию

Поиск по форуму
http://programmersforum.ru/showthread.php?t=25895
http://programmersforum.ru/showthread.php?t=21387
http://programmersforum.ru/showthread.php?t=19271
http://programmersforum.ru/showthread.php?t=17774
eoln вне форума   Ответить с цитированием
Старый 29.09.2008, 23:42   #3
Terran
Профессионал
 
Аватар для Terran
 
Регистрация: 28.11.2007
Адрес: Беларусь, г.Могилёв
Сообщений: 1,500
Репутация: 547
По умолчанию

Есть набор LMD компонентов в котором есть компонент LMDWaveComp. Вам достаточно только выбрать в нём .wav файл и приписать пару строчек кода и всё. При компиляции wav файл будет в ехе файле. Это самый простой вариант, НО от wav файлов вес программы значительно увеличится, а если использовать .mp3, то вам нужно вручную его в ресурсы запихивать. Подробную информацию о том, как запихнуть mp3 в ресурсы вы можете узнать воспользовавшись поиском по форуму.
Terran вне форума   Ответить с цитированием
Старый 01.10.2008, 13:26   #4
JRcoker
Форумчанин
 
Аватар для JRcoker
 
Регистрация: 18.07.2008
Сообщений: 119
Репутация: 16
По умолчанию

И каким кодом его воспроизводить?
__________________
Улыбайся...Люди любят идиотов...
JRcoker вне форума   Ответить с цитированием
Старый 01.10.2008, 13:30   #5
JRcoker
Форумчанин
 
Аватар для JRcoker
 
Регистрация: 18.07.2008
Сообщений: 119
Репутация: 16
По умолчанию

Извеняюсь я всё вкурил....))))Тему можно закрывать спасибо....
__________________
Улыбайся...Люди любят идиотов...
JRcoker вне форума   Ответить с цитированием
Старый 01.10.2008, 14:42   #6
JTG
я получил эту роль
Профессионал
 
Аватар для JTG
 
Регистрация: 25.05.2007
Адрес: тут темно и с потолка капает
Сообщений: 3,695
Репутация: 2224

icq: III 37373860
Лампочка

Так, вот короче подробная инструкция (на будущее, так сказать)

Если нужно проиграть mp3 через PlaySound:

Качаем вот эту чудесную софтину (если у кого ещё нет), бесплатная, опен-сорс
http://www.afterdawn.com/software/au...ctors/cdex.cfm

и делаем финт ушами


В диалоге выбирам нужный mp3 -> convert -> получаем wav-файл того же размера, что и исходный мп3, но "родного" майкрософтовского riff-wave формата, фактически "mp3-в-wav"

Его можно воспроизвести:
1. Из ресурсов


С помощью стандартного brcc32:
Создать текстовый файл sounds.txt с содержимиым
Цитата:
SOUND1 WAVE c:\1.wav,
SOUND2 WAVE c:\2.wav
...
перетащить на значёк brcc32 (расположен в "папка_с_делфи\bin"), получим sounds.res.
(Restorator НЕ ПОДХОДИТ!, он выдаёт какие-то странные файлы, слинковав их с прогой звук не будет воспроизводиться!)

В проге пишем:
Код:

    //где-нить в Interface или в самом *.dpr
    {$R sounds.res}
...
    //И, где нужно:
    PlaySound('SOUND1', HInstance, SND_RESOURCE + SND_ASYNC); 
    //SND_ASYNC, SND_LOOP и т.п. флаги смотрим в MSDN или в хелпе

2. Просто из файла


Код:

    PlaySound('C:\1.wav', 0, SND_FILENAME + SND_ASYNC);

__________________
пыщь

Последний раз редактировалось JTG; 01.10.2008 в 14:44.
JTG вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не удается создать исполняемый файл chups Assembler 6 15.07.2008 21:07
Внедрение звука WAW/MP3 в файл GAGARIN-NEW Мультимедиа в Delphi 26 02.04.2008 13:52
Как открыть и сохранить mp3 файл в delphi? Rahim1993 Мультимедиа в Delphi 2 03.01.2008 13:55
MediaPlayer - как сделать последовательное воспроизведение mp3 файлов (именно mp3) Kashp Компоненты Delphi 13 28.09.2007 08:38


18:50.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru