Assign parameters to GIF

[JScript]

Hello everybody!

I have a question regarding the parameters of a GIF.

I know the code below sets the quality parameter to JPG, but how to proceed in case of a GIF? Configure quality, colors?

 

$tParams = _GDIPlus_ParamInit(1)
$tQlt = DllStructCreate("int Quality")
DllStructSetData($tQlt, "Quality", $iQuality)
_GDIPlus_ParamAdd($tParams, $GDIP_EPGQUALITY, 1, $GDIP_EPTLONG, DllStructGetPtr($tQlt))

Thanks in advance,

JS

Edited May 28, 2014 by JScript

[JScript]

Just to remind...

JS

[Melba23]

JScript,

You have been here long enough to know that we frown on bumping your own threads within 24 hours.

M23

[UEZ]

That's not possibe to set the quality of a GIF image this way. As you might know GIF images are always 8-bit (256 color) images. That means you have to create a 8-bit image.

Currently I'm writing a GIFAnim UDF and this is a function from the UDF:

; #FUNCTION# ====================================================================================================================
; Name ..........: _GDIPlus_BitmapConvertTo8Bit
; Description ...: Converts a bitmap to a 8-bit image
; Syntax ........: _GDIPlus_BitmapConvertTo8Bit(Byref $hBitmap[, $iDitherType = $GDIP_DitherTypeDualSpiral8x8[, $iPaletteType = $GDIP_PaletteTypeFixedHalftone252 [,
;                  $iColorCount = 253]]])
; Parameters ....: $hBitmap              - A handle to an image / bitmap object
;                  $iDitherType          - [optional] An integer value. Default is $GDIP_DitherTypeDualSpiral8x8. -> http://msdn.microsoft.com/en-us/library/ms534106(v=vs.85).aspx
;                  $iPaletteType         - [optional] An integer value. Default is $GDIP_PaletteTypeFixedHalftone252 . -> http://msdn.microsoft.com/en-us/library/ms534159(v=vs.85).aspx
;                  $iColorCount          - [optional] An integer value. Default is 253.
;                  $bUseTransparentColor - [optional]  A binary value. Default is True.
; Return values .: True or False on errors
; Author ........: UEZ
; Modified ......:
; Remarks .......: Vista or a higher operating system is required
; Related .......: _GDIPlus_PaletteInitialize _GDIPlus_BitmapConvertFormat _GDIPlus_ImageLoadFromFile _GDIPlus_BitmapCreateFromScan0
; Link ..........: http://msdn.microsoft.com/en-us/library/windows/desktop/ms534106(v=vs.85).aspx)
; ===============================================================================================================================
Func _GDIPlus_BitmapConvertTo8Bit(ByRef $hBitmap, $iDitherType = $GDIP_DitherTypeDualSpiral8x8, $iPaletteType = $GDIP_PaletteTypeFixedHalftone252, $iColorCount = 253, $bUseTransparentColor = True)
    Local $tPalette = _GDIPlus_PaletteInitialize($iColorCount, $iPaletteType, 0, $bUseTransparentColor, $hBitmap)
    Local $iRet = _GDIPlus_BitmapConvertFormat($hBitmap, $GDIP_PXF08INDEXED, $iDitherType, $iPaletteType, $tPalette)
    Return SetError(@error, @extended, $iRet)
EndFunc   ;==>_GDIPlus_BitmapConvertTo8Bit

Br,

UEZ

[JScript]

@Melba23

Yes, you're right, sorry for that!

@UEZ

Thanks buddy, I'll do some tests with your UDF.

Edit:

The following post solved my problem:

Thank you very much!

JS

[UEZ]

The stuff from the link you posted is now integrated to the GDIPlus.au3 UDF.

Br,

UEZ

[JScript]

@UEZ

Yes I know, but unfortunately I have to stick with the version 3.3.8.1 because it has no problem with TCPRecv function and other things ...

JS