BMP32位图片转24位图片—命令行版

7月212021

BMP32位图片转24位图片—命令行版

作者：绿色风发布：2021-7-21 13:07 Wednesday 分类：作品阅读：4132次评论：0条

源码：

#PRE_icon=C:\Windows\System32\SHELL32.dll|-325
#PRE_UseX64=n
#PRE_Res_requestedExecutionLevel=None
#PRE_Add_Constants=y
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
; *** ACNWrapper开始添加 ***
#include &lt;GDIPlusConstants.au3&gt;
; *** ACNWrapper结束添加 ***
#include &lt;GDIPlus.au3&gt;

;如果 传入的参数有，并且 有该文件 ，并且是 bmp 格式
If $cmdline[0] &gt; 0 And FileExists($cmdline[1]) = 1 And StringRight($cmdline[1], 3) = "bmp" Then
    Local $hImage, $CLSID
    _GDIPlus_Startup()
    $hImage = _GDIPlus_ImageLoadFromFile($cmdline[1]) 
    ; Create 24 bit bitmap clone
    $iX = _GDIPlus_ImageGetWidth($hImage)
    $iY = _GDIPlus_ImageGetHeight($hImage)
    ;MsgBox(0,$iX,$iY)

    $hClone = _GDIPlus_BitmapCloneArea($hImage, 0, 0, $iX, $iY, $GDIP_PXF24RGB)
    ;  $CLSID = _GDIPlus_EncodersGetCLSID("BMP")
    _GDIPlus_ImageSaveToFile($hClone, StringLeft($cmdline[1],StringLen($cmdline[1])-4)&amp;"_24.bmp")
    _GDIPlus_Shutdown()
    ConsoleWrite($cmdline[1] &amp; " 处理完成")

;~  MsgBox(0,0,$cmdline[1]&amp;@crlf&amp;StringLen($cmdline[1])-4)&amp;"_24.bmp")
;~  MsgBox(0,0,"ok")
Else
    ConsoleWrite("无效，或无参数")
;~  MsgBox(0,0,"err")
EndIf

命令行版 BMP32to24.rar

本文固定链接: http://www.jianyiit.com/post-385.html