变体型释放的BUG，请各位大神给个修复方法，谢谢！

易语飞扬

变体型内存无法释放，请各位大神给个修复方法，谢谢！

.版本 2

.子程序 _临时子程序
变体型内存释放存在问题 ()
暂停 ()  ' 在任务管理器中查看内存是否释放（当前变体设定为550ＭＢ左右）。


.子程序 变体型内存释放存在问题
.局部变量 变体, 变体型
.局部变量 行数
.局部变量 I1

' 问题描述：变体型存储数组后，内存无法释放（非数组的无问题）。本子程序执行完毕后（进程未结束），在任务管理器中查看到内存并未释放（当前变体设定为550ＭＢ左右）。
行数 ＝ 5000000
变体.创建数组 (6, 行数)
.计次循环首 (行数, I1)
    变体.赋值 (到文本 (I1), I1)
.计次循环尾 ()

' 方法1：
.' 计次循环首 (行数, I1)
    ' 变体.赋值 (, I1)
.' 计次循环尾 ()

' 方法2：
' 变体.清除 ()

' 方法3：
' 变体.创建数组 (6, 1)

' 方法4：
' 变体.置类型 (#变体类型.数值型)
返回 ()



变体型释放BUG.e (2.84 KB, 下载次数: 5)

2026-4-13 22:40 上传

点击文件名下载附件

美夜赤月

易语言的 变体.清除 ()

其实就是调用了 VariantClear 然后再 VariantInit 。


.版本 2
.支持库 spec

.子程序 释放变体
.参数 变体指针, 整数型
.局部变量 头地址, 整数型
.局部变量 指针地址, 整数型
.局部变量 数组长度, 整数型
.局部变量 pData, 整数型
.局部变量 i, 整数型
.局部变量 pBstr, 整数型

头地址 ＝ 指针到整数 (变体指针)
指针地址 ＝ 指针到整数 (头地址 ＋ 8)
数组长度 ＝ 指针到整数 (指针地址 ＋ 16)
pData ＝ 指针到整数 (指针地址 ＋ 12)
SetOaNoCache ()
调试输出 (取十六进制文本 (指针地址), 取十六进制文本 (指针地址 ＋ 8), 取十六进制文本 (指针地址 ＋ 16), 数组长度, 取十六进制文本 (pData))
.计次循环首 (数组长度, i)
    pBstr ＝ 指针到整数 (pData ＋ (i － 1) × 4)
    .如果真 (pBstr ≠ 0)
        RtlFillMemory (pBstr, 10, 0)
        SysFreeString (pBstr)
        写到内存 (0, pData ＋ (i － 1) × 4, 4)
    .如果真结束

.计次循环尾 ()
SafeArrayDestroy (指针地址)
RtlFillMemory (头地址, 16, 0)
SetProcessWorkingSetSize (-1, -1, -1)

试试看这个代码？

易语飞扬

十分感谢“美夜赤月”大神的热心解答。

附上完整的变体型释放代码
变体型释放.e (9.03 KB, 下载次数: 6)

2026-4-16 17:10 上传

点击文件名下载附件

李泽勇2

易语飞扬 发表于 2026-4-16 17:12
十分感谢“美夜赤月”大神的热心解答。

附上完整的变体型释放代码

这里可以改进下

易语飞扬

李泽勇2 发表于 2026-4-16 08:17
你好，我没找到SetOaNoCache ()这个子程序或API，可否提供下，谢谢！

.版本 2

.DLL命令 SetOaNoCache, 整数型, "oleaut32.dll", "SetOaNoCache"

李泽勇2

美夜赤月 发表于 2026-4-16 00:03
易语言的 变体.清除 ()

其实就是调用了 VariantClear 然后再 VariantInit 。

你好，我没找到SetOaNoCache ()这个子程序或API，可否提供下，谢谢！

易语飞扬

美夜赤月 发表于 2026-4-16 00:03
易语言的 变体.清除 ()

其实就是调用了 VariantClear 然后再 VariantInit 。

感谢大神，经测试内存降下来了。

kyo9766

下载测试一下，感谢分享

胖子葛格

感谢大神分享~！

hehz977

谢谢分享