GetChannelsPeakValues

[DaCoda]

Nun ist der Groschen gefallen

So hat es dann geklappt:

Code:

if Succeeded(Peak. GetChannelsPeakValues(ChannelCount, pSingle(PeakLevels))) then begin
  VuMeterL.Position := Round(PeakLevels[0] * MaxProzentValue);
  VuMeterR.Position := Round(PeakLevels[1] * MaxProzentValue);
end

Vielen Dank Kas Ob.

[Kas Ob.]

Glad it did help !

Just few points :
1) No need to ClearPeakLevels, they will be overwritten if the GetPeakValue was success.
2) By using timer you are losing too much volume calculations and it will not be so accurate, it is better to capture the sound and only then assuming you are capturing 1/20 or 1/50 (preferably) in a second then on that event (or callback) get the peak volume hence you will have exactly the same values you in Sound Control Panel. (you can replicate the same volume the system show , pointed in a screenshot)
3) you can use absolute and make it cleaner

Code:

var
  ChannelCount: UInt;
  PeakLevels: array[0..1] of Single;
  pPeakLevels: PSingle absolute PeakLevels;

2024-05-19 13_08_52-NEFFEX - Anxiety (Lyrics) - YouTube.png

[DaCoda]

@Kas Ob.

Thank you, i have made your suggestions. And it works perfect!