analizador de espectro
Buen dia , tengo un codigo con el que en un hilo anterior me ayudaron , en realidad me escrivieron el procedure que es este
procedure TfrmMain.BufferFinished(var Msg: TMessage); var hdr: PWaveHdr; i: integer; P: PByte; B: Byte; begin hdr:= PWaveHdr(Msg.LParam); with hdr^ do begin P:= PByte(lpData); B:= 0; for i:= 1 to dwBytesRecorded do begin if P^ > B then B:=P^; inc(P); end; ProgressBar1.Position:= B; dec(B,128); ProgressBar1.Position:= B; end; if waveInPrepareHeader(Device,hdr,sizeof(TWAVEHDR))<>MMSYSERR_NOERROR then begin CloseWaveDevice; exit; end; if waveInAddBuffer(Device,hdr,sizeof(TWAVEHDR))<>MMSYSERR_NOERROR then begin CloseWaveDevice;
end;end; como se ve estoy trabajando con un solo progress , mi pregunta es ¿ como puedo trabajar con varios progress y a cada uno asignarle un rango de frecuencia distinto ? tal cual el winamp o el reproductor de windows media , no pretendo que me escrivan el codigo si no que me indiquen en donde puedo conseguir informacion . Muchas gracias por dedicarme un espacio en su tiempo !! |
La franja horaria es GMT +2. Ahora son las 03:04:31. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi