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;
exit;
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 !!