🎨BMP压缩

smss

1. BMP压缩 --By smss 更新:https://pecmd.net/thread-1397.htm
   
2. 完全无损压缩(准确的说法是重新编码)后约为原图片文件大小的1/3，用以减小体积提高加载速度
   
3. 用法：BMP.exe <输入BMP文件> <输出BMP文件>
   
4. 示例：BMP.exe LG.bmp LG_8bit.bmp

复制代码

wn168cn@163.com

支持分享

guong

瞧一下

ootdyao

感谢分享

a66

优化版 BMP 无损压缩脚本，保存为 BMP.cmd 即可用

1. @echo off
   
2. chcp 65001 >nul
   
3. title BMP无损压缩工具 --By smss 优化版
   
4. 
   
5. :: 检查参数
   
6. if "%~2"=="" (
   
7.     echo.
   
8.     echo  BMP无损压缩 -- 重新编码压缩，体积约为原文件1/3，完全无损
   
9.     echo.
   
10.     echo  用法：BMP.bat 输入BMP文件 输出BMP文件
    
11.     echo.
    
12.     echo  示例：BMP.bat LG.bmp LG_8bit.bmp
    
13.     echo.
    
14.     pause >nul
    
15.     exit
    
16. )
    
17. 
    
18. :: 检查输入文件是否存在
    
19. if not exist "%~1" (
    
20.     echo 错误：未找到输入文件 "%~1"
    
21.     pause >nul
    
22.     exit
    
23. )
    
24. 
    
25. echo 正在无损压缩：%~1
    
26. echo 输出文件：%~2
    
27. 
    
28. :: ==============================================
    
29. :: 核心：无损重编码为 8bit 索引色 BMP（体积缩小 60%-70%）
    
30. :: ==============================================
    
31. powershell -Command "$bmp = [System.Drawing.Bitmap]::FromFile('%~1'); $opt = [System.Drawing.Imaging.ImageCodecInfo]::GetImageEncoders() | Where-Object {$_.FormatDescription -eq 'Bitmap'}; $par = [System.Drawing.Imaging.EncoderParameters]::new(); $par.Param[0] = [System.Drawing.Imaging.EncoderParameter]::new([System.Drawing.Imaging.Encoder]::ColorDepth, 8); $bmp.Save('%~2', $opt, $par); $bmp.Dispose();"
    
32. 
    
33. echo 压缩完成！
    
34. echo 原文件：%~z1 字节
    
35. if exist "%~2" echo 新文件：%~z2 字节
    
36. 
    
37. echo.
    
38. pause >nul
    

复制代码

it323

感谢分享！