2 Bilder zu einem machen

1. offizieller Beitrag

    Kann man, wenn man 2 Bilder hat, diese in einer einzigen Bilddatei vereinen? also das ich dann ein, von den Maßen, doppelt so großes Bild habe.

    Und wenn es geht.. wie geht es?^^

    • Offizieller Beitrag

    Moment...mal in meinem Archiv kramen...ah, da:

    Spoiler anzeigen
    [autoit]


    #include <GDIPlus.au3>

    [/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_Startup()

    [/autoit] [autoit][/autoit] [autoit]

    $hSource1 = _GDIPlus_ImageLoadFromFile(@WindowsDir & "\web\wallpaper\Tulpen.jpg")
    $hSource2 = _GDIPlus_ImageLoadFromFile(@WindowsDir & "\web\wallpaper\Mondkrater.jpg")
    $iX1 = _GDIPlus_ImageGetWidth($hSource1)
    $iY1 = _GDIPlus_ImageGetHeight($hSource1)
    $iX2 = _GDIPlus_ImageGetWidth($hSource2)
    $iY2 = _GDIPlus_ImageGetHeight($hSource2)

    [/autoit] [autoit][/autoit] [autoit]

    If $iY1 < $iY2 Then $iY1 = $iY2

    [/autoit] [autoit][/autoit] [autoit]

    $hGui = GUICreate("GDI+", $iX1 + $iX2, $iY1)
    $hPic = GUICtrlCreatePic('', 0,0, $iX1 + $iX2, $iY1)
    $hWnd = WinGetHandle($hGui)
    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
    $hDestination = _GDIPlus_BitmapCreateFromGraphics($iX1 + $iX2, $iY1, $hGraphic)
    $hGraphic1 = _GDIPlus_ImageGetGraphicsContext($hDestination)
    _GDIPlus_GraphicsDrawImage($hGraphic1, $hSource1, 0, 0)
    _GDIPlus_GraphicsDrawImage($hGraphic1, $hSource2, $iX1, 0)

    [/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_ImageSaveToFile($hDestination, @ScriptDir & "\Test.jpg")
    GUICtrlSetImage($hPic, @ScriptDir & "\Test.jpg")
    Do
    Until GUIGetMsg() = -3

    [/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_Shutdown()

    [/autoit]

    Ist nicht von mir, sondern hier aus dem Forum (wenn ich mich recht erinnere von progandy).