hp-socket实现WS_流式解压源码分享

hp-socket实现WS_流式解压源码分享

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 WS_流式解压, 字节集, 公开
   
5. .参数 压缩数据, 字节集, 参考
   
6. .局部变量 pZlib, 整数型
   
7. .局部变量 输出缓冲区, 字节集
   
8. .局部变量 结果码, 整数型
   
9. .局部变量 预估大小, 整数型
   
10. .局部变量 补尾数据, 字节集
    
11. .局部变量 已写入长度, 整数型
    
12. 
    
13. .如果真 (取字节集长度 (压缩数据) ＝ 0)
    
14.     返回 ({  })
    
15. .如果真结束
    
16. 预估大小 ＝ 取字节集长度 (压缩数据) × 10
    
17. 输出缓冲区 ＝ 取空白字节集 (预估大小)
    
18. ' 1. 完整初始化（堆分配 + zlib内部状态创建）
    
19. pZlib ＝ 申请内存_ (56)
    
20. _inflateInit2 (pZlib, -15, _zlibVersion (), 56)
    
21. ' 2. 预分配缓冲区一次性解压
    
22. ' 填写 z_stream 结构体字段
    
23. _Set (pZlib, 0, 取变量数据地址 (压缩数据))  ' strm.next_in
    
24. _Set (pZlib, 4, 取字节集长度 (压缩数据))  ' strm.avail_in
    
25. _Set (pZlib, 12, 取变量数据地址 (输出缓冲区))  ' strm.next_out
    
26. _Set (pZlib, 16, 预估大小)  ' strm.avail_out
    
27. 结果码 ＝ _inflate (pZlib, #Z_FLUSH_SYNC_FLUSH)
    
28. ' RFC 7692 标准补尾，刷出全部残留数据
    
29. .如果真 (结果码 ＝ #Z_ERROR_OK)
    
30.     补尾数据 ＝ { 0, 0, 255, 255 }
    
31.     _Set (pZlib, 0, 取变量数据地址 (补尾数据))  ' strm.next_in
    
32.     _Set (pZlib, 4, 4)  ' strm.avail_in
    
33.     结果码 ＝ _inflate (pZlib, #Z_FLUSH_SYNC_FLUSH)
    
34. .如果真结束
    
35. ' 3. 释放资源
    
36. _inflateEnd (pZlib)
    
37. ' 4. 返回结果
    
38. 已写入长度 ＝ 预估大小 － _Get (pZlib, 16)  ' strm.avail_out
    
39. 释放内存_ (pZlib)
    
40. .如果真 (已写入长度 ＞ 0)
    
41.     返回 (取字节集左边 (输出缓冲区, 已写入长度))
    
42. .如果真结束
    
43. 返回 ({  })
    
44. .版本 2
    
45. 
    
46. .DLL命令 _inflateInit2, 整数型, "zlib1.dll", "@inflateInit2_"
    
47.     .参数 strm, 整数型
    
48.     .参数 windowBits, 整数型
    
49.     .参数 version, 文本型
    
50.     .参数 stream_size, 整数型
    
51. 
    
52. .DLL命令 _zlibVersion, 文本型, "zlib1.dll", "@zlibVersion"
    
53. 
    
54. .DLL命令 _inflate, 整数型, "zlib1.dll", "@inflate"
    
55.     .参数 strm, 整数型
    
56.     .参数 flush, 整数型
    
57. 
    
58. .DLL命令 _inflateEnd, 整数型, "zlib1.dll", "@inflateEnd"
    
59.     .参数 strm, 整数型
    
60. .版本 2
    
61. 
    
62. .常量 Z_FLUSH_SYNC_FLUSH, "2"
    
63. .常量 Z_ERROR_OK, "0"

复制代码

游客，如果您要查看本帖隐藏内容请回复

豆腐干士大夫

必须支持。。。。。。。