程序运行内存超过1.2G就会闪退 ，怎么办？

果心豆腐酱

如果不在多线程下操作，可以试下这个，程序允许速度很快，内存占用也小了。但是多线程和静态内存加载的dll，容易崩溃闪退https://bbs.125.la/forum.php?mod ... B%E5%8A%A0%E9%80%9F

果心豆腐酱

明天自然醒 发表于 2025-1-18 09:12
像我一样，找到易语言链接器配置，D:\易语言5.92\tools\link.ini

开大内存配置  /LARGEADDRESSAWARE

extra_args=/DYNAMICBASE "legacy_stdio_definitions.lib"
;extra_args=/DYNAMICBASE "legacy_stdio_definitions.lib"
;  extra_args用于指定附加给链接器的额外参数。默认为空。

那我这个，是more的么

sunhechao

分段处理，比如读入文本文件 每次读100MB处理完把结果写到另一个文件 然后再接着读

sunhechao

  

子程序名	返回值类型	公开	备 注
大文件分割	逻辑型		分割完成的路径为原文件同目录，分割后的文件名为： 原文件名.part序号.原拓展名  （大文件分割成小文件）
参数名	类 型	参考	可空	数组	备 注
原文件路径	文本型
切割分卷文件大小	长整数型				分割文件大小 单位为字节 分块大小无限制
是否删除原文件	逻辑型				默认为假 不删除
返回全部分卷文件路径	文本型
返回消息	文本型
获取进度	子程序指针				该子程序带一个整数型参数，参数内容为进度百分比

变量名	类 型	静态	数组	备 注
局_文件号	整数型
局_子文件号	整数型
局循环次数	整数型
局循环次数子	整数型
n	长整数型
i	整数型
m	整数型
局拓展名	文本型
局分卷路径	文本型
局初始字节数	长整数型
局压缩分段长度	长整数型
局_	字节集

如果真 (是否为空 (返回消息) ＝ 假)
返回消息 ＝ “”

清除数组 (返回全部分卷文件路径)
局_文件号 ＝ 打开文件A (原文件路径, #读文件, #限制读写 )
如果真 (局_文件号 ＝ 0)
返回消息 ＝ “文件分割：” ＋ 原文件路径 ＋ “ 文件无法打开，请检查是否已被其他程序占用”
返回 (假)

n ＝ 取文件大小 (局_文件号)
判断 (n ％ 切割分卷文件大小 ＝ 0)
局循环次数 ＝ n ÷ 切割分卷文件大小
局循环次数 ＝ n ÷ 切割分卷文件大小 ＋ 1

判断 (局循环次数 ＞ 1)
局拓展名 ＝ 文件_取扩展名 (原文件路径)
局分卷路径 ＝ 子文本替换 (原文件路径, 局拓展名, “”, , 1, 真) ＋ “.part”
局初始字节数 ＝ 0
判断 (切割分卷文件大小 ＞ #压缩分段上限 )
判断 (切割分卷文件大小 ％ #压缩分段上限 ＝ 0)
局循环次数子 ＝ 切割分卷文件大小 ÷ #压缩分段上限
局循环次数子 ＝ 切割分卷文件大小 ÷ #压缩分段上限 ＋ 1

计次循环首 (局循环次数, i)
加入成员 (返回全部分卷文件路径, 局分卷路径 ＋ 到文本 (i) ＋ 局拓展名)
局_子文件号 ＝ 打开文件A (局分卷路径 ＋ 到文本 (i) ＋ 局拓展名, #重写文件, #限制读写 )
如果真 (局_子文件号 ＝ 0)
返回消息 ＝ 返回消息 ＋ “文件分割：” ＋ 局分卷路径 ＋ 到文本 (i) ＋ 局拓展名 ＋ “  文件无法打开，请检查是否已被其他程序占用” ＋ #换行符

计次循环首 (局循环次数子, m)
改变读写位置 (局_文件号, 局初始字节数, )
判断 (局循环次数子 ＝ m)
判断 (切割分卷文件大小 ％ #压缩分段上限 ＝ 0)
局压缩分段长度 ＝ #压缩分段上限
局初始字节数 ＝ 局初始字节数 ＋ 局压缩分段长度
局压缩分段长度 ＝ 切割分卷文件大小 ％ #压缩分段上限
局初始字节数 ＝ 局初始字节数 ＋ 局压缩分段长度

局压缩分段长度 ＝ #压缩分段上限
局初始字节数 ＝ 局初始字节数 ＋ 局压缩分段长度

局_ ＝ 读文件字节集 (局_文件号, 局压缩分段长度, )
如果真 (写文件字节集 (局_子文件号, 局_) ＝ 假)
如果真 (取字节集长度 (局_) ≠ 0)
返回消息 ＝ 返回消息 ＋ “文件分割：” ＋ 局分卷路径 ＋ 到文本 (i) ＋ 局拓展名 ＋ “ 无法写入数据 请检查磁盘剩余空间” ＋ #换行符


计次循环尾 ()
关闭文件句柄 (局_子文件号)
如果真 (是否为空 (获取进度) ＝ 假)
调用子程序 (获取进度, , , 取整 (局初始字节数 ÷ (n ÷ 100)))

程序延时 (1)
计次循环尾 ()



计次循环首 (局循环次数, i)
加入成员 (返回全部分卷文件路径, 局分卷路径 ＋ 到文本 (i) ＋ 局拓展名)
改变读写位置 (局_文件号, 局初始字节数, )
局_ ＝ 读文件字节集 (局_文件号, 切割分卷文件大小, )
如果真 (写到文件字节集A (局分卷路径 ＋ 到文本 (i) ＋ 局拓展名, 局_) ＝ 假)
返回消息 ＝ 返回消息 ＋ “文件分割：” ＋ 局分卷路径 ＋ 到文本 (i) ＋ 局拓展名 ＋ “ 无法写入数据 请检查磁盘剩余空间” ＋ #换行符

局初始字节数 ＝ 局初始字节数 ＋ 切割分卷文件大小
如果真 (是否为空 (获取进度) ＝ 假)
调用子程序 (获取进度, , , 取整 (局初始字节数 ÷ (n ÷ 100)))

程序延时 (1)
计次循环尾 ()

关闭文件句柄 (局_文件号)
如果真 (返回消息 ≠ “”)
清除数组 (返回全部分卷文件路径)
返回 (假)

如果真 (是否删除原文件 ＝ 真)
处理事件 ()
删除文件 (原文件路径)

返回 (真)
关闭文件句柄 (局_文件号)
返回消息 ＝ “文件分割：设置的分割文件大小大于或等于原文件大小，无需分割”
返回 (假)

比如像这样

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 大文件分割, 逻辑型, 公开, 分割完成的路径为原文件同目录，分割后的文件名为： 原文件名.part序号.原拓展名  （大文件分割成小文件）<br /> .参数 原文件路径, 文本型<br /> .参数 切割分卷文件大小, 长整数型, , 分割文件大小 单位为字节 分块大小无限制<br /> .参数 是否删除原文件, 逻辑型, 可空, 默认为假 不删除<br /> .参数 返回全部分卷文件路径, 文本型, 可空 数组<br /> .参数 返回消息, 文本型, 可空<br /> .参数 获取进度, 子程序指针, 可空, 该子程序带一个整数型参数，参数内容为进度百分比<br /> .局部变量 局_文件号, 整数型<br /> .局部变量 局_子文件号, 整数型<br /> .局部变量 局循环次数, 整数型<br /> .局部变量 局循环次数子, 整数型<br /> .局部变量 n, 长整数型<br /> .局部变量 i, 整数型<br /> .局部变量 m, 整数型<br /> .局部变量 局拓展名, 文本型<br /> .局部变量 局分卷路径, 文本型<br /> .局部变量 局初始字节数, 长整数型<br /> .局部变量 局压缩分段长度, 长整数型<br /> .局部变量 局_, 字节集<br /> <br /> .如果真 (是否为空 (返回消息) ＝ 假)<br />     返回消息 ＝ “”<br /> .如果真结束<br /> <br /> 清除数组 (返回全部分卷文件路径)<br /> 局_文件号 ＝ 打开文件A (原文件路径, #读文件, #限制读写)<br /> .如果真 (局_文件号 ＝ 0)<br />     返回消息 ＝ “文件分割：” ＋ 原文件路径 ＋ “ 文件无法打开，请检查是否已被其他程序占用”<br />     返回 (假)<br /> .如果真结束<br /> <br /> n ＝ 取文件大小 (局_文件号)<br /> .判断开始 (n ％ 切割分卷文件大小 ＝ 0)<br />     局循环次数 ＝ n ÷ 切割分卷文件大小<br /> .默认<br />     局循环次数 ＝ n ÷ 切割分卷文件大小 ＋ 1<br /> .判断结束<br /> <br /> .判断开始 (局循环次数 ＞ 1)<br />     局拓展名 ＝ 文件_取扩展名 (原文件路径)<br />     局分卷路径 ＝ 子文本替换 (原文件路径, 局拓展名, “”, , 1, 真) ＋ “.part”<br />     局初始字节数 ＝ 0<br />     .判断开始 (切割分卷文件大小 ＞ #压缩分段上限)<br />         .判断开始 (切割分卷文件大小 ％ #压缩分段上限 ＝ 0)<br />             局循环次数子 ＝ 切割分卷文件大小 ÷ #压缩分段上限<br />         .默认<br />             局循环次数子 ＝ 切割分卷文件大小 ÷ #压缩分段上限 ＋ 1<br />         .判断结束<br /> <br />         .计次循环首 (局循环次数, i)<br />             加入成员 (返回全部分卷文件路径, 局分卷路径 ＋ 到文本 (i) ＋ 局拓展名)<br />             局_子文件号 ＝ 打开文件A (局分卷路径 ＋ 到文本 (i) ＋ 局拓展名, #重写文件, #限制读写)<br />             .如果真 (局_子文件号 ＝ 0)<br />                 返回消息 ＝ 返回消息 ＋ “文件分割：” ＋ 局分卷路径 ＋ 到文本 (i) ＋ 局拓展名 ＋ “  文件无法打开，请检查是否已被其他程序占用” ＋ #换行符<br />             .如果真结束<br /> <br />             .计次循环首 (局循环次数子, m)<br />                 改变读写位置 (局_文件号, 局初始字节数, )<br />                 .判断开始 (局循环次数子 ＝ m)<br />                     .判断开始 (切割分卷文件大小 ％ #压缩分段上限 ＝ 0)<br />                         局压缩分段长度 ＝ #压缩分段上限<br />                         局初始字节数 ＝ 局初始字节数 ＋ 局压缩分段长度<br />                     .默认<br />                         局压缩分段长度 ＝ 切割分卷文件大小 ％ #压缩分段上限<br />                         局初始字节数 ＝ 局初始字节数 ＋ 局压缩分段长度<br />                     .判断结束<br /> <br />                 .默认<br />                     局压缩分段长度 ＝ #压缩分段上限<br />                     局初始字节数 ＝ 局初始字节数 ＋ 局压缩分段长度<br />                 .判断结束<br /> <br />                 局_ ＝ 读文件字节集 (局_文件号, 局压缩分段长度, )<br />                 .如果真 (写文件字节集 (局_子文件号, 局_) ＝ 假)<br />                     .如果真 (取字节集长度 (局_) ≠ 0)<br />                         返回消息 ＝ 返回消息 ＋ “文件分割：” ＋ 局分卷路径 ＋ 到文本 (i) ＋ 局拓展名 ＋ “ 无法写入数据 请检查磁盘剩余空间” ＋ #换行符<br />                     .如果真结束<br /> <br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />             关闭文件句柄 (局_子文件号)<br />             .如果真 (是否为空 (获取进度) ＝ 假)<br />                 调用子程序 (获取进度, , , 取整 (局初始字节数 ÷ (n ÷ 100)))<br />             .如果真结束<br /> <br />             程序延时 (1)<br />         .计次循环尾 ()<br /> <br />     .默认<br /> <br />         .计次循环首 (局循环次数, i)<br />             加入成员 (返回全部分卷文件路径, 局分卷路径 ＋ 到文本 (i) ＋ 局拓展名)<br />             改变读写位置 (局_文件号, 局初始字节数, )<br />             局_ ＝ 读文件字节集 (局_文件号, 切割分卷文件大小, )<br />             .如果真 (写到文件字节集A (局分卷路径 ＋ 到文本 (i) ＋ 局拓展名, 局_) ＝ 假)<br />                 返回消息 ＝ 返回消息 ＋ “文件分割：” ＋ 局分卷路径 ＋ 到文本 (i) ＋ 局拓展名 ＋ “ 无法写入数据 请检查磁盘剩余空间” ＋ #换行符<br />             .如果真结束<br /> <br />             局初始字节数 ＝ 局初始字节数 ＋ 切割分卷文件大小<br />             .如果真 (是否为空 (获取进度) ＝ 假)<br />                 调用子程序 (获取进度, , , 取整 (局初始字节数 ÷ (n ÷ 100)))<br />             .如果真结束<br /> <br />             程序延时 (1)<br />         .计次循环尾 ()<br />     .判断结束<br /> <br />     关闭文件句柄 (局_文件号)<br />     .如果真 (返回消息 ≠ “”)<br />         清除数组 (返回全部分卷文件路径)<br />         返回 (假)<br />     .如果真结束<br /> <br />     .如果真 (是否删除原文件 ＝ 真)<br />         处理事件 ()<br />         删除文件 (原文件路径)<br />     .如果真结束<br /> <br />     返回 (真)<br /> .默认<br />     关闭文件句柄 (局_文件号)<br />     返回消息 ＝ “文件分割：设置的分割文件大小大于或等于原文件大小，无需分割”<br />     返回 (假)<br /> .判断结束<br /> <br /> 比如像这样