大佬帮忙看看这个是什么原因！

eyyhs

TEST.e (4.25 KB, 下载次数: 14)

2023-1-14 20:57 上传

点击文件名下载附件




子程序正常执行完毕，但是结束会卡住很久 有时候很快，有时候要等一会儿整个程序才结束，就感觉卡住了一样，

请问是什么原因，怎么解决？


补充内容 (2023-1-14 21:14):
经过测试，似乎是字节集长度的问题，但是我测试字节集最高144长度，写进去就会卡住一会儿，不知道原因，等大佬看看！

bysy

写到内存栈堆异常 局_数据数组2 是自定义数据类型 他不能这样子写内存

补充内容 (2023-1-14 21:30):
那个是数组 你那样子相当于 覆盖指针 函数退出自动释放内存 访问到 异常指针导致闪退

补充内容 (2023-1-14 21:34):
对了 你没修改数组长度 那就是 覆盖  其他数据 导致的异常

eyyhs

bysy 发表于 2023-1-14 21:28
写到内存栈堆异常 局_数据数组2 是自定义数据类型 他不能这样子写内存

那要如何解决或者如何写，是可以写进去，就是长度超过16 就容易卡住~~有时候不会卡住，有时候会！

bysy

eyyhs 发表于 2023-1-14 21:29
那要如何解决或者如何写，是可以写进去，就是长度超过16 就容易卡住~~有时候不会卡住，有时候会！ ...

为什么要那样子写
你本地复制完全可以

局_数据数组2=局_数据数组
因为他们数据一样

eyyhs

bysy 发表于 2023-1-14 21:33
为什么要那样子写
你本地复制完全可以

肯定是开发需求，需要保留完整数组信息 通过网络交互给服务器去处理的，分割字节集的方式效率太低下所以得使用字节集的方式，

bysy

eyyhs 发表于 2023-1-14 21:35
肯定是开发需求，需要保留完整数组信息 通过网络交互给服务器去处理的，分割字节集的方式效率太低下所以 ...

所以你想 自定义数据结构到字节集 然后发送到客户Duan吗?

eyyhs

bysy 发表于 2023-1-14 21:39
所以你想 自定义数据结构到字节集 然后发送到客户Duan吗?

是的，而且服务端处理完毕 还需要发送回来，开发需要 这种方式效率是最高的，所以选择这种方式！

eyyhs

bysy 发表于 2023-1-14 21:28
写到内存栈堆异常 局_数据数组2 是自定义数据类型 他不能这样子写内存

补充内容 (2023-1-14 21:30):

所以有没有解决办法呢？

bysy

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
data	数据		0
data2	数据
i	整数型
bin	字节集
p	整数型
m
i2	整数型
目前长度	整数型
i3	整数型

计次循环首 (10, i)
data2.文本 ＝ 到文本 (i)
data2.字节集 ＝ { 255, 255, 255, 255, 255, 255 }
data2.整数 ＝ i
data2.长整数 ＝ i
data2.双精度 ＝ i
加入成员 (data, data2)
计次循环尾 ()
m ＝ 1024 × 1024  ' 1M缓存空间
bin ＝ 取空白字节集 (m)
p ＝ 取变量数据地址 (bin)
计次循环首 (取数组成员数 (data), i)
i2 ＝ 取文本长度 (data [i].文本)
i3 ＝ 取字节集长度 (data [i].字节集)
如果真 (目前长度 ＋ i2 ＋ i3 ＋ 28 ＞ m)  ' 整数4 长整数 8 双精度 8 2个表示长度 一共28
bin ＝ bin ＋ 取空白字节集 (1024 × 1024)  ' 获取 申请新 内存 目标长度没变化
m ＝ m ＋ 1024 × 1024
p ＝ 取变量数据地址 (bin)

写到内存 (i2, p ＋ 目前长度, )  ' 将文本长度写到内存
目前长度 ＝ 目前长度 ＋ 4
写到内存 (data [i].文本, p ＋ 目前长度, )  ' 将文本写到内存
目前长度 ＝ 目前长度 ＋ i2
写到内存 (i3, p ＋ 目前长度, )  ' 将字节集长度写到内存
目前长度 ＝ 目前长度 ＋ 4
写到内存 (data [i].字节集, p ＋ 目前长度, )  ' 将字节集写到内存
目前长度 ＝ 目前长度 ＋ i3
写到内存 (data [i].整数, p ＋ 目前长度, )
目前长度 ＝ 目前长度 ＋ 4
写到内存 (data [i].长整数, p ＋ 目前长度, )
目前长度 ＝ 目前长度 ＋ 8
写到内存 (data [i].双精度, p ＋ 目前长度, )
目前长度 ＝ 目前长度 ＋ 8  ' 这里想要加是 数据长度
计次循环尾 ()
bin ＝ 取字节集中间 (bin, 1, 目前长度)
' 这个bin可以发服务器
' 本地
清除数组 (data)
目前长度 ＝ 1  ' 字节集取数据要从1 开始
计次循环首 (10, i)
i2 ＝ 取字节集数据 (bin, #整数型, 目前长度)
data2.文本 ＝ 到文本 (取字节集中间 (bin, 目前长度, i2))
目前长度 ＝ 目前长度 ＋ i2
i2 ＝ 取字节集数据 (bin, #整数型, 目前长度)
data2.字节集 ＝ 取字节集中间 (bin, 目前长度, i2)
目前长度 ＝ 目前长度 ＋ i2
data2.整数 ＝ 取字节集数据 (bin, #整数型, 目前长度)
data2.长整数 ＝ 取字节集数据 (bin, #长整数型, 目前长度)
data2.双精度 ＝ 取字节集数据 (bin, #双精度小数型, 目前长度)
加入成员 (data, data2)
计次循环尾 ()
计次循环首 (10, i)
调试输出 (“文本”, data [i].文本, “字节集”, data [i].字节集, data [i].整数, data [i].长整数, data [i].双精度)
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 data, 数据, , "0"<br /> .局部变量 data2, 数据<br /> .局部变量 i, 整数型<br /> .局部变量 bin, 字节集<br /> .局部变量 p, 整数型<br /> .局部变量 m<br /> .局部变量 i2, 整数型<br /> .局部变量 目前长度, 整数型<br /> .局部变量 i3, 整数型<br /> <br /> .计次循环首 (10, i)<br />     data2.文本 ＝ 到文本 (i)<br />     data2.字节集 ＝ { 255, 255, 255, 255, 255, 255 }<br />     data2.整数 ＝ i<br />     data2.长整数 ＝ i<br />     data2.双精度 ＝ i<br />     加入成员 (data, data2)<br /> .计次循环尾 ()<br /> m ＝ 1024 × 1024  ' 1M缓存空间<br /> <br /> bin ＝ 取空白字节集 (m)<br /> p ＝ 取变量数据地址 (bin)<br /> .计次循环首 (取数组成员数 (data), i)<br />     i2 ＝ 取文本长度 (data <i>.文本)<br />     i3 ＝ 取字节集长度 (data <i>.字节集)<br /> <br />     .如果真 (目前长度 ＋ i2 ＋ i3 ＋ 28 ＞ m)  ' 整数4 长整数 8 双精度 8 2个表示长度 一共28<br />         bin ＝ bin ＋ 取空白字节集 (1024 × 1024)  ' 获取 申请新 内存 目标长度没变化<br />         m ＝ m ＋ 1024 × 1024<br />         p ＝ 取变量数据地址 (bin)<br />     .如果真结束<br /> <br />     写到内存 (i2, p ＋ 目前长度, )  ' 将文本长度写到内存<br />     目前长度 ＝ 目前长度 ＋ 4<br />     写到内存 (data <i>.文本, p ＋ 目前长度, )  ' 将文本写到内存<br />     目前长度 ＝ 目前长度 ＋ i2<br /> <br />     写到内存 (i3, p ＋ 目前长度, )  ' 将字节集长度写到内存<br />     目前长度 ＝ 目前长度 ＋ 4<br />     写到内存 (data <i>.字节集, p ＋ 目前长度, )  ' 将字节集写到内存<br />     目前长度 ＝ 目前长度 ＋ i3<br /> <br /> <br />     写到内存 (data <i>.整数, p ＋ 目前长度, )<br />     目前长度 ＝ 目前长度 ＋ 4<br />     写到内存 (data <i>.长整数, p ＋ 目前长度, )<br />     目前长度 ＝ 目前长度 ＋ 8<br />     写到内存 (data <i>.双精度, p ＋ 目前长度, )<br />     目前长度 ＝ 目前长度 ＋ 8  ' 这里想要加是 数据长度<br /> <br /> .计次循环尾 ()<br /> bin ＝ 取字节集中间 (bin, 1, 目前长度)<br /> ' 这个bin可以发服务器<br /> <br /> <br /> <br /> ' 本地<br /> 清除数组 (data)<br /> 目前长度 ＝ 1  ' 字节集取数据要从1 开始<br /> <br /> .计次循环首 (10, i)<br />     i2 ＝ 取字节集数据 (bin, #整数型, 目前长度)<br /> <br />     data2.文本 ＝ 到文本 (取字节集中间 (bin, 目前长度, i2))<br />     目前长度 ＝ 目前长度 ＋ i2<br /> <br />     i2 ＝ 取字节集数据 (bin, #整数型, 目前长度)<br /> <br />     data2.字节集 ＝ 取字节集中间 (bin, 目前长度, i2)<br />     目前长度 ＝ 目前长度 ＋ i2<br /> <br />     data2.整数 ＝ 取字节集数据 (bin, #整数型, 目前长度)<br />     data2.长整数 ＝ 取字节集数据 (bin, #长整数型, 目前长度)<br />     data2.双精度 ＝ 取字节集数据 (bin, #双精度小数型, 目前长度)<br />     加入成员 (data, data2)<br /> .计次循环尾 ()<br /> .计次循环首 (10, i)<br />     调试输出 (“文本”, data <i>.文本, “字节集”, data <i>.字节集, data <i>.整数, data <i>.长整数, data <i>.双精度)<br /> <br /> .计次循环尾 ()

补充内容 (2023-1-14 22:08):
实际上 文本型可以在字符串尾部 补充个0 也是可以的

eyyhs

bysy 发表于 2023-1-14 22:06
[e=0].版本 2
.支持库 spec

很感谢，不过这样的写法，不太适合我，我目前考虑的是 把数据拆分保持16长度，这样可以避免卡住的问题