Bereich von Bild in neuer Datei speichern

Tyzer

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

**Moombas**

Schau mal hier: https://www.autoitscript.com/forum/topic/20…kground-screen/

Tyzer

Hm danke aber ich möchte eigentlich kein Screenshot aufnehmen, ich möchte einen bestimmten Bereich einer existierenden Bilddatei in einer neuen Bilddatei speichern.

Tyzer

Hat sich erledigt, hab es doch noch geschafft

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)
        $hClone = _GDIPlus_BitmapCloneArea($hImage, $X1, $Y1, $iW, $iH, $GDIP_PXF24RGB)
        _GDIPlus_ImageSaveToFile($hClone, $nImage)
        _GDIPlus_Shutdown()
    EndIf
EndFunc

Alles anzeigen