Скачать: CL | DM;

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

← →
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


---

← →
Ego ©   (2005-09-11 19:10) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.033 c