puntero

[[seoane]]

Vamos por partes, lo valores de los que hablas van del 0 al 255, pero para obtener el valor "real" hay que restarle 128. Por este motivo, para un valor de 0 en la entrada, es decir sin sonido, el valor que obtienes es de 128.

Por otro lado, en el programa que mencionas puedes ver que para obtener el byte al que apunta el puntero solo hay que poner a continuación el símbolo ^. Como ya te dijo jachguate el tipo byte es un entero, no hace falta conversión, algo como esto es completamente valido:

Código Delphi [-]
var
  i: Integer;
begin
  

  i:= b^;
end;

La razón por la que se muestra mal en la placa que tienes conectada en el puerto paralelo ya depende de como funcione la placa y los parámetros que espera recibir. De todas formas, si quieres hacer un vumeter deberías de tomar el valor máximo de cada buffer y ser ese el que se muestra, de lo contrario los valores cambiaran tan rápidamente que apenas apreciaras nadas, solo luces parpadeando.

[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 !!