AU3图片转字符串,抖音热

9月12018

作者：绿色风发布：2018-9-1 15:02 Saturday 分类：源码示例阅读：4678次评论：0条

#include &lt;gdiplus.au3&gt;

$sFile = '333.jpg' ;需要处理的图片

_GDIPlus_Startup()
        FileWrite($sFile&amp;".txt",_PicToText($sFile))
_GDIPlus_Shutdown()

;返回 转换后的字符串
Func _PicToText($sFile);by:绿色风   [url]www.jianyiit.com[/url]
        Local $hImage = _GDIPlus_ImageLoadFromFile($sFile) ;載入圖片
        Local $iW = _GDIPlus_ImageGetWidth($hImage) ;获取图片 宽度
        Local $iH = _GDIPlus_ImageGetHeight($hImage) ;获取图片 高度
        Local $str
        For $i = 0 To $iH - 1   ;处理速度有点慢  没想到别的方法
                For $j = 0 To $iW - 1
                        $iColor = _GDIPlus_BitmapGetPixel($hImage, $j, $i) ;获取像素点的颜色
                        $iR = BitShift(BitAND($iColor, 0x00FF0000), 16) ;用来去红颜色
                        $iG = BitShift(BitAND($iColor, 0x0000FF00), 8) ;用来去绿颜色
                        $iB = BitAND($iColor, 0x000000FF) ;;用来去蓝颜色
                        $str &amp;= _PixToText(Int(($iR + $iG + $iB) / 3)) ;像素点转字符
                Next
                $str &amp;= @CRLF
        Next
        _GDIPlus_ImageDispose($hImage)
        Return $str ;返回字符串
EndFunc   ;==&gt;_PicToText

;根据像素值生成相应字符
Func _PixToText($pix)
        If $pix &lt;= 30 Then
                Return '8' ;
        ElseIf $pix &gt; 30 and $pix &lt;= 60 Then
                Return '&amp;' ;
        ElseIf $pix &gt; 60 and $pix &lt;= 120 Then
                Return '$' ;
        ElseIf $pix &gt; 120 and $pix &lt;= 150 Then
                Return '*' ;
        ElseIf $pix &gt; 150 and $pix &lt;= 180 Then
                Return 'o' ;
        ElseIf $pix &gt; 180 and $pix &lt;= 210 Then
                Return '!' ;
        ElseIf $pix &gt; 210 and $pix &lt;= 240 Then
                Return ';' ;
        Else
                Return '.' ;
        EndIf
EndFunc   ;==&gt;_PixToText

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