Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

подключения ресурсного файла [D7, WinXP]


Mister ©   (2007-12-31 09:43:00) 

Подскажите пожалуйста как задействовать содержимое ресурсного файла в нем содержится звук.
проблема такая нужно чтоб при нажатии кнопки TMediaPlayer проигрывал звук из ресурсного файла


ага   (2008-01-03 12:26:00) [1]

if 0 <> FindResource(hInstance, 'MYWAVE', 'Wave')
 then  PlaySound('mywave', hInstance, SND_RESOURCE or SND_ASYNC);

Вместо hInstance можно использовать значения от getModuleHandle or LoadLibrary


savyhinst   (2008-01-01 12:37:00) [2]


> задействовать содержимое ресурсного файла в нем содержится
> звук


...
{$R res.res}
...
var WaveHandle  : THandle;
      WavePointer : pointer;
...
WaveHandle  := FindResource(hInstance,'MY_SOUND',RT_RCDATA);
if WaveHandle<>0 then begin
 WaveHandle:= LoadResource(hInstance,WaveHandle);
 if WaveHandle<>0 then begin
 WavePointer := LockResource(WaveHandle);
 //тут с этим что-то творится
 UnlockResource(WaveHandle);
 FreeResource(WaveHandle);
 end;
end;


Mister   (2007-12-31 09:49:00) [3]

прошу прощения не туда отправил если можно перевести в раздел начинающим а если нет то  уж объясните пожалуйста.


Наверх

Титульная страница Поиск, карта сайта Написать письмо