#include <Array.au3>
#include '_GDIPlus_ImageGetPropertyItems.au3'

Global $sImagefile = @ScriptDir & '\Hintergrund-01-3170803.jpg'
;~ Global $sImagefile = @ScriptDir & '\test.jpg'

Global $hImage = _GDIPlus_BitmapCreateFromFile($sImagefile)

Global $sExif = _GDIPlus_ImageGetPropertyItems($hImage, 1)
If @error Then Exit MsgBox(16, 'Abbruch', 'Fehler-Nr.: ' & @error)
Global $aExif = _StringSplit2D($sExif, @CR, '|')
_ArrayDisplay($aExif, 'Exifdaten')

_GDIPlus_BitmapDispose($hImage)
Exit

; _StringSplit2D dient nur dazu aus dem String ein
; 2D-Array zu machen, fuer die Anzeige mit _ArrayDisplay
Func _StringSplit2D($sData, $sRowDel, $sColDel)
	Local $aRows = StringSplit($sData, $sRowDel, 3)
	Local $aCol = StringSplit($aRows[0], $sColDel, 3)
	Local $aOut[UBound($aRows)][UBound($aCol)], $aTmp
	For $iRow = 0 To UBound($aRows) - 1
		$aTmp = StringSplit($aRows[$iRow], $sColDel, 3)
		For $iCol = 0 To UBound($aCol) - 1
			$aOut[$iRow][$iCol] = $aTmp[$iCol]
		Next
	Next
	Return $aOut
EndFunc   ;==>_StringSplit2D