_GDIPlus question

[torels]

Hi there

I have 2 images in a gdiplus graphic and I want to save the whole graphic to a bmp image (or eventually jpg) but using

$Img = _GDIPlus_BitmapCreateFromGraphics(19,19,$hGraphics)
_GDIPlus_ImageSaveToFile($Img,"C:\img.bmp")

all I get is a Black 19x19 bitmap

How can I rsolve the problem ?

thanks in advance

[torels]

nothing ?

[Monamo]

Hi there

I have 2 images in a gdiplus graphic and I want to save the whole graphic to a bmp image (or eventually jpg) but using

$Img = _GDIPlus_BitmapCreateFromGraphics(19,19,$hGraphics)
_GDIPlus_ImageSaveToFile($Img,"C:\img.bmp")

all I get is a Black 19x19 bitmap

How can I rsolve the problem ?

thanks in advance

Do you have a larger code sample to work from (specifically, the source for the handle $hGraphics)?

[torels]

expandcollapse popup

;torels - emoticon.mixer
#include <GDIPlus.au3>
Dim $nt = 0, $nb = 0, $it, $ib
#Region ### START Koda GUI section ### Form=
$Gui = GUICreate("Emoticon Maker - torels_", 146, 134, 193, 125)
GUISetBkColor(0xFFFFFF)
$tf = GUICtrlCreateButton(">", 88, 16, 17, 17, 0)
$tb = GUICtrlCreateButton("<", 40, 16, 17, 17, 0)
$bf = GUICtrlCreateButton(">", 88, 32, 17, 17, 0)
$bb = GUICtrlCreateButton("<", 40, 32, 17, 17, 0)
$Label1 = GUICtrlCreateLabel("Copyright (C) 2008 torels_", 5, 96, 125, 17)
$Label2 = GUICtrlCreateLabel("<http://torels.altervista.org>", 5, 112, 135, 17)
$Save = GUICtrlCreateButton("SaVe EmOtIcOn!", 8, 64, 129, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

_GDIPlus_Startup()
$hGraphics = _GDIPlus_GraphicsCreateFromHWND(HWnd($gui))
$t = _GDIPlus_GraphicsDrawImage($hGraphics,"C:\Documents and Settings\Gabriele ( admin )\Documenti\Immagini\emoticon-creator\0t.jpg",(146/2)-10,16)
$b = _GDIPlus_GraphicsDrawImage($hGraphics,"C:\Documents and Settings\Gabriele ( admin )\Documenti\Immagini\emoticon-creator\0b.jpg",(146/2)-10,26)
While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $tf
            $nt += 1
            If Not FileExists("C:\Documents and Settings\Gabriele ( admin )\Documenti\Immagini\emoticon-creator\" & $nt & "t.jpg") then $nt -= 1
            $it = _GDIPlus_ImageLoadFromFile("C:\Documents and Settings\Gabriele ( admin )\Documenti\Immagini\emoticon-creator\" & $nt & "t.jpg")
            _GDIPlus_ImageDispose($t)
            global $t = _GDIPlus_GraphicsDrawImage($hGraphics,$it,(146/2)-13,16)
        Case $tb
            $nt -= 1
            If Not FileExists("C:\Documents and Settings\Gabriele ( admin )\Documenti\Immagini\emoticon-creator\" & $nt & "t.jpg") then $nt += 1
            $it = _GDIPlus_ImageLoadFromFile("C:\Documents and Settings\Gabriele ( admin )\Documenti\Immagini\emoticon-creator\" & $nt & "t.jpg")
            _GDIPlus_ImageDispose($t)
            global $t = _GDIPlus_GraphicsDrawImage($hGraphics,$it,(146/2)-13,16)
        Case $bf
            $nb += 1
            If Not FileExists("C:\Documents and Settings\Gabriele ( admin )\Documenti\Immagini\emoticon-creator\" & $nb & "b.jpg") then $nb -= 1
            _GDIPlus_ImageDispose($b)
            $ib = _GDIPlus_ImageLoadFromFile("C:\Documents and Settings\Gabriele ( admin )\Documenti\Immagini\emoticon-creator\" & $nb & "b.jpg")
            $b = _GDIPlus_GraphicsDrawImage($hGraphics,$ib,(146/2)-13,29)
        Case $bb
            $nb -= 1
            If Not FileExists("C:\Documents and Settings\Gabriele ( admin )\Documenti\Immagini\emoticon-creator\" & $nb & "t.jpg") then $nb += 1
            _GDIPlus_ImageDispose($b)
            $ib = _GDIPlus_ImageLoadFromFile("C:\Documents and Settings\Gabriele ( admin )\Documenti\Immagini\emoticon-creator\" & $nb & "b.jpg")
            $b = _GDIPlus_GraphicsDrawImage($hGraphics,$ib,(146/2)-13,29)
        Case $Save
            $gImg = _GDIPlus_BitmapCreateFromGraphics(19,19,$hGraphics)
            _GDIPlus_ImageDispose($t)
            _GDIPlus_ImageDispose($b)
        ;$jpg = _GDIPlus_EncodersGetCLSID("JPG")
            _GDIPlus_ImageSaveToFile($gImg,"C:\img.bmp")
            
EndSwitch
WEnd

this is all the code

[Zedna]

Try this:

Case $Save
            $hBitmap1 = _GDIPlus_BitmapCreateFromGraphics(19,19,$hGraphics)
            $hImage1 = _GDIPlus_BitmapCreateFromHBITMAP ($hBitmap1)
            _GDIPlus_ImageSaveToFile($hImage1, "C:\img.bmp")
;~             _GDIPlus_ImageSaveToFile($hImage1, "C:\img.jpg") ; save as JPG

        ; Clean up resources
        _GDIPlus_ImageDispose ($hImage1)
        _WinAPI_DeleteObject ($hBitmap1)

Edited June 24, 2008 by Zedna