Звук не из файла

[digitalis]

goto "Для бывших из delphi.int.ru" раздел "Свободное общение". Я себя неуютно чувствую, флудя в тематическом разделе, так что если возникнет желание почирикать "за жизнь" - лучше туда. Личные сообщения, насколько помню, ты терпеть не можешь, кроме как от ближнеего круга.

http://programmersforum.ru/showthrea...37#post1583037


Моя интуевина меня не подвела Модератору - респект за толерантность.

[Serge_Bliznykov]

digitalis, создание отдельной темы в "Свободном общении" - это правильное решение!
Я тут со вчерашнего вечера еле сдержался, чтобы тут всё не почистить.
А так - перенёс все сообщения в эту тему, все довольны и счастливы!

[kropotkina-alice]

Сообщение от Iron Monk

Сложно в ресурсы зашить файл?

Сообщение от Smitt&Wesson

Да пробовал я и это. Угадай с трёх раз, чем дело кончилось? Правильно - обломом. Ну, может чего-то не доглядел, но потратив неделю, выбросил из головы как "рабочую идею".

Я тоже удивлена...

//В файл MyWave.rc пишем:

MyWave RCDATA LOADONCALL MyWave.wav
//brcc32.exe MyWave.rc, получаем MyWave.res.

//В своей программе пишем:

{$R MyWave.res}

//Все!

//Предупреждая следующий вопрос "А как прочитать wave-файл из исполняемого файла?"

procedure RetrieveMyWave;
var
  hResource: THandle;
  pData: Pointer;
begin
  hResource:=LoadResource( hInstance, FindResource(hInstance, 'MyWave', RT_RCDA TA));
  try
    pData := LockResource(hResource);
    if pData = nil then
      raise Exception.Create('Cannot read MyWave');
    // Здесь pData указывает на MyWave
    // Теперь можно, например, проиграть его (Win32):
    PlaySound(pData, 0, SND_MEMORY);
  finally
    FreeResource(hResource);
  end;
end;

[Filka]

Сообщение от digitalis

А если звук формировать прямо в программе, в байтовом массиве ? Is it possible ?

Код взял из комментария отсюда...

uses
  MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
const
  BufLen = 8000 * 60;
var
  WaveOut: HWAVEOUT;
  wfx: tWAVEFORMATEX;
  buffer: array[0..BufLen - 1] of Byte;
  t: Integer;
  header: WAVEHDR;
begin
  WaveOut := 0;
  with wfx do
  begin
    wFormatTag := WAVE_FORMAT_PCM;
    nChannels := 1;
    nSamplesPerSec := 8000;
    nAvgBytesPerSec := 8000;
    nBlockAlign := 1;
    wBitsPerSample := 8;
    cbSize := 0;
  end;

  for t := Low(buffer) to High(buffer) do
    buffer[t] := t * (((t shr 12) or (t shr 8)) and (63 and (t shr 4)));

  with header do
  begin
    lpData := @buffer[0];
    dwBufferLength := SizeOf(buffer);
    dwBytesRecorded := 0;
    dwUser := 0;
    dwFlags := 0;
    dwLoops := 0;
    lpNext := nil;
    reserved := 0;
  end;

  waveOutOpen(@WaveOut, WAVE_MAPPER, @wfx, 0, 0, CALLBACK_NULL);
  waveOutPrepareHeader(WaveOut, @header, SizeOf(WAVEHDR));
  waveOutWrite(WaveOut, @header, SizeOf(WAVEHDR));
  waveOutUnprepareHeader(WaveOut, @header, SizeOf(WAVEHDR));
  waveOutClose(WaveOut);
end;

[Serge_Bliznykov]

Сообщение от kropotkina-alice

Я тоже удивлена...

//В файл MyWave.rc пишем:

я тоже удивлён. Вы тему читали?

Человек хочет формировать данные "runtime".
Что записывать в файл, если на момент компиляции программы того, что нужно воспроизводить, ещё не существует.

Сообщение от digitalis

Зашить в ресурсы файл, содержимое которого не определено до начала работы программы ? Тут и сам Дейкстра бы призадумался.

Кроме того, ему уже показали пример использования SND_MEMORY и он уже за это поблагодарил

Впрочем, подозреваю, что Вы отвечали не TC, а Смитту, на его облом с использованием файла из ресурсов. Угадал?


Filka, круто!!

[Filka]

Filka, круто!!

Спасибо. Но придумал это всё не я...
Здесь (точнее здесь) можно почитать про waveOutOpen, waveOutPrepareHeader и т.д.