Hallo zusammen,
ich möchte eine Aussteuerungsanzeige realisieren. Das ist mir auch gelungen. Die Werte, die dabei angezeigt werden, scheinen mir aber nicht wirklich sinnig zu sein.
Das ganze ist mittels der BASS.dll realisiert.
Bevor ich zu meiner Frage komme, hier erstmal der code:
Delphi-Quellcode:
type
p2Single = ^T2Single; // für das durchwandern des Record-Buffers
T2Single = record
l, r: Single; // für ein Sample des linken und rechten Kanals.
end;
var
lPeak, rPeak: Single; // halten den Peakwert (also den höchsten Wert) für
// den linken und rechten Kanal.
...
function AufnahmeProc (channel: HRECORD; buffer: p2Single; length: DWord; user: pointer): Boolean; stdcall;
var
a: DWORD; // Samplezaehler
begin
a := 1;
length := length div SizeOf (Single); // Length sind jetzt die Anzahl der Samples.
while a < length do
begin
if buffer^.l > lPeak then
lPeak := buffer^.l;
if buffer^.r > rPeak then
rPeak := buffer^.r;
inc (buffer);
a := a + 2; // weil zwei Samples verändert wurden.
end;
Result := true;
end;
Jetzt halten lPeak und rPeak den höchsten Wert, der in einem Record-Buffer zu finden war. Aber gibt das wirklich eine "richtige" Aussteuerungsanzeige?
Wäre hier nicht ein Durchschnittswert oder irgendetwas in der Richtung sinniger?
Ich gebe die Zahlen, die für lPeak und rPeak stehen für jeden Durchlauf der AufnahmeProc aus.
Delphi-Quellcode:
var
l, r: integer;
begin
l := trunc (lPeak * 100);
r := trunc (rPeak * 100);
// ausgabe
lPeak := 0;
rPeak := 0; // damit's beim nächsten Durchlauf der RecordProc wieder von forn losgeht.
...
und das gibt auch genau die Werte, die es geben soll, nämlich zwischen 0 und 100 ... aber mir scheint die Anzeige nicht wirklich dem zu entsprechen, was als Signal reinkommt.
Ich bitte um euere Hilfe!!!
Vielen Dank schonmal und viele Grüße
Marco