字节集压缩

⑴ 易语言压缩快照

快照()返回的字节集数据就是bmp图片，体积较大，对画质要求不高的话可以转换成jpg。易语言还有压缩数据()解压数据()两个命令

⑵ 易语言图片框内的图片问题

通过图片框大小，取图像局部图片而以，以下代码取之易论坛某位大神的源码，仅供参考

以下为图像取局部代码

.版本 2
.子程序 图像_取局部, 字节集, 公开, 只能是0压缩,并且是8位或8位以上的位图！
.参数 原位图, 字节集
.参数 取出图像左边, 整数型
.参数 取出图像顶边, 整数型
.参数 取出宽度, 整数型
.参数 取出高度, 整数型
.局部变量 图像宽度, 整数型
.局部变量 图像高度, 整数型
.局部变量 图像位数, 整数型
.局部变量 图像压缩, 整数型
.局部变量 新位中逗耐图, 字节集
.局部变量 新位图信息头, BITMAPINFOHEADER
.局部变量 新位图文件头, 文件头信息_
.局部变量 文件长度, 整数型
.局部变量 i, 整数型
.局部变量 颜色点阵偏移量, 整数型
.局部变量 点的大小, 整数型
.局部变量 颜色表, 字节集
.局部变量 总数据偏移, 整数型
.局部变量 新行宽, 整数型
.局部变量 原行宽, 整数型
.局部变量 时间, 整数型
图像宽度 ＝ 取字节集数据 (取字节集中间 (原位图, 19, 4), #整数型, )
图像高度 ＝ 取字节集数据 (取字节集中间 (原位图, 23, 4), #整数型, )
图像位数 ＝ 取字节集数据 (取字节集中间 (原位图, 29, 2), #短整数型, )
图像压缩 ＝ 取字节集数据 (取字节集中间 (原位图, 31, 4), #整数型, )
.如果真 (图像压缩 ≠ 0)
返回 ({ })
.如果真结束
.如果真 (图像位数 ＝ 32)
颜色点阵偏移量 ＝ 54
点的大小 ＝ 4
.如果真结束
.如果真 (图像位数 ＝ 24)
颜色点阵偏移量 ＝ 54
点的大小 ＝ 3
.如果真结束
.如果真 (图像位数 ＝ 16)
颜色点阵偏移量 ＝ 54
点的大小 ＝ 2
.如果真结束
.如果真 (图像位数 ＝ 8)
颜色点阵偏移量 ＝ 1078
点的大小 ＝ 1
颜色表 ＝ 取字节集中间 (原位图, 55, 1024)
.如果真结束
.如果真 (图像位数 ＜ 8)
输出调试文本 (“错误！ 图像位深小于8！”)
返回 ({ })
.如果真结束
.如果真 (取出图像左边 ＋ 取出宽度 ＞ 图像宽度 或 取出图像顶边 ＋ 取出高度 ＞ 图像高度 或 取出图像左边 ＜ 0 或 取出图像顶边 ＜ 0 或 取出宽度 ≤ 0 或 取出高度 ≤ 0)
输出调试文本 (“参数错误！请检查输入的参数！”)
返回 ({ })
.如果真结束
原行宽 ＝ 左移 (右移 (图像宽度 × 图像位数 ＋ 31, 5), 2)
新行宽 ＝ 左移 (右移 (取出宽度 × 图像位数 ＋ 31, 5), 2)
文件长度 ＝ 新行宽 × 取出高度
新位图 ＝ 取空白字节集 (文件长度 ＋ 54 ＋ 取字节集长度 (颜色表))
新位图文件头.文件类型 ＝ 19778
新位图文件头.偏移量 ＝ 颜色点阵偏移量
新位图文件头.结果大小 ＝ 颜色点阵偏移量 ＋ 文件长度
复制内存_复制位指缓图文件头到字节集 (新位图 [1], 新位图文件头, 14)
新位图信息头.biSize ＝ 40
新位图信息头.biWidth ＝ 取出宽度
新位图信息头.biHeight ＝ 取出高度
新位图信息头.biPlanes ＝ 1
新位图信息头.biBitCount ＝ 图像位数
复制内存_复制位图信息头到字节集 (新位图 [15], 新位图信息头, 40)
.如果真 (图像位数 ＝ 8)
复制内存_字节集到字节集 (新位图 [55], 颜色表 [1], 1024)
.如果真结束
总数据偏移 ＝ 原行宽 × (图像高度 － 取出高度 － 取出图像顶边) ＋ 取出图像左边 × 点的大小 ' 总偏移=高偏移+宽偏移
.计次循环首 (取出高度, i)
复制内存_字节集到字节集 (新位图 [(i － 1) × 新行宽 ＋ 颜色点阵偏移量 ＋ 1], 原位图 [颜色点阵偏移量 ＋ 总数据偏移 ＋ (i － 1) × 原行宽 ＋ 1], 新行宽)
处理事件 ()
.计次循环尾 ()
返回 (新位图)

以下为数据类型结构

.版本 2
.数据类型 BITMAPINFOHEADER
.成员 biSize, 整数型
.成员 biWidth, 整数卖春型
.成员 biHeight, 整数型
.成员 biPlanes, 短整数型
.成员 biBitCount, 短整数型
.成员 biCompression, 整数型
.成员 biSizeImage, 整数型
.成员 biXPelsPerMeter, 整数型
.成员 biYPelsPerMeter, 整数型
.成员 biClrUsed, 整数型
.成员 biClrImportant, 整数型
.版本 2
.数据类型 文件头信息_
.成员 文件类型, 短整数型, , , bfType
.成员 结果大小, 整数型, , , bfSize
.成员 保留1, 短整数型, , , bfReserved1保留，必须设置为0
.成员 保留2, 短整数型, , , bfReserved2保留，必须设置为0
.成员 偏移量, , , , bfOffBits从文件头开始到实际的图象数据之间的字节的偏移量

以下为调用API函数

.版本 2
.DLL命令 复制内存_复制位图文件头到字节集, , , "RtlMoveMemory"
.参数 Dest, 字节型, 传址
.参数 Src, 文件头信息_
.参数 len, 整数型
.DLL命令 复制内存_复制位图信息头到字节集, , , "RtlMoveMemory"
.参数 Dest, 字节型, 传址
.参数 Src, BITMAPINFOHEADER
.参数 len, 整数型
.DLL命令 复制内存_字节集到字节集, , , "RtlMoveMemory"
.参数 Dest, 字节型, 传址
.参数 Src, 字节型, 传址
.参数 len, 整数型

⑶ 易语言压缩数据问题，求解

压搭笑巧缩升没之后的数据就变了 当然会是乱码 你要显示的是易语言格式的字节集吧

.版本 2

.子程序 字节集到易格式文本_内知键存, 文本型, , <内存文件版> By 帝皇法老
.参数 字节集, 字节集
.局部变量 文件号, 整数型
.局部变量 结果, 文本型
.局部变量 X, 整数型

文件号 ＝ 打开内存文件 ()
.计次循环首 (取字节集长度 (字节集), X)
写出文本 (文件号, 字节集 [X], “,”)
.计次循环尾 ()
移到文件首 (文件号)
结果 ＝ “{” ＋ 读入文本 (文件号, 取文件长度 (文件号) － 1) ＋ “}”
关闭文件 (文件号)
返回 (结果)

⑷ 易语言 如何把采集到的关键词批量打包成压缩文件 并且把我想要宣传的图片、软件和文档等一起打包进去

这个教程还真的没有
我一般是调用压缩的DLL然后呢选择文件转字节集交个DLL压缩即可

⑸ 易语言快照图片太大,怎么办

快照里面有输出的宽度和高度 可以自己设置的小点

⑹ 关于zlib解压缩问题,应该是zlib压缩的吧,对压缩不是很懂

1.不是gzip格式，0x1f8b，31，139头不对
2.不是zlib格式
0 1 +---+---+
|CMF|FLG| (more-->)
+---+---+

incorrect header check
3.LZ自己检查是不是纯DEFLATE格式的数据吧，格式如下
|BFINAL| BTYPE | 数……据|
 BFINAL：1bit位。
0 - 还有后续子块；
1 - 该子块是最后一块。
 BTYPE：2bit位。
00 - 不压缩；
01 - 静态Huffman编码压缩；
10 - 动态Huffman编码压缩；
11 - 保留。

⑺ 易语言 写出字节集 (文件号, #资源1)这个资源1和资源2怎么写

#资源1 和 #资源旅纤2 是指资源表里你导入的图片或声音资源，但闹镇困是导入这里面的不一定是图片或声音液念，可以是任意数据，调用的时候直接用 #资源名 即可。

⑻ vb怎么压缩/解压数据

winrar有预定义的指令的，比如下面的vb代码把文件压缩： mystr = "C:\Program Files\WinRAR\WinRAR.exe"
Source = "d:\1.txt" '源文件的位置
Target = "d:\" '存放压缩文件的位置
mystr = mystr & " a " & Target & " " & Source
'调用RAR文件压缩
retval = Shell(mystr, vbHide)
MsgBox "文件压缩成功完成!", 64, "提示信息"解压文件也类似，可以去找下winrar的一些说明，它自己有命令行的，调用就行，解压好像是-inul，不太记得了。上面的代码可以进行压缩。