Работа со звуком средствами библиотеки мультимедиа Windows

#include <vcl.h>
#pragma hdrstop
#include <fstream.h>
#include <iostream.h>
#include <stdio.h>
#include <stdlib.h>
#include <mmsystem.h>
#include "sig.h"
 
#define DinBufSize 8000 //Размер буфера данных в динамическом режиме
#define FreqDis 8000 //Частота дискретизации отсчётов (в одну секунду)
#define Channels 1
 
 //Количество каналов
#define BitPesSempl 16 //Разрядность под сэмпл
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Chart"
#pragma link "Series"
#pragma link "TeEngine"
#pragma link "TeeProcs"
#pragma resource "*.dfm"
TForm1 *Form1;
ofstream out1("data.txt");
WAVEFORMATEX WaveFormat; //Формат записи-чтения
WAVEHDR WaveHdrIn1,WaveHdrIn2,WaveHdrIn3,WaveHdrIn4; //Заголовки буферов
HWAVEIN hWaveIn=0; //Устройство записи
byte * buf1In; //Буферы для структуры WAVEHDR
byte  * buf2In;
byte * buf3In;
byte * buf4In;
ofstream  out("c.txt");
int t=0;
 
 
 void CALLBACK FullBuf(HWAVEIN hwi,UINT uMsg,DWORD dwInstance,DWORD dwParam1,DWORD dwParam2)
{
//если сообщение о заполнении буфера и отправлено устройством записи
 
if(uMsg==WIM_DATA && hwi==hWaveIn)
{
//указатель на полученный буфер
WAVEHDR * TempHdr= (WAVEHDR *)dwParam1;
//буфер сэмплов, можем производить с ним операции
//TempHdr->lpData;
//Form1->Label1->Caption=(float)TempHdr->lpData[0];
 for(int i=0;i<100;i++)
 {
 Form1->Series1->AddXY(t,(byte)TempHdr->lpData[i],"",clRed);
   //   Form1->Label2->Caption=(float)TempHdr->lpData[i];
   out1<<(byte)WaveHdrIn1.lpData[i]<<"\n";
 
     /*  if(t>=50)
 
 
       {
       //Sleep(100);
      Form1->Series1->Delete(0);
        }
           */
 
  t++ ;
 }
 
//возвращаем буфер в очередь устройства записи
waveInAddBuffer(hWaveIn,TempHdr,sizeof(WAVEHDR));
}
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  UINT count=waveInGetNumDevs();
  UINT index=1;
  WAVEINCAPS caps;
  for(UINT i=0;i<count;i++)
  if(waveInGetDevCaps(i,&caps,sizeof(caps))==MMSYSERR_NOERROR)
  {
      Form1->ListBox1->Items->Add(caps.szPname);
  }
 
 
 
 
 
 
 
 
 
 
 //настройки формата данных ЦАП аудио устройства
WaveFormat.wFormatTag=WAVE_FORMAT_PCM; //несжатые данные
WaveFormat.nChannels=Channels; //количество каналов записи
WaveFormat.nSamplesPerSec=FreqDis; //частота дискретизации
WaveFormat.nBlockAlign=Channels; //выравнивание блока
WaveFormat.nAvgBytesPerSec=FreqDis; //8000*1 байт в секунду
WaveFormat.wBitsPerSample=BitPesSempl; //разрядность отсчёта
WaveFormat.cbSize=0;
 
//инициировать устройства и выделить память для буферов
buf1In=new byte[DinBufSize];
buf2In=new byte[DinBufSize];
 
buf3In=new byte[DinBufSize];
buf4In=new byte[DinBufSize];
 
//открываем устройство записи
 //Form1->Label3->Caption=ListBox1->ItemIndex=2;
MMRESULT mmRes =waveInOpen(&hWaveIn,ListBox1->ItemIndex ,(WAVEFORMATEX*)&WaveFormat,(DWORD)FullBuf , 0L, CALLBACK_FUNCTION);
Form1->Label3->Caption=ListBox1->ItemIndex;
 
if(mmRes != MMSYSERR_NOERROR)
{
char text[MAX_PATH];
waveInGetErrorText( mmRes, text, MAX_PATH);
ShowMessage(text);
return;
}
 
//в заголовки буферов добавляем указатели и размеры
WaveHdrIn1.lpData=buf1In;
WaveHdrIn1.dwBufferLength=DinBufSize;
WaveHdrIn1.dwFlags=0;
WaveHdrIn2.lpData=buf2In;
WaveHdrIn2.dwBufferLength=DinBufSize;
WaveHdrIn3.lpData=buf3In;
WaveHdrIn3.dwBufferLength=DinBufSize;
WaveHdrIn4.lpData=buf4In;
WaveHdrIn4.dwBufferLength=DinBufSize;
WaveHdrIn2.dwFlags=0;
WaveHdrIn2.dwFlags=0;
int res=10;
//Фиксируем буферы в памяти
res=waveInPrepareHeader(hWaveIn,&WaveHdrIn1,sizeof(WAVEHDR));
waveInPrepareHeader(hWaveIn,&WaveHdrIn2,sizeof(WAVEHDR));
waveInPrepareHeader(hWaveIn,&WaveHdrIn3,sizeof(WAVEHDR));
waveInPrepareHeader(hWaveIn,&WaveHdrIn4,sizeof(WAVEHDR));
Form1->Label2->Caption=res;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//передаём буферы в очередь устройства записи
waveInAddBuffer(hWaveIn,&WaveHdrIn1,sizeof(WAVEHDR));
waveInAddBuffer(hWaveIn,&WaveHdrIn2,sizeof(WAVEHDR));
waveInAddBuffer(hWaveIn,&WaveHdrIn3,sizeof(WAVEHDR));
waveInAddBuffer(hWaveIn,&WaveHdrIn4,sizeof(WAVEHDR));
 
//запустить устройство
waveInStart(hWaveIn);
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
waveInStop(hWaveIn);
Form1->Label1->Caption=t;
}
//---------------------------------------------------------------------------