Как вставить звуковой файл в тело программы?

← →
Ego © (2005-09-11 14:22) [0]

Ситуация такая: мне нужна программа, которая во время выполнения будет проигрывать звук, находящийся в звуковом файле.Приходиться таскать этот файл за программой, что не есть хорошо.У меня появилась такая мысль: на стадии разработки создать об`ект или присвоить значение переменной, в которой сохранить, например в текстовом виде( хотя, совсем не обязательно ), код звукового файла.При компиляции этот код окажется внутри программы, а потом, в процессе работы программы, создать временный файл, который и проигрывать компонентом-проигрывателем...Это, правда, всё-равно, громоздко, но, хотя бы программа будет независима.
Может быть есть другие способы( лучше всего, средствами самой Delphi )?Или, может быть, этот вопрос уже задавался, или кто-то знает где найти материалы на эту тему, тогда, пожалуйста, дайте ссылку.

← →
Anton_K © (2005-09-11 14:49) [1]

Ресурсы.

← →
Ego © (2005-09-11 18:51) [2]

> [1] Anton_K © (11.09.05 14:49)

Что ресурсы?

← →
Antonn © (2005-09-11 18:58) [3]

Ego © (11.09.05 18:51) [2]
можно звуковой файл поместить как ресурс в программу, а звук можно проиграть с помошью playsound. Сходи на http://www.delphiworld.narod.ru/, и в поиске задай "Ресурс". Вот от туда:

Сначала делаешь файл SOUND.RC, в нем строка вида: MY_WAV RCDATA TEST.WAV Компилишь чем-нибyдь в *.RES Далее в тексте: {$R полное_имя_файла_с_ресурсом} var WaveHandle: THandle; WavePointer: pointer; ... WaveHandle := FindResource(hInstance, "MY_WAV", RT_RCDATA); if WaveHandle <> 0 then begin WaveHandle := LoadResource(hInstance, WaveHandle); if WaveHandle <> 0 then begin ; WavePointer := LockResource(WaveHandle); PlayResourceWave := sndPlaySound(WavePointer, snd_Memory or SND_ASYNC); UnlockResource(WaveHandle); FreeResource(WaveHandle); end; end; (С) Serg Vostrikov

Здорово.Спасибо за ссылку - нашёл всё, что нужно...

Как вставить звуковой файл в тело программы? Найти похожие ветки