[Dmitry_DM]

Здравствуйте! Есть проект, он служит для прорисовки звуковой волны при вхождении звука через микрофон. Собственно вопрос: как сделать, что бы при нажатии на кнопку программа сохраняла wav, который услышала.
Код небольшой.
Спасибо тем, кто откликнется помочь..

[M.A.D.M.A.N.]

Все просто, в том месте, где снимаешь данные с микрофона - пишешь их в файл, в файле предватительно заполняешь RIFF шапку (частота дискретизации, каналы, кол-во бит, смещение на начало данных и т.д.).

[Dmitry_DM]

Сообщение от M.A.D.M.A.N.

Все просто, в том месте, где снимаешь данные с микрофона - пишешь их в файл, в файле предватительно заполняешь RIFF шапку (частота дискретизации, каналы, кол-во бит, смещение на начало данных и т.д.).

Можно и так, спасибо. Попробую найти, где там место приема сигнала..

[M.A.D.M.A.N.]

Код:

procedure OnWaveIn(var Msg: TMessage); message MM_WIM_DATA;

data16 := PData16(PWaveHdr(Msg.lParam)^.lpData);

собс-но этот data16 и записывать.

так же всякие там частоты дискретизации устанавливаются здесь:

Код:

    with header do begin
      wFormatTag := WAVE_FORMAT_PCM;
      nChannels := 1; 
      nSamplesPerSec := discret;
      wBitsPerSample := integer(Bits16) * 8 + 8;
// Число байт в выборке для всех каналов
      nBlockAlign := nChannels * (wBitsPerSample div 8);
// Число байт в секундном интервале для стереосигнала
      nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;
// Для формата РСМ строка не нужна
      cbSize := 0;
    end;
соб-сно их и надо в заголовок вписать.