I Cant Save the Diff Image with _GDIPlus_ImageSaveToFile

[DemAY]

 

Hello everybody, I try to save a diff between 2 BMP but that does not work. The display on the screen works. Can say with one what I'm doing wrong.

expandcollapse popup

#include <GDIPlus.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <ScreenCapture.au3>
#include <WinAPIHObj.au3>

Global $hGUI = GUICreate("GDI+ ", 1920, 1109)

_GDIPlus_Startup()

$ist = @DesktopDir & "\Schaden_soll.bmp"
$soll = @DesktopDir & "\Schaden_ist.bmp"

_WinAPI_BitmapsGetDiff($soll, $ist, @DesktopDir & "\Diff_SRCAND.png", $SRCAND ) ; Ideale Anzeige !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ShellExecute(@DesktopDir & "\Diff_SRCAND.png")

_GDIPlus_Shutdown()


Func _WinAPI_BitmapsGetDiff($sFile1, $sFile2, $sSave, $iROP = $MERGEPAINT) ;coded by UEZ 2014-02-10
    Local Const $hBitmap1 = _GDIPlus_BitmapCreateFromFile($sFile1)
    If @error Then Return SetError(1, 0, 0)
    Local Const $hBitmap2 = _GDIPlus_BitmapCreateFromFile($sFile2)
    If @error Then
        _GDIPlus_BitmapDispose($hBitmap1)
        Return SetError(2, 0, 0)
    EndIf

    Local Const $iW = _GDIPlus_ImageGetWidth($hBitmap1), $iH = _GDIPlus_ImageGetHeight($hBitmap1)
    If _GDIPlus_ImageGetWidth($hBitmap2) <> $iW Or _GDIPlus_ImageGetHeight($hBitmap2) <> $iH Then
        _GDIPlus_BitmapDispose($hBitmap1)
        _GDIPlus_BitmapDispose($hBitmap2)
        Return SetError(3, 0, 0)
    EndIf
    Local Const $hHBitmap1 = _WinAPI_CreateDIB($iW, $iH)
    Local Const $hD1 = _WinAPI_GetWindowDC(0)
    Local Const $hDC_backbuffer1 = _WinAPI_CreateCompatibleDC($hD1)
    Local Const $DC_obj1 = _WinAPI_SelectObject($hDC_backbuffer1, $hHBitmap1)
    Local Const $hGraphic1 = _GDIPlus_GraphicsCreateFromHDC($hDC_backbuffer1)
    _GDIPlus_GraphicsSetInterpolationMode($hGraphic1, 5)
    _GDIPlus_GraphicsDrawImageRect($hGraphic1, $hBitmap1, 0, 0, $iW, $iH)

    Local Const $hHBitmap2 = _WinAPI_CreateDIB($iW, $iH)
    Local Const $hD2 = _WinAPI_GetWindowDC(0)
    Local Const $hDC_backbuffer2 = _WinAPI_CreateCompatibleDC($hD2)
    Local Const $DC_obj2 = _WinAPI_SelectObject($hDC_backbuffer2, $hHBitmap2)
    Local Const $hGraphic2 = _GDIPlus_GraphicsCreateFromHDC($hDC_backbuffer2)
    _GDIPlus_GraphicsSetInterpolationMode($hGraphic2, 5)
    _GDIPlus_GraphicsDrawImageRect($hGraphic2, $hBitmap2, 0, 0, $iW, $iH)

    Local Const $hHBitmap3 = _WinAPI_CreateDIB($iW, $iH)
    Local Const $hD3 = _WinAPI_GetWindowDC(0)
    Local Const $hDC_backbuffer3 = _WinAPI_CreateCompatibleDC($hD3)
    Local Const $DC_obj3 = _WinAPI_SelectObject($hDC_backbuffer3, $hHBitmap3)


    _WinAPI_BitBlt($hDC_backbuffer3, 0, 0, $iW, $iH, $hDC_backbuffer1, 0, 0, $SRCCOPY)
    _WinAPI_BitBlt($hDC_backbuffer3, 0, 0, $iW, $iH, $hDC_backbuffer2, 0, 0, $iROP)

    _GDIPlus_BitmapDispose($hBitmap1)
    _GDIPlus_BitmapDispose($hBitmap2)

    $aFilename = StringSplit($sSave, "\")

    WinSetTitle($hGUI, "", $aFilename[$aFilename[0]])
    GUISetState(@SW_SHOW)


    $hBitmap3 = _GDIPlus_BitmapCreateFromHBITMAP($hHBitmap3)

     $hGraphicx = _GDIPlus_GraphicsCreateFromHWND($hGUI)
     $hGraphics = _GDIPlus_ImageGetGraphicsContext($hBitmap3)
    _GDIPlus_GraphicsDrawImage($hGraphicx, $hBitmap3, 0, 0)
    sleep(5000)

    _GDIPlus_ImageSaveToFile($hBitmap3, $sSave) ;----------------------> funzt net !!!!!!!!!!!!!!!!!!!!!!!!!!!

    _GDIPlus_BitmapDispose($hBitmap3)

    _GDIPlus_GraphicsDispose($hGraphic1)
    _WinAPI_SelectObject($hD1, $DC_obj1)
    _WinAPI_DeleteDC($hDC_backbuffer1)
    _WinAPI_DeleteObject($hHBitmap1)
    _WinAPI_ReleaseDC(0, $hD1)

    _GDIPlus_GraphicsDispose($hGraphic2)
    _WinAPI_SelectObject($hD2, $DC_obj2)
    _WinAPI_DeleteDC($hDC_backbuffer2)
    _WinAPI_DeleteObject($hHBitmap2)
    _WinAPI_ReleaseDC(0, $hD2)

    _WinAPI_SelectObject($hD3, $DC_obj3)
    _WinAPI_DeleteDC($hDC_backbuffer3)
    _WinAPI_DeleteObject($hHBitmap3)
    _WinAPI_ReleaseDC(0, $hD3)
    Return 1
EndFunc

 

[Melba23]

DemAY,

You probably need the WinAPIConv file, but I suggest downloading all 3.

M23

[DemAY]

Melba23 Thx,