#include <GDIPlus.au3>

Global $sImagefile = @ScriptDir & '\test.jpg'
Global $sNewFile = @ScriptDir & '\test_new.jpg'

_GDIPlus_Startup()
Global $hImage = _GDIPlus_BitmapCreateFromFile($sImagefile)

; Bild als JPG speichern mit Uebername der EXIF-Daten, 90% Qualitaet, Breite und Hoehe jeweils 25% und keine Drehung
_GDIPlus_ImageSaveAsJPG($hImage, $sNewFile, True, 90, 0.25, 0.25, 0)

_GDIPlus_BitmapDispose($hImage)
_GDIPlus_Shutdown()

If FileExists($sNewFile) Then ShellExecute($sNewFile)
Exit

#cs
	$iRotate = Type of rotation and flip:
	0 - No rotation and no flipping (A 180-degree rotation, a horizontal flip and then a vertical flip)
	1 - A 90-degree rotation without flipping (A 270-degree rotation, a horizontal flip and then a vertical flip)
	2 - A 180-degree rotation without flipping (No rotation, a horizontal flip followed by a vertical flip)
	3 - A 270-degree rotation without flipping (A 90-degree rotation, a horizontal flip and then a vertical flip)
	4 - No rotation and a horizontal flip (A 180-degree rotation followed by a vertical flip)
	5 - A 90-degree rotation followed by a horizontal flip (A 270-degree rotation followed by a vertical flip)
	6 - A 180-degree rotation followed by a horizontal flip (No rotation and a vertical flip)
	7 - A 270-degree rotation followed by a horizontal flip (A 90-degree rotation followed by a vertical flip)
#ce
Func _GDIPlus_ImageSaveAsJPG($hImage, $sSaveFile, $bEXIF = True, $iQuality = 90, $fScaleW = 1.0, $fScaleH = 1.0, $iRotate = 0)
	Local $hScaledBitmap, $sCLSID, $tData, $tParams, $bRet, $iError = 0
	$hScaledBitmap = _GDIPlus_ImageScale($hImage, $fScaleW, $fScaleH) ; das Bild skalieren (neue Bitmap wird erstellt)
	If $iRotate Then _GDIPlus_ImageRotateFlip($hScaledBitmap, $iRotate) ; die neue Bitmap drehen bzw. spiegeln (wenn gewuenscht)
	If $bEXIF Then ; die EXIF-Daten in die neue Bitmap kopieren (wenn gewuenscht)
		_GDIPlus_ImageCopyPropertyItems($hImage, $hScaledBitmap)
		If @error Then Return SetError(@error, @extended, False)
	EndIf
	$sCLSID = _GDIPlus_EncodersGetCLSID('JPG')
	$tParams = _GDIPlus_ParamInit(1)
	$tData = DllStructCreate('int Quality') ; Struktur fuer die JPG-Qualitaet erstellen
	DllStructSetData($tData, 'Quality', $iQuality) ; JPG-Qualitaet entsprechend setzen (von 0 = schlechteste bis 100 = beste)
	_GDIPlus_ParamAdd($tParams, $GDIP_EPGQUALITY, 1, $GDIP_EPTLONG, DllStructGetPtr($tData, 'Quality'))
	$bRet = _GDIPlus_ImageSaveToFileEx($hScaledBitmap, $sSaveFile, $sCLSID, $tParams)
	If @error Then $iError = 4
	_GDIPlus_BitmapDispose($hScaledBitmap)
	$tData = 0
	Return SetError($iError, 0, $bRet)
EndFunc   ;==>_GDIPlus_ImageSaveAsJPG

Func _GDIPlus_ImageCopyPropertyItems(ByRef $hSourceImage, ByRef $hDestImage)
	Local Const $tagGDIPPROPERTYITEM = 'uint id;uint length;ushort type;ptr value;'
	Local $aRes, $iSize, $iCount, $tBuffer, $pBuffer, $tGDIPPROPERTYITEM
	$aRes = DllCall($__g_hGDIPDll, 'uint', 'GdipGetPropertySize', 'hwnd', $hSourceImage, 'uint*', 0, 'uint*', 0)
	If @error Then Return SetError(1, @extended, False)
	$iSize = $aRes[2] ; $aRes[2] = Total size in bytes
	$iCount = $aRes[3] ; $aRes[3] = Number of property items
	$tBuffer = DllStructCreate('byte[' & $iSize & ']')
	$pBuffer = DllStructGetPtr($tBuffer)
	$aRes = DllCall($__g_hGDIPDll, 'uint', 'GdipGetAllPropertyItems', 'hwnd', $hSourceImage, 'uint', $iSize, 'uint', $iCount, 'ptr', $pBuffer)
	If @error Then Return SetError(2, @extended, False)
	For $i = 0 To $iCount - 1
		$tGDIPPROPERTYITEM = DllStructCreate($tagGDIPPROPERTYITEM, $pBuffer)
		$aRes = DllCall($__g_hGDIPDll, 'uint', 'GdipSetPropertyItem', 'hwnd', $hDestImage, 'ptr', $pBuffer)
		If @error Then Return SetError(3, @extended, False)
		$pBuffer += DllStructGetSize($tGDIPPROPERTYITEM)
		$tGDIPPROPERTYITEM = 0
	Next
	$tBuffer = 0
	Return True
EndFunc   ;==>_GDIPlus_ImageCopyPropertyItems