Adds a frame to a file or stream specified in a previous call to the _GDIPlus_ImageSaveToFileEx or _GDIPlus_ImageSaveToStream functions
#include <GDIPlus.au3>
_GDIPlus_ImageSaveAddImage ( $hImage, $hImageNew, $tParams )
| $hImage | A pointer to an image object. |
| $hImageNew | A pointer to an image object that holds the frame to be added. |
| $tParams | A _GDIPlus_ParamInit structure. |
| Success: | True. |
| Failure: | False and sets the @error flag to non-zero, @extended may contain GPSTATUS error code ($GPIP_ERR* see GPIPlusConstants.au3). |
None.
_GDIPlus_ImageSaveAdd, _GDIPlus_ParamInit, _GDIPlus_ParamAdd, _GDIPlus_ImageSaveToFileEx, _GDIPlus_ImageSaveToStream
Suche nach GdipSaveAddImage in der MSDN Bibliothek.
#include <GDIPlus.au3>
CreateMultiFrameTIFF(@MyDocumentsDir & "\GDIPlus_MultiFrame.tif")
ShellExecute(@MyDocumentsDir & "\GDIPlus_MultiFrame.tif")
Func CreateMultiFrameTIFF($sFile, $iPages = 4)
_GDIPlus_Startup()
Local $sImgCLSID = _GDIPlus_EncodersGetCLSID("tif") ;create CLSID for a TIFF image file type
;Create main image
Local $hImage = _GDIPlus_BitmapCreateFromScan0(400, 300)
Local $hContext = _GDIPlus_ImageGetGraphicsContext($hImage)
_GDIPlus_GraphicsClear($hContext, 0xFFFFFFFF)
_GDIPlus_GraphicsDrawRect($hContext, 5, 5, 390, 290)
_GDIPlus_GraphicsDrawString($hContext, "MultiFrame TIFF" & @CRLF & "Frame " & 1 & "/" & $iPages, 20, 20, "ARIAL", 32)
_GDIPlus_GraphicsDispose($hContext)
;Save main image (first frame) and add MultiFrame-Param
Local $tParamData = DllStructCreate("int")
Local $pParamData = DllStructGetPtr($tParamData)
DllStructSetData($tParamData, 1, $GDIP_EVTMULTIFRAME)
Local $tParams = _GDIPlus_ParamInit(1)
_GDIPlus_ParamAdd($tParams, $GDIP_EPGSAVEFLAG, 1, $GDIP_EPTLONG, $pParamData)
_GDIPlus_ImageSaveToFileEx($hImage, $sFile, $sImgCLSID, $tParams)
;Set param for additional frames
DllStructSetData($tParamData, 1, $GDIP_EVTFRAMEDIMENSIONPAGE)
$tParams = _GDIPlus_ParamInit(1)
_GDIPlus_ParamAdd($tParams, $GDIP_EPGSAVEFLAG, 1, $GDIP_EPTLONG, $pParamData)
;Create & save next frames
Local $hImage_SubPage
For $i = 2 To $iPages
$hImage_SubPage = _GDIPlus_BitmapCreateFromScan0(400, 300)
$hContext = _GDIPlus_ImageGetGraphicsContext($hImage_SubPage)
_GDIPlus_GraphicsClear($hContext, 0xFFFFFFFF)
_GDIPlus_GraphicsDrawRect($hContext, 5, 5, 390, 290)
_GDIPlus_GraphicsDrawString($hContext, "MultiFrame TIFF" & @CRLF & "Frame " & $i & "/" & $iPages, 20, 20, "ARIAL", 32)
_GDIPlus_GraphicsDispose($hContext)
;add frame to file
_GDIPlus_ImageSaveAddImage($hImage, $hImage_SubPage, $tParams)
;dispose curent frame bitmap
_GDIPlus_BitmapDispose($hImage_SubPage)
Next
;Close the multiframe file.
DllStructSetData($tParamData, 1, $GDIP_EVTFLUSH)
$tParams = _GDIPlus_ParamInit(1)
_GDIPlus_ParamAdd($tParams, $GDIP_EPGSAVEFLAG, 1, $GDIP_EPTLONG, $pParamData)
_GDIPlus_ImageSaveAdd($hImage, $tParams)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
EndFunc ;==>CreateMultiFrameTIFF