WaveIn Daten auswerten

[albi99]

Hallo zusammen,


Ich möchte die Daten einer laufenden Wave Aufnahme (WaveInOpen, WaveInStart usw.) auswerten. Von Interesse ist hier hauptsächlich die Laustärke (Level).
Wie kann ich aus dem Datenpuffer (PWaveHdr.lpData) diese Info auslesen?

Den Mixer kann ich leider nicht verwenden, da nicht alle Geräte (Modem, ISDN Karte) das unterstützen.



mfg
albi99

[danielmattes]

das geht so:

var
SP: ^Smallint;
N, v: Integer;
xMin, xMax: Integer;
vol: Integer;

---

//Volume ermitteln:
N := Size Div 2;
SP := Data;
xMin := SP^;
xMax := xMin;
For i := 0 To N - 1 Do Begin
v := SP^;
inc(SP);
If (xMin > v) Then xMin := v;
If (xMax < v) Then xMax := v;
End;
vol := Round(100 * xMax / 36768.0);
//Pegelanzeige:
ProgressBar3.position := vol;


vol=1-100 (leise-laut)
data=pointer zu lpData

viel spaß

ps: normalisieren habe ich bereits gepostet