Построение кривой звука и приём с микрофона

[TwiX]

Вот решил попробовать сделать распознавание xD
Но ничего по этому поводу не знал - думаю это не так уж и сложно...
Спасибо.

[raxp]

если не секрет, шо таке -

xD

?

распознавание речи очень нетривиальная задача, куча институтов бъются...ройте в сторону speechapi...
нет, конечно есть библиотеки по распознаванию простейших команд (тот же ms agent, горыныч небезызвестный и т.п.), так и то на английском и это с учетом того что куча фоно-баз

...поэтому уточните, если речь идет о речи - это одно, если распознать тональный сигнал скажем, то это другое и значительно проще

[TwiX]

Ммм... Я хотел узнать как строить кривые звука и как принимать звук через микрфон =)

[raxp]

Я хотел узнать как строить кривые звука и как принимать звук через микрфон

var vis_ir: timage;
...
//= systimer2 =
procedure waveInProc2(hwi: HWAVEIN; uMsg,dwInstance,
                     dwParam1,dwParam2: DWORD);stdcall;
var i: integer;
    data16: PData16;
    h: integer;
    XScale, YScale: single;
    temp: pWaveHdr;
begin
 if (uMsg=WIM_DATA) then begin
  temp:= adr2;
  if adr2= @bufhead1 then adr2:= @bufhead2
   else adr2:= @bufhead1;
  if stp2 then WaveInAddBuffer(hwi,adr2,SizeOf(TWaveHdr));
  data16:= PData16(temp.lpData);

  //graf-
  h:= vis_ir.Height; //k:= abs(data16^[0]);
  XScale:= vis_ir.Width / BufSize;
  YScale:= h / (1 shl 16);
  for i := 0 to BufSize - 1 do
   pnt^[i]:= Point(round(i * XScale),round(h / 2 - data16^[i] * YScale));

  with vis_ir.Canvas do begin
   brush.Color:= 0;
   FillRect(ClipRect);
   pen.Color:= 16711680;//clblue;
   Polyline(Slice(pnt^, BufSize));
   font.Color:= 255;
   font.Name:= 'arial'; font.Size:= 5;
   cnt_:= not cnt_;
   if cnt_ then textout(0,0,'REC');//inttohex(k,4));
   font.Color:= 65280;
   textout(0,h-7,inttostr(sz)+' KB');
  end

 end else Exit
end;


procedure wcard(tmp: Timage);
const rbuf=7;
var header: TWaveFormatEx;
    BufLen: word;
    buf: pointer;
begin
 vis_ir:= tmp;
 try
 //
 stp2:=not stp2;
 if stp2 then begin
  vis_ir.Visible:=true;
  //vis_ir.Hint:= 'Идет запись...';

  BufSize:= rbuf * 500 + 100;
  with header do begin
   wFormatTag:= WAVE_FORMAT_PCM;
   nChannels := 2;
   nSamplesPerSec:= 22050;
   wBitsPerSample:= 16;
   nBlockAlign:= nChannels * (wBitsPerSample div 8);
   nAvgBytesPerSec:= nSamplesPerSec * nBlockAlign;
   cbSize:= 0;
  end;

  WaveInOpen(Addr(hwi2), WAVE_MAPPER, addr(header),integer(@waveInProc2),
             0,CALLBACK_FUNCTION);
  BufLen:= header.nBlockAlign * BufSize;
  hBuf:= GlobalAlloc(GMEM_MOVEABLE and GMEM_SHARE, BufLen);

  Buf:= GlobalLock(hBuf);
  with BufHead1 do begin
   lpData:= Buf;
   dwBufferLength:= BufLen;
   dwFlags:= 0;
  end;

  with BufHead2 do begin
   lpData:= Buf;
   dwBufferLength:= BufLen;
   dwFlags:= 0;
  end;
  adr2:= @BufHead1;
  waveInPrepareHeader(hwi2, Addr(BufHead1), sizeof(BufHead1));
  waveInPrepareHeader(hwi2, Addr(BufHead2), sizeof(BufHead2));
  WaveInAddBuffer(hwi2, addr(BufHead1), sizeof(BufHead1));
  GetMem(pnt, BufSize * sizeof(TPoint));
  WaveInStart(hwi2);

 //стоп
 end else begin
  vis_ir.Visible:=false; vis_ir.Hint:= '';

  WaveInReset(hwi2);
  WaveInUnPrepareHeader(hwi2, addr(BufHead1), sizeof(BufHead1));
  WaveInClose(hwi2);
  GlobalUnlock(hBuf); GlobalFree(hBuf);
  FreeMem(pnt, BufSize * sizeof(TPoint));
 end; except end
end;

...еще вариант, в событии waveinproc берете data16 и просто кидаете данные в tchart, он сам и отрисует...

var
inwav,outwav: TfastLineSeries;
spektr: TbarSeries;
...
 data16:= PData16(temp.lpData);

  inwav.Clear; outwav.Clear; spektr.Clear;

  for i := 0 to BufSize - 1 do begin //набиваем-
   inwav.add(data16^[i])
  end;
  //FFTQuad(inwav,outwav,fftcnt,false); // тут можем спектр построить
...

использование- wcard(vis_ir)
...
не забудьте inwav создать...

[TwiX]

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

Так распознавать не надо? Тогда формулируй получше. Надо было написать не "распозенавание", а "регистрация". Распознавание - это анализ кривой и определение того, каков её смысл, а регистрация - только приём с микрофона и размещение в блоке данных. Визуализация кривой на экране - это в принципе отдельная подзадача, но в рамках задачи возможно и объединение регистрации с визуализацией.

Основной (и, соответственно, главный) вопрос должно содержать название темы. Про распознавание я ничего и не спрашивал - просто сказал для чего мне нужно узнать то, что содержит название темы.

raxp,у спасибо =) Сейчас буду разбираться, что написано )

[raxp]

raxp,у спасибо =) Сейчас буду разбираться, что написано

кстати, если что будет непонятно, полный модуль выкладывал тут