Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.19;
Скачать: 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 вся ветка

Текущий архив: 2006.02.19;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.048 c
1-1137859937
Volf_555
2006-01-21 19:12
2006.02.19
Как прочитать ссылку, на которую ссылается ink-файл (файл ярлыка)


3-1135332668
Andry
2005-12-23 13:11
2006.02.19
Поле memo и поиск без учета регистра


2-1138290229
serko
2006-01-26 18:43
2006.02.19
ListView


6-1130333737
AlexAndroID
2005-10-26 17:35
2006.02.19
перехватить контент до браузера, обработав, отдать ему


10-1112176388
Lamos
2005-03-30 13:53
2006.02.19
ExcelApplication1.AddIns.Add