![]() |
richtige Aussteuerungsanzeige - Frage zur Berechnung
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:
Jetzt halten lPeak und rPeak den höchsten Wert, der in einem Record-Buffer zu finden war. Aber gibt das wirklich eine "richtige" Aussteuerungsanzeige?
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; 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:
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.
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. ... Ich bitte um euere Hilfe!!! Vielen Dank schonmal und viele Grüße Marco |
AW: richtige Aussteuerungsanzeige - Frage zur Berechnung
Zitat:
Zitat:
Wann liest Du die Peaks aus bzw wann löschts Du sie wieder? Geht aus dem kurzen Codeabschnitt nicht herraus Gruss alfold |
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:45 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz