音量控制模块，可实时获取设备音量电平峰值

sugyli

里面的 INDEX=1   2 之类的看不明白啊

sugyli

支持下  感谢分享

chinasulu

chinasulu

音频设备.

1389739946

爱死你了！！！

wxy123456

雨纷飞 发表于 2024-4-13 02:38
模块源码的修正源码在附件，通过以上方法修正过后就解决了内存泄漏。不过楼主的这个类库，并没有写完，比如 ...

高手，这样就不用担心BUG卡死

雨纷飞

模块源码的修正源码在附件，通过以上方法修正过后就解决了内存泄漏。不过楼主的这个类库，并没有写完，比如想调整某个进程的音频流的音量，是没有实现的。缺少以下内容：
IAudioSessionManager2
IAudioSessionEnumerator
IAudioSessionControl2
ISimpleAudioVolume

我懒得写因为我通过py实现了，没再继续用易语言了。大家如果有兴趣可以依照楼主写的IAudioEndpointVolume等com的易语言类实现，来完善以上几个com的实现，完善后就是完整的微软Core Audio APIs了

雨纷飞

wxy123456 发表于 2024-4-12 11:57
时钟周期必须设置的大点，我设置5秒，程序暂时没有卡死。
如果设置成几百毫秒，程序必卡死。 ...

我是用来实现动态音量均衡（又叫响度均衡）的，用来检测系统正在播放的音频是否音量过大，如果过大就降低音量，以实现不同媒体的音量差不多都一样，避免打开一个游戏或电影时声音大吓一跳（高端点的声卡其驱动附带软件都有这功能，我新换的神舟笔记本显然不高端），所以自己写了实现。

要实现这个功能，需要每秒采样音量至少100次。你设置5秒的办法对我来说没有实用价值哦 。

附上解决内存泄漏的修正代码：
每个类增加以下子程序：
.版本 2

.子程序 Release2, 整数型
.参数 this_, 整数型
.局部变量 index, 整数型

index ＝ 2
置入代码 (#COM调用)
返回 (0)

然后在类实现里，在返回前增加上：
.版本 2

    ' '''这里缺Release,导致泄露
    Release2 (pMeterInfo)  ' 补上释放，不同的类要释放不同的对象

这样返回前就会释放。不同的com对象，基本都是方法2为Release ，所以不同的对象都调用方法2就都能释放掉。把所有类都加上调用完毕返回前释放，问题就解决了。

wxy123456

zhangmp 发表于 2020-3-29 01:31
感谢楼主，不过能讲下怎么释放内存吗？无论是用循环还是时钟，采样率高的话程序占用内存疯涨，有什么办法解 ...

时钟周期必须设置的大点，我设置5秒，程序暂时没有卡死。
如果设置成几百毫秒，程序必卡死。

wxy123456

雨纷飞 发表于 2024-4-7 01:35
有bug:  pIID_IAudioMeterInformation创建了com对象没有释放,所以导致每次GetPeakValue来获取音频峰值,都会 ...

确实有内存泄漏，导致程序卡死的情况。