软件崩溃闪退 多线程+死循环+请求接口+超级列表框更新

up1234f4

多线程一直提交查询接口，更新超级列表框 软件崩溃闪退。有啥办法解决么

  

窗口程序集名	保 留	保 留	备 注
(未填写程序集名)
变量名	类 型	数组	备 注
变量名	类 型	数组	备 注
线程精英2	线程池类_精英
线程精英3	线程池类_精英

.版本 2<br /> <br /> .程序集变量 线程精英2, 线程池类_精英<br /> .程序集变量 线程精英3, 线程池类_精英

  

子程序名	返回值类型	公开	备 注
查询当前持仓收益	文本型
参数名	类 型	参考	可空	数组	备 注
行	整数型

变量名	类 型	静态	数组	备 注
pTime	文本型
pLibcurl	RSLibcurl
局_提交数据	文本型
str	文本型
签名验证	文本型
ret	文本型
json	类_json
token	文本型
i	整数型
b	整数型

token ＝ 高级表格1.取数据 (行, 5)
pTime ＝ rsUnixtmStr ()
局_提交数据 ＝ “{” ＋ #引号 ＋ “api_version” ＋ #引号 ＋ “:” ＋ #引号 ＋ “V2” ＋ #引号 ＋ “,” ＋ #引号 ＋ “ts” ＋ #引号 ＋ “:” ＋ pTime ＋ “,” ＋ #引号 ＋ “req_lang” ＋ #引号 ＋ “:0,” ＋ #引号 ＋ “req_os” ＋ #引号 ＋ “:3,” ＋ #引号 ＋ “version” ＋ #引号 ＋ “:” ＋ #引号 ＋ “0” ＋ #引号 ＋ “,” ＋ #引号 ＋ “device_id” ＋ #引号 ＋ “:” ＋ #引号 ＋ “chrome-86.0.4240.198” ＋ #引号 ＋ “,” ＋ #引号 ＋ “device” ＋ #引号 ＋ “:” ＋ #引号 ＋ “chrome-86.0.4240.198” ＋ #引号 ＋ “,” ＋ #引号 ＋ “platform_id” ＋ #引号 ＋ “:1,” ＋ #引号 ＋ “system_os” ＋ #引号 ＋ “:” ＋ #引号 ＋ “windows-10” ＋ #引号 ＋ “,” ＋ #引号 ＋ “token” ＋ #引号 ＋ “:” ＋ #引号 ＋ token ＋ #引号 ＋ “}”
签名验证 ＝ 加密 (局_提交数据)
局_提交数据 ＝ 子文本替换 (局_提交数据 ＋ “123456789”, “}123456789”, “”, , , 真) ＋ “,” ＋ #引号 ＋ “sig” ＋ #引号 ＋ “:” ＋ #引号 ＋ 签名验证 ＋ #引号 ＋ “}”
调试输出 (局_提交数据)
pLibcurl.Open (“POST”, “https://api.pandafe.pro/v1/order/hold”)
pLibcurl.SetRequestHeader (“Referer”, “https://www.pandafe.io/”)
pLibcurl.SetRequestHeader (“Content-Type”, “application/json;charset=UTF-8”)
pLibcurl.SetRequestHeader (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36”)
pLibcurl.SetRequestHeader (“token”, token)
pLibcurl.Send (局_提交数据)
str ＝ pLibcurl.GetResponseTextUtf8ToAnsi ()
json.解析 (str)
如果 (json.取通用属性 (“ret”) ＝ “0”)
计次循环首 (json.成员数 (“data.list”), i)
' 判断 B买入开多 S卖出开空
如果真 (json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “].side”) ＝ “B”)
' 收益USTD
高级表格1.置数据 (行, 10, 1, json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['float_profit']”))
' 根据收益USTD 正负 更改背景颜色
如果 (到小数 (json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['float_profit']”)) ＞ 0)
高级表格1.置单元格背景颜色 (行, 10, , , #绿色 )


高级表格1.置单元格背景颜色 (行, 10, , , #红色 )
' 收益率
高级表格1.置数据 (行, 11, 1, json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['profit_ratio']”))
' 根据收益率 正负 更改背景颜色
如果 (到小数 (json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['profit_ratio']”)) ＞ 0)
高级表格1.置单元格背景颜色 (行, 11, , , #绿色 )


高级表格1.置单元格背景颜色 (行, 11, , , #红色 )

如果真 (json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “].side”) ＝ “S”)
' 收益USTD
高级表格1.置数据 (行, 18, 1, json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['float_profit']”))
' 根据收益USTD 正负 更改背景颜色
如果 (到小数 (json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['float_profit']”)) ＞ 0)
高级表格1.置单元格背景颜色 (行, 18, , , #绿色 )


高级表格1.置单元格背景颜色 (行, 18, , , #红色 )
' 收益率
高级表格1.置数据 (行, 19, 1, json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['profit_ratio']”))
' 根据收益率 正负 更改背景颜色
如果 (到小数 (json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['profit_ratio']”)) ＞ 0)
高级表格1.置单元格背景颜色 (行, 19, , , #绿色 )


高级表格1.置单元格背景颜色 (行, 19, , , #红色 )


计次循环尾 ()



高级表格1.置数据 (行, 8, 1, json.取通用属性 (“msg”))
高级表格1.置数据 (行, 16, 1, json.取通用属性 (“msg”))

返回 (str)

子程序名	返回值类型	公开	备 注
_选择框_自动刷新收益_被单击

如果真 (选择框_自动刷新收益.选中 ＝ 真)
加入日志 (“自动刷新收益开启”, “”, 0)
线程精英3.创建 (&自动刷新收益, 1)
线程精英3.加入任务 ()
如果真 (选择框_自动刷新收益.选中 ＝ 假)
加入日志 (“自动刷新收益关闭”, “”, 0)
线程精英2.销毁 ()
线程精英3.销毁 ()

子程序名	返回值类型	公开	备 注
自动刷新收益

变量名	类 型	静态	数组	备 注
z	整数型
b	整数型

线程精英2.创建 (&查询当前持仓收益, 到整数 (编辑框_线程.内容))
判断循环首 (真)
计次循环首 (高级表格1.行数 － 1, z)
如果真 (高级表格1.取数据 (z, 1))
线程精英2.加入任务 (z, )

计次循环尾 ()
计次循环首 (999, b)
如果真 (线程精英2.取任务数 () ＝ 0)
跳出循环 ()

延时 (500)
计次循环尾 ()
处理事件 ()
延时 (1000)
判断循环尾 ()

i支持库列表	支持库注释
RSCProject	(未知支持库)
eGrid	高级表格支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RSCProject<br /> .支持库 eGrid<br /> .支持库 spec<br /> <br /> .子程序 查询当前持仓收益, 文本型<br /> .参数 行, 整数型<br /> .局部变量 pTime, 文本型<br /> .局部变量 pLibcurl, RSLibcurl<br /> .局部变量 局_提交数据, 文本型<br /> .局部变量 str, 文本型<br /> .局部变量 签名验证, 文本型<br /> .局部变量 ret, 文本型<br /> .局部变量 json, 类_json<br /> .局部变量 token, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 b, 整数型<br /> <br /> <br /> token ＝ 高级表格1.取数据 (行, 5)<br /> <br /> pTime ＝ rsUnixtmStr ()<br /> <br /> 局_提交数据 ＝ “{” ＋ #引号 ＋ “api_version” ＋ #引号 ＋ “:” ＋ #引号 ＋ “V2” ＋ #引号 ＋ “,” ＋ #引号 ＋ “ts” ＋ #引号 ＋ “:” ＋ pTime ＋ “,” ＋ #引号 ＋ “req_lang” ＋ #引号 ＋ “:0,” ＋ #引号 ＋ “req_os” ＋ #引号 ＋ “:3,” ＋ #引号 ＋ “version” ＋ #引号 ＋ “:” ＋ #引号 ＋ “0” ＋ #引号 ＋ “,” ＋ #引号 ＋ “device_id” ＋ #引号 ＋ “:” ＋ #引号 ＋ “chrome-86.0.4240.198” ＋ #引号 ＋ “,” ＋ #引号 ＋ “device” ＋ #引号 ＋ “:” ＋ #引号 ＋ “chrome-86.0.4240.198” ＋ #引号 ＋ “,” ＋ #引号 ＋ “platform_id” ＋ #引号 ＋ “:1,” ＋ #引号 ＋ “system_os” ＋ #引号 ＋ “:” ＋ #引号 ＋ “windows-10” ＋ #引号 ＋ “,” ＋ #引号 ＋ “token” ＋ #引号 ＋ “:” ＋ #引号 ＋ token ＋ #引号 ＋ “}”<br /> <br /> 签名验证 ＝ 加密 (局_提交数据)<br /> <br /> 局_提交数据 ＝ 子文本替换 (局_提交数据 ＋ “123456789”, “}123456789”, “”, , , 真) ＋ “,” ＋ #引号 ＋ “sig” ＋ #引号 ＋ “:” ＋ #引号 ＋ 签名验证 ＋ #引号 ＋ “}”<br /> 调试输出 (局_提交数据)<br /> <br /> <br /> pLibcurl.Open (“POST”, “https://api.pandafe.pro/v1/order/hold”)<br /> pLibcurl.SetRequestHeader (“Referer”, “https://www.pandafe.io/”)<br /> pLibcurl.SetRequestHeader (“Content-Type”, “application/json;charset=UTF-8”)<br /> pLibcurl.SetRequestHeader (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36”)<br /> pLibcurl.SetRequestHeader (“token”, token)<br /> <br /> pLibcurl.Send (局_提交数据)<br /> str ＝ pLibcurl.GetResponseTextUtf8ToAnsi ()<br /> json.解析 (str)<br /> <br /> .如果 (json.取通用属性 (“ret”) ＝ “0”)<br /> <br />     .计次循环首 (json.成员数 (“data.list”), i)<br /> <br />         ' 判断 B买入开多 S卖出开空<br />         .如果真 (json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “].side”) ＝ “B”)<br /> <br />             ' 收益USTD<br />             高级表格1.置数据 (行, 10, 1, json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['float_profit']”))<br />             ' 根据收益USTD 正负 更改背景颜色<br />             .如果 (到小数 (json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['float_profit']”)) ＞ 0)<br />                 高级表格1.置单元格背景颜色 (行, 10, , , #绿色)<br />             .否则<br /> <br />                 高级表格1.置单元格背景颜色 (行, 10, , , #红色)<br />             .如果结束<br />             ' 收益率<br />             高级表格1.置数据 (行, 11, 1, json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['profit_ratio']”))<br />             ' 根据收益率 正负 更改背景颜色<br />             .如果 (到小数 (json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['profit_ratio']”)) ＞ 0)<br />                 高级表格1.置单元格背景颜色 (行, 11, , , #绿色)<br />             .否则<br /> <br />                 高级表格1.置单元格背景颜色 (行, 11, , , #红色)<br />             .如果结束<br /> <br /> <br /> <br />         .如果真结束<br />         .如果真 (json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “].side”) ＝ “S”)<br /> <br />             ' 收益USTD<br />             高级表格1.置数据 (行, 18, 1, json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['float_profit']”))<br />             ' 根据收益USTD 正负 更改背景颜色<br />             .如果 (到小数 (json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['float_profit']”)) ＞ 0)<br />                 高级表格1.置单元格背景颜色 (行, 18, , , #绿色)<br />             .否则<br /> <br />                 高级表格1.置单元格背景颜色 (行, 18, , , #红色)<br />             .如果结束<br />             ' 收益率<br />             高级表格1.置数据 (行, 19, 1, json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['profit_ratio']”))<br />             ' 根据收益率 正负 更改背景颜色<br />             .如果 (到小数 (json.取通用属性 (“data.list[” ＋ 到文本 (i － 1) ＋ “]['profit_ratio']”)) ＞ 0)<br />                 高级表格1.置单元格背景颜色 (行, 19, , , #绿色)<br />             .否则<br /> <br />                 高级表格1.置单元格背景颜色 (行, 19, , , #红色)<br />             .如果结束<br /> <br /> <br /> <br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> <br /> <br /> <br /> <br /> .否则<br /> <br />     高级表格1.置数据 (行, 8, 1, json.取通用属性 (“msg”))<br />     高级表格1.置数据 (行, 16, 1, json.取通用属性 (“msg”))<br /> .如果结束<br /> <br /> <br /> <br /> 返回 (str)<br /> <br /> .版本 2<br /> <br /> .子程序 _选择框_自动刷新收益_被单击<br /> <br /> .如果真 (选择框_自动刷新收益.选中 ＝ 真)<br />     加入日志 (“自动刷新收益开启”, “”, 0)<br />     线程精英3.创建 (&自动刷新收益, 1)<br />     线程精英3.加入任务 ()<br /> <br /> <br /> .如果真结束<br /> .如果真 (选择框_自动刷新收益.选中 ＝ 假)<br />     加入日志 (“自动刷新收益关闭”, “”, 0)<br />     线程精英2.销毁 ()<br />     线程精英3.销毁 ()<br /> <br /> .如果真结束<br /> <br /> .版本 2<br /> .支持库 eGrid<br /> <br /> .子程序 自动刷新收益<br /> .局部变量 z, 整数型<br /> .局部变量 b, 整数型<br /> <br /> 线程精英2.创建 (&查询当前持仓收益, 到整数 (编辑框_线程.内容))<br /> <br /> .判断循环首 (真)<br /> <br />     .计次循环首 (高级表格1.行数 － 1, z)<br /> <br />         .如果真 (高级表格1.取数据 (z, 1))<br />             线程精英2.加入任务 (z, )<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     .计次循环首 (999, b)<br /> <br />         .如果真 (线程精英2.取任务数 () ＝ 0)<br />             跳出循环 ()<br /> <br />         .如果真结束<br /> <br />         延时 (500)<br />     .计次循环尾 ()<br />     处理事件 ()<br />     延时 (1000)<br /> .判断循环尾 ()

jingyi11023995

A、尽量减少组件操作，可以改用数组，比如第一行：token ＝ 高级表格1.取数据 (行, 5)
用数组来记录token，不比用表格好吗？
B、涉及到组件时加许可证，或者采用线程安全的组件。

鹏书

操作组件的时候要用线程许可证

七彩色工作室

置数据和置背景颜色加上许可证吧。

up1234f4

nikezhi 发表于 2021-11-20 17:59
操作组件的时候要用线程许可证

有没有案例

鹏书

.版本 2

.局部变量 线程许可证, 线程许可证

线程许可证 ＝ 线程_创建许可证 ()

线程_进入许可区 (线程许可证)

线程_退出许可区 (线程许可证)

就这3句命令

但不是我这样连这写。需要放到适合地方

1182410163

循环里加个程序 延时

rfx315

线程里不要操作窗口组件，早晚崩溃

fff1122

多线程大忌是操作控件，每次操作控件都要进入许可区

Dhs过客

  

变量名	类 型	静态	数组	备 注
线程许可证	线程许可证

线程许可证 ＝ 线程_创建许可证 ()
线程_进入许可区 (线程许可证)
线程_退出许可区 (线程许可证)

.版本 2<br /> <br /> .局部变量 线程许可证, 线程许可证<br /> <br /> 线程许可证 ＝ 线程_创建许可证 ()<br /> <br /> 线程_进入许可区 (线程许可证)<br /> <br /> 线程_退出许可区 (线程许可证)

把这几句命令中加到你对应的位置  例如操作高级表格的时候 进入许可 操作完 退出许可  调用这个程序的时候 或者启动的时候 创建许可证  就减少崩溃了 ，但是还是介意你写调用别把组件操作加到线程里面，这样容易崩溃。