Bass aktuelle Aufnahmelautstärke

[igel457]

Also ich habs...

So gehts es nun. Es waren ein paar kleinere Fehlerchen. Wer den Code gebrauchen kann, schaut hier:

Delphi-Quellcode:

type TWaveSample = record
  l,r:smallint;
end;

type
  PWaveSample = ^TWaveSample;

var
  RecordPeakLeft,RecordPeakRight:integer;
  
// This is called while recording audio
function RecordingCallback(Handle: HRECORD; buffer: Pointer; length, user:
  DWord): boolean; stdcall;
var i:integer;
    maxl,minl,maxr,minr:smallint;
    sample:PWaveSample;
begin
  // Copy new buffer contents to the memory buffer
  WaveStream.Write(buffer^, length);

  //Calculate Peak
  sample := buffer;
  for i := 0 to length div 4 - 1 do
  begin
    if (sample^.l > maxl) or (i = 0) then maxl := sample^.l;
    if (sample^.r > maxr) or (i = 0) then maxr := sample^.r;
    if (sample^.l < minl) or (i = 0) then minl := sample^.l;
    if (sample^.r < minr) or (i = 0) then minr := sample^.r;
    inc(sample,1);
  end;
  RecordPeakLeft := abs(maxl-minl);
  RecordPeakRight := abs(maxr-minr);

  // Allow recording to continue
  Result := True;
end;