有没有大佬来修一下BUG

sksksz

实现一个带精确超时时间的网页访问
问题是主线程销毁内存后 子线程写内存就会崩溃

  

子程序名	返回值类型	公开	备 注
网页_访问_对象s	字节集
参数名	类 型	参考	可空	数组	备 注
访问网址	文本型				完整的网页地址
访问方式	整数型				0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
提交信息	文本型				POST专用自动UTF8编码
超时时间	整数型				默认为5000毫秒

变量名	类 型	静态	数组	备 注
网页数据	字节集
指针文本	文本型
线程句柄	整数型
数据指针	整数型
数据长度	整数型
等待结果	逻辑型
强制结束	逻辑型

数据指针 ＝ 申请内存 (1024 × 1024 × 2, 真)
超时时间 ＝ 选择 (是否为空 (超时时间) 或 超时时间 ＝ 0, 5000, 超时时间)
如果真 (数据指针 ≥ 1)
指针文本 ＝ 到文本 (数据指针)
指针文本 ＝ 指针文本 ＋ “#” ＋ 到文本 (取变量数据地址 (访问网址))
指针文本 ＝ 指针文本 ＋ “#” ＋ 到文本 (取变量数据地址 (访问方式))
指针文本 ＝ 指针文本 ＋ “#” ＋ 到文本 (取变量数据地址 (提交信息))
如果真 (启动线程 (&网页_访问_对象内部, 取变量数据地址 (指针文本), 线程句柄))
等待结果 ＝ 线程_等待 (线程句柄, 超时时间)
如果真 (等待结果)
数据长度 ＝ 取字节集数据 (指针到字节集 (数据指针, 4), #整数型, 1)
如果真 (数据长度 ≥ 1)
网页数据 ＝ 指针到字节集 (数据指针 ＋ 4, 数据长度)




如果真 (数据指针 ≥ 1)
释放内存 (数据指针)

返回 (网页数据)

子程序名	返回值类型	公开	备 注
网页_访问_对象内部
参数名	类 型	参考	可空	数组	备 注
指针	整数型

变量名	类 型	静态	数组	备 注
指针文本	文本型
指针数组	文本型		0
访问网址	文本型
访问方式	整数型			0=GET 1=POST
提交信息	文本型
网页数据	字节集
数据指针	整数型
数据长度	整数型

指针文本 ＝ 指针到文本 (指针)
指针数组 ＝ 分割文本 (指针文本, “#”, )
如果真 (取数组成员数 (指针数组) ≥ 4)
数据指针 ＝ 到整数 (指针数组 [1])
访问网址 ＝ 指针到文本 (到整数 (指针数组 [2]))
访问方式 ＝ 指针到整数 (到整数 (指针数组 [3]))
提交信息 ＝ 指针到文本 (到整数 (指针数组 [4]))
网页数据 ＝ 网页_访问_对象 (访问网址, 访问方式, 提交信息)
数据长度 ＝ 取字节集长度 (网页数据)
如果真 (数据长度 ≥ 1 且 数据指针 ≥ 1)
如果真 (指针_是否有效 (数据指针))
写到内存 (到字节集 (数据长度) ＋ 网页数据, 数据指针, )

i支持库列表	支持库注释
spec	特殊功能支持库
EThread	多线程支持库

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .子程序 网页_访问_对象s, 字节集, 公开<br /> .参数 访问网址, 文本型, , 完整的网页地址<br /> .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT<br /> .参数 提交信息, 文本型, 可空, POST专用自动UTF8编码<br /> .参数 超时时间, 整数型, 可空, 默认为5000毫秒<br /> .局部变量 网页数据, 字节集<br /> .局部变量 指针文本, 文本型<br /> .局部变量 线程句柄, 整数型<br /> .局部变量 数据指针, 整数型<br /> .局部变量 数据长度, 整数型<br /> .局部变量 等待结果, 逻辑型<br /> .局部变量 强制结束, 逻辑型<br /> <br /> 数据指针 ＝ 申请内存 (1024 × 1024 × 2, 真)<br /> 超时时间 ＝ 选择 (是否为空 (超时时间) 或 超时时间 ＝ 0, 5000, 超时时间)<br /> .如果真 (数据指针 ≥ 1)<br />     指针文本 ＝ 到文本 (数据指针)<br />     指针文本 ＝ 指针文本 ＋ “#” ＋ 到文本 (取变量数据地址 (访问网址))<br />     指针文本 ＝ 指针文本 ＋ “#” ＋ 到文本 (取变量数据地址 (访问方式))<br />     指针文本 ＝ 指针文本 ＋ “#” ＋ 到文本 (取变量数据地址 (提交信息))<br /> <br />     .如果真 (启动线程 (&网页_访问_对象内部, 取变量数据地址 (指针文本), 线程句柄))<br />         等待结果 ＝ 线程_等待 (线程句柄, 超时时间)<br />         .如果真 (等待结果)<br />             数据长度 ＝ 取字节集数据 (指针到字节集 (数据指针, 4), #整数型, 1)<br />             .如果真 (数据长度 ≥ 1)<br />                 网页数据 ＝ 指针到字节集 (数据指针 ＋ 4, 数据长度)<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (数据指针 ≥ 1)<br />     释放内存 (数据指针)<br /> .如果真结束<br /> <br /> 返回 (网页数据)<br /> <br /> .子程序 网页_访问_对象内部<br /> .参数 指针, 整数型<br /> .局部变量 指针文本, 文本型<br /> .局部变量 指针数组, 文本型, , "0"<br /> .局部变量 访问网址, 文本型<br /> .局部变量 访问方式, 整数型, , , 0=GET 1=POST <br /> .局部变量 提交信息, 文本型<br /> .局部变量 网页数据, 字节集<br /> .局部变量 数据指针, 整数型<br /> .局部变量 数据长度, 整数型<br /> <br /> 指针文本 ＝ 指针到文本 (指针)<br /> 指针数组 ＝ 分割文本 (指针文本, “#”, )<br /> .如果真 (取数组成员数 (指针数组) ≥ 4)<br />     数据指针 ＝ 到整数 (指针数组 [1])<br />     访问网址 ＝ 指针到文本 (到整数 (指针数组 [2]))<br />     访问方式 ＝ 指针到整数 (到整数 (指针数组 [3]))<br />     提交信息 ＝ 指针到文本 (到整数 (指针数组 [4]))<br />     网页数据 ＝ 网页_访问_对象 (访问网址, 访问方式, 提交信息)<br />     数据长度 ＝ 取字节集长度 (网页数据)<br />     .如果真 (数据长度 ≥ 1 且 数据指针 ≥ 1)<br />         .如果真 (指针_是否有效 (数据指针))<br />             写到内存 (到字节集 (数据长度) ＋ 网页数据, 数据指针, )<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .如果真结束

列子.e (943.97 KB, 下载次数: 1)

2025-6-15 14:51 上传

点击文件名下载附件

华武

用事件通知，在写内存前先通知一下主线程，主线程就跳出超时判断去判断别的。我一开始也想过你的这种写内存，害怕出现你的这种情况，改成了数据到达后不写主线程申请的内存，写请求槽，写完后事件通知一下主线程去取

补充内容 (2025-6-16 11:20):
看了你的例子，超时不想等了退出前直接把子线程掐了不行么？掐了再释放内存。不想掐就创建一个事件，把事件ID一并写到数据指针中传给子线程