WPARAM wParam, LPARAM lParam откуда берётся?

[Garic_]

Добрый день, кто может объяснить?
WPARAM wParam, LPARAM lParam откуда берётся?
Я кроме этого не знаю.
MSG msg = {0};// структура сообщения
msg.wParam;
msg.lParam;

Вот код:

bool __fastcall TForm1::OpenWaveIn(HWND hWnd,int nChan,int Freq,int nBits)
{
MMRESULT res;
WaveFormat.wFormatTag = WAVE_FORMAT_PCM;
WaveFormat.nChannels = 1;
WaveFormat.nSamplesPerSec = 44100;
WaveFormat.nAvgBytesPerSec = ( WaveFormat.nChannels * WaveFormat.nSamplesPerSec * 16 ) / 8;
WaveFormat.nBlockAlign = ( WaveFormat.nChannels * 16) / 8;
WaveFormat.wBitsPerSample = 16;
WaveFormat.cbSize = 0;

 if(waveInOpen(&WaveIn,WAVE_MAPPER,&WaveFormat,(DWORD)hWnd,NULL,CALLBACK_WINDOW))
    {
     ShowMessage("Error waveInOpen!");
    return;
    }
  // Заполняем заголовок блока
  ULONG bufferSize = WaveFormat.nBlockAlign * WaveFormat.nSamplesPerSec * 10; 
  WaveHdr.lpData         = (char*)malloc(bufferSize);
  WaveHdr.dwBufferLength = bufferSize; 
  WaveHdr.dwFlags        = 0L;
  WaveHdr.dwLoops        = 0L;
  WaveHdr.dwUser         = 0L;

  // Подготавливаем блок для записи
  if(waveInPrepareHeader(WaveIn, &WaveHdr, sizeof(WAVEHDR)))
  {
    ShowMessage("Error waveInPrepareHeader!");
    return;
  }

  // Передаем блок устройству записи
  if(waveInAddBuffer(WaveIn, &WaveHdr, sizeof(WAVEHDR)))
  {
    waveInUnprepareHeader(WaveIn, &WaveHdr, sizeof(WAVEHDR));
    ShowMessage("Error waveAddBuffer!");
    return;
  }

  // Запускаем запись
  if(waveInStart(WaveIn))
    {
    ShowMessage("Error waveInStart!");
    return;
    }
return true;//Добавил
}

//И как сюда должно приходить?
bool __fastcall TForm1::OnWimData(WPARAM wParam, LPARAM lParam){
...
}

Пожалуйста ответьте!

[Carbon]

Система получает сообщение и передаёт в обработчик.

[Garic_]

иииииииииииииииииииии

[Garic_]

Сделал так:

void __fastcall TForm1::MyDoMessage(TMessage &msg){
switch(msg.Msg)
{
case MM_WIM_OPEN:
//Ïðîñòî ìîæíî âûâåñòè â StatusBar òåêñò
break;
 case MM_WIM_DATA:
//if (!DataWaveIn(MyhWnd,(HWAVEIN)msg.WParam,(LPWAVEHDR)msg.LParam))
  if (!OnWimData(MyhWnd,(HWAVEIN)msg.WParam,(LPWAVEHDR)msg.LParam))
{
ShowMessage("Err Access SoundDriver");
CloseWaveIn(MyhWnd);
}
break;
case MM_WIM_CLOSE:
//Ïðîñòî ìîæíî âûâåñòè â StatusBar òåêñò
break;
case WM_DESTROY:
CloseWaveIn(MyhWnd);
Label1->Caption="Sound Close";
default:
msg.Result = DefWindowProc(MyhWnd, msg.Msg, msg.WParam, msg.LParam);
}
}

Потом сюда:

  bool __fastcall TForm1::OnWimData(HWND hWnd, HWAVEIN hwav, LPWAVEHDR pHdr){
 // Удаляем из очереди записи
      waveInUnprepareHeader((HWAVEIN)hwav,
       (LPWAVEHDR)pHdr, sizeof(WAVEHDR));

      // Сохраняем записанный блок в файле
   //   FileSave(); здесь незнаю как прописать правильно

      // останавливаем и закрываем устройство ввода
      waveInReset((HWAVEIN)hwav);
      waveInClose((HWAVEIN)hwav);
      WaveIn = 0;
      return 0;
 }

и возвращаясь, выдаёт ShowMessage("Err Access SoundDriver");
Сделал такую проверку, этот код работает:

  bool __fastcall TForm1::OnWimData(HWND hWnd, HWAVEIN hwav, LPWAVEHDR pHdr)
{
PLEVELWAVEIN pInfo;
int n = 0;
int LevelLeft = 0, LevelRight = 0;
int i, l;
while (n < WaveHdr.dwBufferLength)
{      //---для 16 бит----------------------------------------------------
  if (WaveFormat.wBitsPerSample == 16){
     n++;
     i = (int) (signed char) pHdr->lpData[n];
   }
     n++;
   if (i < 0)
     i = -i;
     l = (i*100) / 128;
    if (LevelLeft < l) LevelLeft = l;
}
   if (waveInAddBuffer(WaveIn, pHdr, sizeof(WAVEHDR)))return false;
 SendMessage(Form1->Handle,WM_USER+1, 0, LevelLeft);
      return (TRUE);
}

А меня интересует не звуковая мигалка, а запись звука в файл, пожал. помогите!

[Garic_]

Спасибо тихому форуму! Это было мощно.
Кто нуждается в похожем ответе, можно скачать по инету
Автор Гордеев О.В. Название Программирование звука в Windows
wParam - Описатель устройства записи.
lParam - адрес структуры WAVEHDR для записанных данных.