Ich versuche den Bereich eines Bildes in einer neuen Datei zu speichern und ich glaube es fehlt auch nicht mehr viel aber momentan ist das Resultat immer nur ein komplett schwarzes Bild, ich füge ein Bild zum testen mit bei.
Kann mir da jemand helfen?
Code
_GetImageArea(@ScriptDir & "\source.jpg", 15, 108, 145, 176, @ScriptDir & "\result.jpg")
Exit
Func _GetImageArea($fImage, $X1, $Y1, $X2, $Y2, $nImage)
Local $iW = $X2 - $X1, $iH = $Y2 - $Y1
If $iW > 0 And $iH > 0 And FileExists($fImage) Then
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile($fImage)
$hGUI = GUICreate("", $iW, $iH)
GUISetState(); just for debugging
$hGfx = _GDIPlus_GraphicsCreateFromHWND($hGUI)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($iW, $iH, $hGfx)
_GDIPlus_GraphicsDrawImageRectRect($hGfx, $hImage, $X1, $Y1, $iW, $iH, 0, 0, $iW, $iH)
Sleep(5000); just for debugging
_GDIPlus_ImageSaveToFile($hBitmap, $nImage)
_GDIPlus_GraphicsDispose($hGfx)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
EndIf
EndFunc
Alles anzeigen