[教程] 第十六讲 GDI+图像之图像属性项读取EXIF信息及缩略图读取

2月92015

[教程] 第十六讲 GDI+图像之图像属性项读取EXIF信息及缩略图读取

作者：绿色风发布：2015-2-9 23:27 Monday 分类：阅读：14942次评论：0条

一、缩略图读取
_GDIPlus_ImageGetThumbnail($hImage, $ThumbnailSize, $ThumbnailSize)
返回缩略图像句柄
二、图像属性项

_GDIPlus_ImageGetAllPropertyItems;获取保存在图像对象中的所有属性项(元数据)
_GDIPlus_ImageGetPropertyCount;获取保存在图像对象中的属性(元数据片段)的数量
_GDIPlus_ImageGetPropertyIdList;获取保存在图像对象元数据中的属性标识列表
_GDIPlus_ImageGetPropertyItem;获取图像对象的指定属性项
_GDIPlus_ImageGetPropertyItemSize;获取图像对象指定属性项的字节大小
_GDIPlus_ImageGetPropertySize;获取保存在图像对象中所有数量的属性的字节大小由于属性标识较多，具体可以参看

DC-008-2010_E.pdf
本人正在一项一项翻译，工作量好大
每项属性值的获取方法
大部分属性项有固定的方法，当属性项类型为7时，要根据属性项ID来调整读取方法
_GDIPlus_ImageGetPropertyItem;获取图像对象的指定属性项
或者_GDIPlus_ImageGetAllPropertyItems;获取保存在图像对象中的所有属性项(元数据)
得到的多是四个数据，分别是ID，类型，数据长度，指向值的指针
所以要根据ID或者类型来设置一个数据结构
读取做完后，写入属性项就是一个相反的过程，就比较好弄了
先看一下预览版吧

#include <APIConstants.au3>
#include <WinAPIEx.au3>
#include <GDIPlus.au3>
#include <GDIPlusEx.au3>

Global $sFile, $hImageFile, $hImageThumbnail
Global $ThumbnailSize = 128
$hWnd = GUICreate("第十六讲GDI+图像之图像属性项", 390, 200)
$hPic = GUICtrlCreatePic("", 5, 5, 150, 150)
$hPicWnd = GUICtrlGetHandle(-1)
$iMemo = GUICtrlCreateEdit("", 160, 5, 225, 190)
GUISetState()
_GDIPlus_Startup()
update()

While 1
        $Msg = GUIGetMsg()
        Switch $Msg
                Case -3
                        ExitLoop

                Case $hPic
                        open()

        EndSwitch
WEnd
_GDIPlus_ImageDispose($hImageFile)
_GDIPlus_ImageDispose($hImageThumbnail)
_GDIPlus_Shutdown()
GUIDelete()
Exit

Func update()
        Local $HWND_CX = _WinAPI_GetWindowWidth($hPicWnd)
        Local $HWND_CY = _WinAPI_GetWindowHeight($hPicWnd)
        Local $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hPicWnd)
        Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics($HWND_CX, $HWND_CY, $hGraphics)
        Local $hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
        Local $hBrush = _GDIPlus_BrushCreateSolid(0xFFA0A0A0)
        Local $iImageType = _GDIPlus_ImageGetType($hImageThumbnail)

        If @error = 10 Then
                _GraphicsDrawString($hBackbuffer, "无法生成缩略图", 10, 70, $hBrush, "Arial", 8)
        Else
                _GDIPlus_GraphicsDrawImageRect($hBackbuffer, $hImageThumbnail, 5, 5, $ThumbnailSize, $ThumbnailSize)
                _GraphicsDrawString($hBackbuffer, "点击打开图片", 10, 5 + $ThumbnailSize + 5, $hBrush, "Arial", 8)
        EndIf
        _GDIPlus_BrushDispose($hBrush)
        _GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $HWND_CX, $HWND_CY)
        _GDIPlus_BitmapDispose($hBitmap)
        _GDIPlus_GraphicsDispose($hBackbuffer)
        _GDIPlus_GraphicsDispose($hGraphics)
EndFunc   ;==>update
Func open()
        $sFile = FileOpenDialog("请选择文件", "", "图像 (*.jpg;*.bmp;*.png;*.gif;*.tiff)|所有文件 (*.*)")
        If @error Then
                MsgBox(4096, "", "没有选择文件!")
        Else
                _GDIPlus_ImageDispose($hImageFile)
                _GDIPlus_ImageDispose($hImageThumbnail)
                $hImageFile = _GDIPlus_ImageLoadFromFile($sFile)
                $hImageThumbnail = _GDIPlus_ImageGetThumbnail($hImageFile, $ThumbnailSize, $ThumbnailSize)
                update()
                _GetMetaData()
        EndIf
EndFunc   ;==>open

Func save()
        Local $sCLSID = _GDIPlus_EncodersGetCLSID("JPG")
        _GDIPlus_ImageSaveToFileEx($hImageFile, @DesktopDir & "\15讲图像.jpg", $sCLSID)
        MsgBox(4096, "", "图像保存成功!")
EndFunc   ;==>save

Func _GetMetaData()
        Local $aItems = _GDIPlus_ImageGetAllPropertyItems($hImageFile)
        If $aItems = -1 Then
                MemoWrite("图像没有属性项")
                Return 0
        EndIf
        Local $Struct_String, $string = ""
        For $i = 1 To $aItems[0][0];遍历所有属性项
                Switch $aItems[$i][2];根据属性项类型设置数据结构来读取属性值                    
                        Case 1;$GDIP_EPTBYTE
                                $Struct_String = DllStructCreate("BYTE[" & $aItems[$i][1] & "];", $aItems[$i][3])
                                $string = DllStructGetData($Struct_String, 1)
                        Case 2;$GDIP_EPTASCII
                                $Struct_String = DllStructCreate("CHAR[" & $aItems[$i][1] & "];", $aItems[$i][3])
                                $string = DllStructGetData($Struct_String, 1)
                        Case 3;$GDIP_EPTSHORT
                                $Struct_String = DllStructCreate("USHORT[" & $aItems[$i][1] & "];", $aItems[$i][3])
                                $string = DllStructGetData($Struct_String, 1)
                        Case 4;$GDIP_EPTLONG
                                $Struct_String = DllStructCreate("ULONG[" & $aItems[$i][1] & "];", $aItems[$i][3])
                                $string = DllStructGetData($Struct_String, 1)
                        Case 5;$GDIP_EPTRATIONAL
                                $Struct_String = DllStructCreate("ULONG numberator;ULONG denominator;", $aItems[$i][3])
                                $string = DllStructGetData($Struct_String, "numberator") / DllStructGetData($Struct_String, "denominator")
                        Case 7;$GDIP_EPTUNDEFINED;未定义的要根据ID来决定用哪个方式;这个还要处理，暂且先这样，下次做成UDF再改
                                $Struct_String = DllStructCreate("CHAR[" & $aItems[$i][1] & "];", $aItems[$i][3])
                                $string = DllStructGetData($Struct_String, 1)
                        Case 6;读文件的话是9$GDIP_EPTLONGRANGE
                                $Struct_String = DllStructCreate("LONG[" & Ceiling($aItems[$i][1] / 4) & "];", $aItems[$i][3])
                                $string = DllStructGetData($Struct_String, 1)
                        Case 8;读文件的话是是10$GDIP_EPTRATIONALRANGE
                                $Struct_String = DllStructCreate("LONG numberator;LONG denominator;", $aItems[$i][3])
                                $string = DllStructGetData($Struct_String, "numberator") / DllStructGetData($Struct_String, "denominator")
                EndSwitch
                MemoWrite(tags2string($aItems[$i][0], $string))
                $string = ""
                $Struct_String = 0
        Next
EndFunc   ;==>_GetMetaData

; Write a line to the memo control
Func MemoWrite($sMessage = '')
        GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc   ;==>MemoWrite

;根据属性ID翻译为中文，属性值拆分分析，属性项太多未完成
Func tags2string($TagId, $string, $split = @TAB)
        Switch $TagId
                Case 0x8769
                        Return "特殊ExifPoint" & $split & $string & @CR
                Case 0x8825
                        Return "GPSPoint" & $split & $string & @CR
                Case 0xA005
                        Return "通用ExifPoint" & $split & $string & @CR
                        ;TIFF
                Case 0x100
                        Return "图像宽" & $split & $string & @CR
                Case 0x101
                        Return "图像高" & $split & $string & @CR

                Case 0x102
                        Return "像素字节" & $split & $string & @CR
                Case 0x103
                        Switch $string
                                Case 1
                                        Return "压缩" & $split & "未压缩" & @CR
                                Case 6
                                        Return "压缩" & $split & "JPEG压缩" & @CR
                                Case Else
                                        Return "压缩" & $split & "保留" & @CR
                        EndSwitch
                Case 0x106
                        Switch $string
                                Case 2
                                        Return "JPEG压缩" & $split & "RGB" & @CR
                                Case 6
                                        Return "JPEG压缩" & $split & "YCbCr" & @CR
                                Case Else
                                        Return "JPEG压缩" & $split & "保留" & @CR
                        EndSwitch
                Case 0x112;没来的及进行分类
                        Return "图像排列" & $split & $string & @CR
                Case 0x115
                        Return "每点采样率" & $split & $string & @CR
                Case 0x11C
                Case 0x212, 0x213
                Case 0x11A
                        Return "X分辨率" & $split & $string & @CR
                Case 0x11B
                        Return "Y分辨率" & $split & $string & @CR
                Case 0x128
                        Switch $string
                                Case 2
                                        Return "分辨率单位" & $split & "英吋" & @CR
                                Case 3
                                        Return "分辨率单位" & $split & "厘米" & @CR
                                Case Else
                                        Return "分辨率单位" & $split & "保留" & @CR
                        EndSwitch
                        ;特殊exif
                Case 0x9000
                        Return "Exif版本" & $split & $string & @CR
                Case 0xA000
                        Return "闪光版本" & $split & $string & @CR
                Case 0xA001
                        Switch $string
                                Case 1
                                        Return "色彩空间" & $split & "sRGB" & @CR
                                Case 3
                                        Return "色彩空间" & $split & "未校准" & @CR
                                Case Else
                                        Return "色彩空间" & $split & "保留" & @CR
                        EndSwitch
                Case 0xA500
                        Return "Gamma值" & $split & $string & @CR
                Case 0xA002
                        Return "X点数" & $split & $string & @CR
                Case 0xA003
                        Return "Y点数" & $split & $string & @CR
                Case 0x9101
                        Return "compressed" & $split & $string & @CR
                Case 0x9102
                        Return "像素每单位" & $split & $string & @CR
                Case 0x9003
                        Return "建立时间" & $split & $string & @CR
                Case 0x9004
                        Return "保存时间" & $split & $string & @CR
                Case 0x9290, 0x9291, 0x9292
                Case 0x829A
                        Return "曝光时间" & $split & $string & @CR
                Case 0x829D
                        Return "焦距比数" & $split & $string & @CR
                Case 0x8822
                        Switch $string
                                Case 0
                                        Return "曝光程序" & $split & "未定义" & @CR
                                Case 1
                                        Return "曝光程序" & $split & "手动" & @CR
                                Case 2
                                        Return "曝光程序" & $split & "自动" & @CR
                                Case 3
                                        Return "曝光程序" & $split & "光圈预定" & @CR
                                Case 4
                                        Return "曝光程序" & $split & "快门预定" & @CR
                                Case 5
                                        Return "曝光程序" & $split & "景物" & @CR
                                Case 6
                                        Return "曝光程序" & $split & "运动" & @CR
                                Case 7
                                        Return "曝光程序" & $split & "肖像" & @CR
                                Case 8
                                        Return "曝光程序" & $split & "风景" & @CR
                                Case Else
                                        Return "曝光程序" & $split & "保留" & @CR
                        EndSwitch
                Case 0x8824
                        Return "感光度" & $split & $string & @CR
                Case 0x8827
                        Return "感光度ISO" & $split & $string & @CR
                        ;未完成中，谁来帮我完成，工作量好大
        EndSwitch

        Return Hex($TagId, 4) & $split & $string & @CR
EndFunc   ;==>tags2string

Func _GraphicsDrawString($hGraphics, $sString, $nX, $nY, $hBrush = 0, $sFont = "Arial", $nSize = 10, $iFormat = 0)
        Local $hFormat = _GDIPlus_StringFormatCreate($iFormat)
        Local $hFamily = _GDIPlus_FontFamilyCreate($sFont)
        Local $hFont = _GDIPlus_FontCreate($hFamily, $nSize)
        Local $tLayout = _GDIPlus_RectFCreate($nX, $nY, 0, 0)
        Local $aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, $sString, $hFont, $tLayout, $hFormat)
        __GDIPlus_BrushDefCreate($hBrush)
        Local $aResult = _GDIPlus_GraphicsDrawStringEx($hGraphics, $sString, $hFont, $aInfo[0], $hFormat, $hBrush)
        Local $iError = @error
        __GDIPlus_BrushDefDispose()
        _GDIPlus_FontDispose($hFont)
        _GDIPlus_FontFamilyDispose($hFamily)
        _GDIPlus_StringFormatDispose($hFormat)
        Return SetError($iError, 0, $aResult)
EndFunc   ;==>_GraphicsDrawString```

     


     


		 

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