保存ＢＭＰ 缩减体积

6961605

　.版本 2.支持库 internet

.子程序 _拍照_被单击
.局部变量 filename, 文本型



    filename ＝ 取运行目录 () ＋ “\” ＋ 添加产品窗口.编辑框1.内容 ＋ “.bmp”
    SaveBmp (标签1.取窗口句柄 (), filename)

    UpImg (filename, 添加产品窗口.编辑框1.内容)

    添加产品窗口.图片框2.图片 ＝ HTTP读文件 (“http://” ＋ _启动窗口.读IP.内容 ＋ “/upload/” ＋ 到文本 (添加产品窗口.编辑框1.内容) ＋ “.bmp”)
    销毁 ()


原来用模糊的摄像头　，拍照后保存为９００kb 的图片 ，没有问题 ，现在换了高清的摄像头后 ，拍照下来可以保存到本地。但是不能保存到  HTTP读文件 (“http://” ＋ _启动窗口.读IP.内容 ＋ “/upload/” ＋ 到文本 (添加产品窗口.编辑框1.内容) ＋ “.bmp”) 服务器里，。保存到本地的体积为5,9MB 应该是因为体积太大了所以保存不了服务器 。怎么能让他拍照保存的BMP 自动缩小为几百KB 的？　谢谢

6961605

.版本 2  .子程序 UpImg, 文本型 .参数 ImgFile, 文本型 .参数 Name, 文本型 .局部变量 url, 文本型 .局部变量 post, 文本型 .局部变量 bin, 字节集 .局部变量 filename, 文本型 .局部变量 header, 文本型 .局部变量 f, 文本型 .局部变量 type, 文本型 .局部变量 html, 文本型   url ＝ “http://” ＋ _启动窗口.读IP.内容 ＋ “/testupload.php?password=123456” 置随机数种子 ()  f ＝ “----WebKitFormBoundaryUPIMG” ＋ 到文本 (取随机数 (100000, 9999999)) filename ＝ 取文本右边 (ImgFile, 取文本长度 (ImgFile) － 倒找文本 (ImgFile, “\”, , 假)) type ＝ 取文本右边 (ImgFile, 取文本长度 (ImgFile) － 倒找文本 (ImgFile, “.”, , 假)) post ＝ “--” ＋ f ＋ #换行符 ＋ “Content-Disposition: form-data; name=” ＋ #引号 ＋ “img” ＋ #引号 ＋ “; filename=” ＋ #引号 ＋ 编码_gb2312到utf8 (Name) ＋ “.” ＋ type ＋ #引号 ＋ #换行符 post ＝ post ＋ “Content-Type: image/” ＋ type ＋ #换行符 ＋ #换行符 bin ＝ 到字节集 (post) ＋ 读入文件 (ImgFile) ＋ 到字节集 (#换行符 ＋ “--” ＋ f ＋ “--”) header ＝ “Content-Type: multipart/form-data; boundary=” ＋ f ＋ #换行符 html ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (url, 1, , , , header, , , , bin))) .如果真 (取文本左边 (html, 3) ＝ “200”)     返回 (取文本右边 (html, 取文本长度 (html) － 5)) .如果真结束 返回 (html)

baitso

filename ＝ 取运行目录 () ＋ “\” ＋ 添加产品窗口.编辑框1.内容 ＋ “.bmp”
    SaveBmp (标签1.取窗口句柄 (), filename)

   data=读入文件(filename)
data2= 图片_转换1(data,1 ,60 ) '压缩质量自己从1-100设置
写到文件(filename,data2)


    UpImg (filename, 添加产品窗口.编辑框1.内容)

    添加产品窗口.图片框2.图片 ＝ HTTP读文件 (“http://” ＋ _启动窗口.读IP.内容 ＋ “/upload/” ＋ 到文本 (添加产品窗口.编辑框1.内容) ＋ “.bmp”)
    销毁 ()

maozaiba

https://bbs.125.la/forum.php?mod ... 14689338&extra=
转成JPG 设置更小的质量也能减少文件大小

Lc_Rose

bmp图像没办法压缩体积，如果你不是必须用bmp的话可以用png它支持无损压缩，也可以用jpg它支持有损压缩（比png压缩的更小），如果是必须用bmp的话可以先转jpg或png压缩后再转回bmp