Beiträge von UEZ

[autoit]

#include <Array.au3>

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

$array = _AscToDua('AutoIt')
$a3bit = StringRegExp($array[0][0], ".{3}", 3)
_ArrayDisplay($a3bit)

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

Func _AscToDua($sString)
Local $asAsc = StringToASCIIArray($sString)
Local $aiDua[UBound($asAsc) + 1][8]
Local $iA, $iB, $bin

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

For $iA = 0 To UBound($asAsc) - 1
For $iB = UBound($aiDua, 2) - 1 To 0 Step - 1
$aiDua[$iA + 1][$iB] = Int(BitAND($asAsc[$iA], BitShift(1, $iB * -1)) <> 0)
$bin &= $aiDua[$iA + 1][$iB]
Next
Next
$aiDua[0][0] = $bin
Return $aiDua
EndFunc

[/autoit]

[autoit]

#include <GDIPlus.au3>
$sFile = FileOpenDialog("Bitte ein Bild selektieren", "", "Bilder (*.jpg;*.bmp;*.png)", 3)
If @error Then Exit
_GDIPlus_Startup()
$hBitmap = _GDIPlus_BitmapCreateFromFile($sFile)
$iWidth = _GDIPlus_ImageGetWidth($hBitmap)
$iHeight = _GDIPlus_ImageGetHeight($hBitmap)
$aResult = DllCall($ghGDIPDll, "uint", "GdipCreateBitmapFromScan0", "int", $iWidth, "int", $iHeight, "int", 0, "int", $GDIP_PXF08INDEXED, "ptr", 0, "int*", 0)
$hBmp8bit = $aResult[6]
$hCtxt = _GDIPlus_ImageGetGraphicsContext($hBmp8bit)
_GDIPlus_GraphicsDrawImageRect($hCtxt, $hBitmap, 0, 0, $iWidth, $iHeight)
_GDIPlus_GraphicsDispose($hCtxt)
_GDIPlus_BitmapDispose($hBitmap)
$sOutputFile = @ScriptDir & "\Test_8bit.png"
_GDIPlus_ImageSaveToFile($hBmp8bit, $sOutputFile)
_GDIPlus_BitmapDispose($hBmp8bit)
_GDIPlus_Shutdown()
ShellExecute($sOutputFile)

[/autoit]

[autoit]

#include <ScreenCapture.au3>

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

If @OSBuild < 6000 Then Exit MsgBox(16, "Error", "GDI+ v1.1 needed -> Vista+ OS!", 10)

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

Global Const $GDIP_PXF32CMYK = 0x0000200F
Global Const $GDIP_PXFMAX = 0x00000010

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

Global Enum $DitherTypeNone = 0, $DitherTypeSolid, $DitherTypeOrdered4x4, $DitherTypeOrdered8x8, $DitherTypeOrdered16x16, $DitherTypeOrdered91x91, $DitherTypeSpiral4x4, $DitherTypeSpiral8x8, $DitherTypeDualSpiral4x4, $DitherTypeDualSpiral8x8, $DitherTypeErrorDiffusion
Global Enum $PaletteTypeCustom = 0, $PaletteTypeOptimal, $PaletteTypeFixedBW, $PaletteTypeFixedHalftone8, $PaletteTypeFixedHalftone27, $PaletteTypeFixedHalftone64, $PaletteTypeFixedHalftone125, $PaletteTypeFixedHalftone216, $PaletteTypeFixedHalftone252, $PaletteTypeFixedHalftone256

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

_GDIPlus_Startup()
$iW = 300
$iH = 300
$hHBitmap = _ScreenCapture_Capture("", 0, 0, $iW, $iH) ;24 bit screen capture
$hBitmap_screen = _GDIPlus_BitmapCreateFromHBITMAP($hHBitmap) ;convert bitmap format

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

$iColorCount = 1024
$DitherType = $DitherTypeDualSpiral8x8
$PaletteType = $PaletteTypeFixedHalftone256
$PixelFormat = $GDIP_PXF08INDEXED

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

$tPalette = DllStructCreate("uint Flags; uint Count; uint Entries[" & $iColorCount & "];")
DllStructSetData($tPalette, "Flags", $PaletteType)
DllStructSetData($tPalette, "Count", $iColorCount)

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

ConsoleWrite("> Init Palette: " & _GDIPlus_InitializePalette($tPalette, $PaletteType, 0, True, 0) & @CRLF)
ConsoleWrite("! Error: " & @error & " Extended: " & @extended & @CRLF)

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

ConsoleWrite("> Convert: " & _GDIPlus_BitmapConvertFormat($hBitmap_screen, $PixelFormat, $DitherType, $PaletteType, $tPalette, 0) & @CRLF)
ConsoleWrite("! Error: " & @error & " Extended: " & @extended & @CRLF)

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

_GDIPlus_ImageSaveToFile($hBitmap_screen, @ScriptDir & "\Test.png")
_WinAPI_DeleteObject($hHBitmap)
_GDIPlus_BitmapDispose($hBitmap_screen)
_GDIPlus_Shutdown()
ShellExecute(@ScriptDir & "\Test.png")
Exit

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

Func _GDIPlus_BitmapConvertFormat($hBitmap, $iPixelFormat, $iDitherType, $iPaletteType, $tPalette, $falphaThresholdPercent = 0) ;http://msdn.microsoft.com/en-us/library/…6(v=VS.85).aspx
Local $aResult = DllCall($ghGDIPDll, "bool", "GdipBitmapConvertFormat", "handle", $hBitmap, "long", $iPixelFormat, "long", $iDitherType, "long", $iPaletteType, "struct*", $tPalette, "float", $falphaThresholdPercent)
If @error Then Return SetError(@error, @extended, -1)
Return $aResult[0]
EndFunc ;==>_GDIPlus_BitmapConvertFormat

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

Func _GDIPlus_InitializePalette($tPalette, $iPaletteType, $iOptimalColors = 0, $bUseTransparentColor = True, $hBitmap = 0) ;http://msdn.microsoft.com/en-us/library/…9(v=vs.85).aspx
Local $aResult = DllCall($ghGDIPDll, "bool", "GdipInitializePalette", "struct*", $tPalette, "long", $iPaletteType, "int", $iOptimalColors, "bool", $bUseTransparentColor, "handle", $hBitmap)
If @error Then Return SetError(@error, @extended, -1)
Return $aResult[0]
EndFunc ;==>_GDIPlus_InitializePalette

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

#cs
http://msdn.microsoft.com/en-us/library/…6(v=vs.85).aspx
VOID Example_ConvertFormat(HDC hdc)
{
Graphics graphics(hdc);
Bitmap myBitmap(L"Photo.jpg");
INT width = myBitmap.GetWidth();
INT height = myBitmap.GetHeight();

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

graphics.DrawImage(&myBitmap, 20, 20, width, height);

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

// PaletteTypeFixedHalftone27 has 36 entries. A ColorPalette structure has
// room for one entry, so space is allocated for an additional 35 entries.
ColorPalette* pal = (ColorPalette*)malloc(sizeof(ColorPalette) + 35*sizeof(ARGB));
pal->Count = 36;
pal->Flags = 0;

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

Bitmap::InitializePalette(pal, PaletteTypeFixedHalftone27, 0, TRUE, NULL);

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

myBitmap.ConvertFormat(
PixelFormat8bppIndexed,
DitherTypeOrdered8x8,
PaletteTypeFixedHalftone27,
pal,
0);

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

graphics.DrawImage(&myBitmap, width + 40, 20, width, height);

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

free(pal);
}
#ce

[/autoit]

[autoit]

#include <WindowsConstants.au3>
#include <GDIPlus.au3>
Opt("MustDeclareVars", 1)

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

_GDIPlus_Startup()
Global Const $STM_SETIMAGE = 0x0172

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

Global $hGUI, $Msg, $Button, $Icon, $hIcon, $iPic, $hPic, $hGraphics, $Index = 0, $iBGColor = 0xF0F0F0
Global $hIcon300x300 = _WinAPI_ShellExtractIcon("C:\Windows\system32\mobsync.exe", $Index, 300, 300)
Global $hHBitmap256x256 = _WinAPI_GetFileIcon("C:\Windows\system32\mobsync.exe", $Index, 256, 256, $iBGColor)
Global $hBitmapIcon256x256 = _GDIPlus_BitmapCreateFromHBITMAP($hHBitmap256x256)
Global $hBitmapIcon300x300 = _GDIPlus_BitmapCreateFromScan0(300, 300)
Global $hContext = _GDIPlus_ImageGetGraphicsContext($hBitmapIcon300x300)
_GDIPlus_GraphicsSetInterpolationMode($hContext, 7)
_GDIPlus_GraphicsDrawImageRect($hContext, $hBitmapIcon256x256, 0, 0, 300, 300)
_GDIPlus_GraphicsDispose($hContext)

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

$hGUI = GUICreate("MyGUI", 610, 300)
GUISetBkColor($iBGColor)
$Icon = GUICtrlCreateIcon("", 0, 0, 0, 300, 300)
$hIcon = GUICtrlGetHandle(-1)
$iPic = GUICtrlCreatePic("", 310,0, 300, 300)
$hPic = GUICtrlGetHandle(-1)
GUISetState()
$hGraphics = _GDIPlus_GraphicsCreateFromHWND($hPic)
_GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmapIcon300x300, 0, 0, 300, 300)
_WinAPI_DestroyIcon(_SendMessage($hIcon, $STM_SETIMAGE, 1, $hIcon300x300))

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

While 1
$Msg = GUIGetMsg()
Switch $Msg
Case -3
_GDIPlus_BitmapDispose($hBitmapIcon256x256)
_GDIPlus_BitmapDispose($hBitmapIcon300x300)
_WinAPI_DestroyIcon($hIcon300x300)
_WinAPI_DeleteObject($hHBitmap256x256)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_Shutdown()
ExitLoop
EndSwitch
WEnd

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

Func _WinAPI_GetFileIcon($sFile, $iIndex = 0, $iW = 18, $iH = 18, $iColor = -1)
Local $aRet, $hIcon, $hHBitmap
Local $hDC, $hBackDC, $hBackSv

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

$aRet = DllCall("shell32.dll", "int", "SHExtractIconsW", "wstr", $sFile, "int", $iIndex, "int", $iW, "int", $iH, "ptr*", 0, "ptr*", 0, "int", 1, "int", 0)
If @error Then Return SetError(6, @extended, 0)
$hIcon = $aRet[5]

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

$hDC = _WinAPI_GetDC(0)
$hBackDC = _WinAPI_CreateCompatibleDC($hDC)
If $iColor = -1 Then $iColor = _WinAPI_GetSysColor($COLOR_MENU)
$hHBitmap = _WinAPI_CreateSolidBitmap(0, $iColor, $iW, $iH)
$hBackSv = _WinAPI_SelectObject($hBackDC, $hHBitmap)
_WinAPI_DrawIconEx($hBackDC, 0, 0, $hIcon, $iW, $iH)
_WinAPI_DestroyIcon($hIcon)

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

_WinAPI_SelectObject($hBackDC, $hBackSv)
_WinAPI_ReleaseDC(0, $hDC)
_WinAPI_DeleteDC($hBackDC)
Return $hHBitmap
EndFunc ;==>_GUICtrlMenu_CreateBitmap

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

; #FUNCTION# ====================================================================================================================
; Name...........: _WinAPI_ShellExtractIcon
; Description....: Extracts the icon with the specified dimension from the specified file.
; Syntax.........: _WinAPI_ShellExtractIcon ( $sIcon, $iIndex, $iWidth, $iHeight )
; Parameters.....: $sIcon - Path and name of the file from which the icon are to be extracted.
; $iIndex - The zero-based index of the icon to extract. If this value is a negative number, the function extracts
; the icon whose resource identifier is equal to the absolute value of $iIndex.
; $iWidth - Horizontal icon size wanted.
; $iHeight - Vertical icon size wanted.
; Return values..: Success - Handle to the extracted icon.
; Failure - 0 and sets the @error flag to non-zero.
; Author.........: Yashied
; Modified.......:
; Remarks........: If the icon with the specified dimension is not found in the file, it will choose the nearest appropriate icon
; and change to the specified dimension.
;
; When you are finished using the icon, destroy it using the _WinAPI_DestroyIcon() function.
; Related........:
; Link...........: @@MsdnLink@@ SHExtractIcons
; Example........: Yes
; ===============================================================================================================================
Func _WinAPI_ShellExtractIcon($sIcon, $iIndex, $iWidth, $iHeight)
Local $Ret = DllCall("shell32.dll", "int", "SHExtractIconsW", "wstr", $sIcon, "int", $iIndex, "int", $iWidth, "int", $iHeight, "ptr*", 0, "ptr*", 0, "int", 1, "int", 0)
If (@error) Or (Not $Ret[0]) Or (Not $Ret[5]) Then
Return SetError(1, 0, 0)
EndIf
Return $Ret[5]
EndFunc ;==>_WinAPI_ShellExtractIcon

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

; #FUNCTION# ====================================================================================================================
; Name...........: _GDIPlus_BitmapCreateFromScan0
; Description ...: Creates a Bitmap object based on an array of bytes along with size and format information
; Syntax.........: _GDIPlus_BitmapCreateFromScan0($iWidth, $iHeight[, $iStride = 0[, $iPixelFormat = 0x0026200A[, $pScan0 = 0]]])
; Parameters ....: $iWidth - The bitmap width, in pixels
; $iHeight - The bitmap height, in pixels
; $iStride - Integer that specifies the byte offset between the beginning of one scan line and the next. This
; +is usually (but not necessarily) the number of bytes in the pixel format (for example, 2 for 16 bits per pixel)
; +multiplied by the width of the bitmap. The value passed to this parameter must be a multiple of four
; $iPixelFormat - Specifies the format of the pixel data. Can be one of the following:
; |$GDIP_PXF01INDEXED - 1 bpp, indexed
; |$GDIP_PXF04INDEXED - 4 bpp, indexed
; |$GDIP_PXF08INDEXED - 8 bpp, indexed
; |$GDIP_PXF16GRAYSCALE - 16 bpp, grayscale
; |$GDIP_PXF16RGB555 - 16 bpp; 5 bits for each RGB
; |$GDIP_PXF16RGB565 - 16 bpp; 5 bits red, 6 bits green, and 5 bits blue
; |$GDIP_PXF16ARGB1555 - 16 bpp; 1 bit for alpha and 5 bits for each RGB component
; |$GDIP_PXF24RGB - 24 bpp; 8 bits for each RGB
; |$GDIP_PXF32RGB - 32 bpp; 8 bits for each RGB. No alpha.
; |$GDIP_PXF32ARGB - 32 bpp; 8 bits for each RGB and alpha
; |$GDIP_PXF32PARGB - 32 bpp; 8 bits for each RGB and alpha, pre-mulitiplied
; $pScan0 - Pointer to an array of bytes that contains the pixel data. The caller is responsible for
; +allocating and freeing the block of memory pointed to by this parameter.
; Return values .: Success - Returns a handle to a new Bitmap object
; Failure - 0 and either:
; |@error and @extended are set if DllCall failed
; |$GDIP_STATUS contains a non zero value specifying the error code
; Remarks .......: After you are done with the object, call _GDIPlus_ImageDispose to release the object resources
; Related .......: _GDIPlus_ImageDispose
; Link ..........; @@MsdnLink@@ GdipCreateBitmapFromScan0
; Example .......; Yes
; ===============================================================================================================================
Func _GDIPlus_BitmapCreateFromScan0($iWidth, $iHeight, $iStride = 0, $iPixelFormat = $GDIP_PXF32RGB, $pScan0 = 0)
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipCreateBitmapFromScan0", "int", $iWidth, "int", $iHeight, "int", $iStride, "int", $iPixelFormat, "ptr", $pScan0, "int*", 0)
If @error Then Return SetError(@error, @extended, 0)
Return $aResult[6]
EndFunc ;==>_GDIPlus_BitmapCreateFromScan0

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

; #FUNCTION# ====================================================================================================================
; Name...........: _GDIPlus_GraphicsSetInterpolationMode
; Description ...: Sets the interpolation mode of a Graphics object
; Syntax.........: _GDIPlus_GraphicsSetInterpolationMode($hGraphics, $iInterpolationMode)
; Parameters ....: $hGraphics - Pointer to a Graphics object
; $iInterpolationMode - Interpolation mode:
; |0 - Default interpolation mode
; |1 - Low-quality mode
; |2 - High-quality mode
; |3 - Bilinear interpolation. No prefiltering is done
; |4 - Bicubic interpolation. No prefiltering is done
; |5 - Nearest-neighbor interpolation
; |6 - High-quality, bilinear interpolation. Prefiltering is performed to ensure high-quality shrinking
; |7 - High-quality, bicubic interpolation. Prefiltering is performed to ensure high-quality shrinking
; Return values .: Success - True
; Failure - False and either:
; |@error and @extended are set if DllCall failed
; |$GDIP_STATUS contains a non zero value specifying the error code
; Remarks .......: The interpolation mode determines the algorithm that is used when images are scaled or rotated
; Related .......: _GDIPlus_GraphicsGetInterpolationMode
; Link ..........; @@MsdnLink@@ GdipSetInterpolationMode
; Example .......; No
; ===============================================================================================================================
Func _GDIPlus_GraphicsSetInterpolationMode($hGraphics, $iInterpolationMode)
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipSetInterpolationMode", "handle", $hGraphics, "int", $iInterpolationMode)
If @error Then Return SetError(@error, @extended, False)
Return $aResult[0] = 0
EndFunc ;==>_GDIPlus_GraphicsSetInterpolationMode

[/autoit]