Delphi - база знаний

       

Как проиграть Wave-ресурс?


Как проиграть Wave-ресурс?



Сначала делаешь файл 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
(2:5053/15.3)

Взято с сайта



Содержание раздела