puntero

[gaston260]

gracias por responder !!

tenes ! yo hice una prueva no hace mucho y el 41% corresponde a 128 , perfecto lo que no entiendo es como tomar el valor máximo de cada buffer , me podrias encaminar porfavor ??

[[seoane]]

Vamos a ver, tu tienes este procedure:

Código Delphi [-]
procedure TfrmMain.BufferFinished(var Msg: TMessage);
var
  hdr: PWaveHdr;
  i: integer;
  P: PByte;
begin
  hdr:= PWaveHdr(Msg.LParam);
  with hdr^ do
    begin
      P:= PByte(lpData);
      Canvas.FillRect(Canvas.ClipRect);
      Canvas.MoveTo(width,128);
      Canvas.LineTo(0,128);
      for i:= 1 to dwBytesRecorded  do
        begin
          Canvas.LineTo(i,P^);
          inc(P);
        end;
    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;

Pues deberías hacer algo como esto:

Código Delphi [-]
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;
      // Aqui haz lo que quieras con B, por ejemplo
      ProgressBar1.Position:= B; 
      // O incluso esto otro
      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;

[gaston260]

gracias por darme ese dato , tal ves no pueda contestar por el momento pero mañana volvere !!

gracias al club y a todos , en especial a seoane y a jachguate !!

[gaston260]

maestro funciono perfecto permitame una modificacion en la linea (dec(B,128); por dec(B,124) ya que sin sonido alguno el progress marcaba 100% , con esta modificacion anda perfecto

¿ es posible tener varios progress y a cada uno dividirlo para que responda a una frecuencia determinada tal cual como en el winamp o el reproductor de windows ?

[gaston260]

voy a explicar mejor mi pregunta ¿ es posible tener varios progress y a cada uno asignarle una frecuencia distinta tal cual como en el winamp o el reproductor de ?

muchas gracias por dedicar su tiempo en leer mi pregunta !

[gaston260]

espero que este salga mejor jaja ¿ es posible tener varios progress y a cada uno asignarle una rango de frecuencia distinta ?

gracias por dedicar su tiempo en leer mi pregunta !!