sin()

Image1->Canvas->MoveTo(0,130);
Image1->Canvas->LineTo(msec,LevelLeft);

 Image1->Canvas->MoveTo(0,550);
 Image1->Canvas->LineTo(msec,sin(LevelLeft));

Image1->Canvas->MoveTo(msec,160);
Image1->Canvas->LineTo(msec,LevelLeft+100);

bool __fastcall TForm1::DataWaveIn(HWND hWnd, HWAVEIN hwav, LPWAVEHDR pHdr)
{
PLEVELWAVEIN pInfo;
int n = 0;
int taim;
int LevelLeft = 0, LevelRight = 0;
int i, l;
 
// pick up our info from the dialog
pInfo = (PLEVELWAVEIN) GetWindowLong(hWnd, GWL_USERDATA);
 
if ((pInfo == NULL) || (pInfo->hwav != hwav))
return false;
  while (n < pInfo->buffersize)
{
  i=(int) ((unsigned char) pHdr->lpData[n]) - 128;    //Êàê ðàáîòàåò ?
  n++;
 if (i < 0)
  i = -i;
  l = (i*100) / 128;
 if (LevelLeft < l)
  LevelLeft = l;
}
 if (waveInAddBuffer(pInfo->hwav, pHdr, sizeof(WAVEHDR)))
 return false;
 SendMessage(Form1->Handle,WM_USER+1, 0, LevelLeft);
 Image1->Canvas->MoveTo(msec,160);
 Image1->Canvas->LineTo(msec,LevelLeft+100);  
 Memo1->Lines->Add(LevelLeft);
return(TRUE);
}

bool __fastcall TForm1::OpenWaveIn(HWND hWnd,int nChan,int Freq,int nBits)
{
PLEVELWAVEIN pInfo;
int i;
pInfo = new LEVELWAVEIN;
if(!pInfo)return false;
pwfx = new WAVEFORMATEX;
if(!pwfx)return false;
memset(pwfx,0,sizeof(WAVEFORMATEX));
// Çíà÷åíèÿ êîòîðûå ìîæíî çàäàâàòü â äèàëîãå
pwfx->nChannels=nChan; //1(Mono) or 2(Stereo)
pwfx->nSamplesPerSec=Freq; //8000,11025,22050,44100
pwfx->wBitsPerSample=nBits; //8 bit or 16 bit
//Çàïîëíèì ïîëÿ ñòðóêòóðû
pwfx->wFormatTag = WAVE_FORMAT_PCM;
pwfx->nBlockAlign = pwfx->nChannels * pwfx->wBitsPerSample / 8;
pwfx->nAvgBytesPerSec = pwfx->nSamplesPerSec * pwfx->nBlockAlign;
// save for later use
pInfo->pwfx = pwfx;
// buffer size a fixed fraction of a second
pInfo->buffersize = pwfx->nAvgBytesPerSec/StrToFloat(Edit2->Text);//UPDATES_PER_SEC; // UPDATES_PER_SEC = 20                      //
pInfo->hwav = NULL;
//Óñòàíàâëèâàåì ñâÿçü ñ äðàéâåðîì
if (waveInOpen(
&pInfo->hwav,
WAVE_MAPPER,
pwfx,
(DWORD) hWnd,// callback via MM_WIM_ messages to wndproc ScrollBars ssVertical
0,
CALLBACK_WINDOW)) {
SetWindowLong(hWnd, GWL_USERDATA, 0);
return(FALSE);
}
// store the info structure in the dialog, so that even if we fail
// on this routine we will clean up correctly
SetWindowLong(hWnd, GWL_USERDATA, (long)pInfo);
// set all the wave headers to null (for cleanup if error)
for(i = 0; i < NUM_LEVEL_BUFFERS; i++)pInfo->alpWave[i] = NULL;
// alloc, prepare and add all the buffers
for (i = 0; i < NUM_LEVEL_BUFFERS; i++)
{
pInfo->alpWave[i] =(LPWAVEHDR)new char[sizeof(WAVEHDR)+pInfo->buffersize];
if (pInfo->alpWave[i] == NULL)return false;
pInfo->alpWave[i]->lpData = (LPBYTE) (pInfo->alpWave[i] + 1);
pInfo->alpWave[i]->dwBufferLength = pInfo->buffersize;
pInfo->alpWave[i]->dwBytesRecorded = 0;
pInfo->alpWave[i]->dwUser = 0;
pInfo->alpWave[i]->dwFlags = 0;
pInfo->alpWave[i]->dwLoops = 0;
 
if (waveInPrepareHeader(pInfo->hwav, pInfo->alpWave[i], sizeof(WAVEHDR)))
return false;
if (waveInAddBuffer(pInfo->hwav, pInfo->alpWave[i], sizeof(WAVEHDR)))
return false;
}
 
waveInStart(pInfo->hwav);
return true;
}

// Изменнения которые можно задавать в диологе
pwfx->nChannels=nChan; //1(Mono) or 2(Stereo)
pwfx->nSamplesPerSec=Freq; //8000,11025,22050,44100
pwfx->wBitsPerSample=nBits; //8 bit or 16 bit
//заполним поля структуры
pwfx->wFormatTag = WAVE_FORMAT_PCM;
pwfx->nBlockAlign = pwfx->nChannels * pwfx->wBitsPerSample / 8;
pwfx->nAvgBytesPerSec = pwfx->nSamplesPerSec * pwfx->nBlockAlign;
//pwfx->cbSize
// save for later use
pInfo->pwfx = pwfx;
// buffer size a fixed fraction of a second
pInfo->buffersize = pwfx->nAvgBytesPerSec/StrToFloat(Edit2->Text);//UPDATES_PER_SEC; // UPDATES_PER_SEC = 20                      //
pInfo->hwav = NULL;

Graphics::TBitmap*b=new Graphics::TBitmap();
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
int h1,w1,w2;
b->LoadFromFile("test.bmp");
h1=b->Height;
w1=b->Width;
Edit1->Text=("h="+IntToStr(h1)+",w="+IntToStr(w1));
w2=200;
ScrollBar1->Max=w1-w2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ScrollBar1Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
int p=ScrollBar1->Position;
Image1->Canvas->CopyMode=cmSrcCopy;
Image1->Canvas->CopyRect(Rect(0,0,200,200),b->Canvas,Rect(p,0,p+200,200));
}