Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Разное
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.09.2006, 21:41
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание Работа с Res

Короче запихнул в рес файл wav аудио файл
И как мне его использовать
Я знаю что икона программы загружается из рес файла
Ответить с цитированием
  #2  
Старый 03.09.2006, 22:25
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
По умолчанию

Цитата:
И как мне его использовать

Примерно так:
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<b>procedure</b> RetrieveWave;
<b>var</b>
  WaveHandle: THandle;
  WavePointer: Pointer;
<b>begin</b>
   WaveHandle := FindResource( hInstance, <font color="RoyalBlue">'имя_ресурса'</font>, RT_RCDATA );
   <b>if</b> WaveHandle <> <font color="royalblue">0</font> <b>then</b>
   <b>begin</b>
      WaveHandle := LoadResource( hInstance, WaveHandle );
      <b>if</b> WaveHandle <> <font color="royalblue">0</font> <b>then</b>
      <b>begin</b>
         WavePointer := LockResource( WaveHandle );
         sndPlaySound( WavePointer, SND_MEMORY <b>or</b> SND_ASYNC );
         UnlockResource( WaveHandle );
         FreeResource( WaveHandle );
      <b>end</b>;
   <b>end</b>;
<b>end</b>;
Ответить с цитированием
  #3  
Старый 03.09.2006, 22:57
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание

Спосибо за помощь
Ответить с цитированием
  #4  
Старый 04.09.2006, 21:18
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание

Я попробовал звука нету
Ощибки тоже
Ответить с цитированием
  #5  
Старый 05.09.2006, 11:19
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
По умолчанию

Это всего лишь пример, показывающий принцип роботы. Естественно есть нюансы... Код взят из этой статьи - http://decoding.narod.ru/practic/resource/resource.html, посмотри, может поможет...
Ответить с цитированием
  #6  
Старый 05.09.2006, 21:49
Аватар для Safuat
Safuat Safuat вне форума
Прохожий
 
Регистрация: 07.02.2006
Сообщения: 34
Репутация: 10
Восклицание проще зделать так

Пожалуста
PlaySound('S1', HInstance, SND_RESOURCE or SND_ASYNC);
S1 название твоего wav
Ответить с цитированием
  #7  
Старый 06.09.2006, 21:21
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание

А ты уверен
Если у тебя получился то скин сюда посмотрим
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

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

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:01.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025