Beiträge von UEZ

**UEZ** · 23. Juli 2022

Und jährlich grüßt das Murmeltier...

Wer Lust und Laune hat mit zu tippen, einfach https://www.kicktipp.de/autoit-bl kostenlos registrieren und lostippen. Die Teilnehmer vom letzten Kicktipp, die bis zum Ende durchgehalten haben, sind wieder automatisch dabei.

Am 29.07.22 um 18:00 Uhr ( 2. Spieltag in Kicktipp) geht's mit den DFB Pokal Spielen los. Bonus Fragen nicht vergessen.

Die WM Katar 2022 Tipprunde werde ich im November separat erstellen!

Was bekommt der Tipp Sieger? Ruhm und Ehre.

Viel Spaß und viel Glück!

**UEZ** · 17. Mai 2022

Meine SciTE Version:

Code

32-bit
Version 4.4.6 
    Mar 16 2021 13:51:55
by Neil Hodgson.
 Updated by Jos

**UEZ** · 16. Mai 2022

Hi BugFix,

ich habe lexer.errorlist.escape.sequences=1 in SciTEUser.properties hinzugefügt und das Skript test_color_out.au3 laufen lassen -> keine Farben in der Console, nur dies:

Code

\27[31mList \27[36mof \27[34;1mcolors\27[35;1m!\27[0m
\27[31mRED\27[0m
\27[31;1mREDBOLD\27[0m
\27[32mGREEN\27[0m
\27[32;1mGREENBOLD\27[0m
\27[33mYELLOW\27[0m
\27[33;1mYELLOWBOLD\27[0m
\27[34mBLUE\27[0m
\27[34;1mBLUEBOLD\27[0m
\27[35mPINK\27[0m
\27[35;1mPINKBOLD\27[0m
\27[36mCYAN\27[0m
\27[36;1mCYANBOLD\27[0m
\27[37mWHITE\27[0m
\27[37;1mWHITEBOLD\27[0m

Alles anzeigen

**UEZ** · 15. Mai 2022

Neue Version -> siehe Beitrag #1:

Advanced Encoding hinzugefügt
WebP Advanced Encoder GUI

Dekodierung von WebP Animationen ist ein bissl komplizierter als ich dachte...

**UEZ** · 1. Mai 2022

Zitat von Bitnugger

Path2DLL... warum nicht als Einzeiler?

AutoIt

Func Path2DLL($sPath2DLL)
    Return $sPath2DLL ? $sPath2DLL : @ScriptDir & (@AutoItX64 ? "\_WebP_x64.dll" : "\_WebP_x86.dll")
EndFunc   ;==>Path2DLL

Danke, hab's geändert.

Es gibt eine neue Version -> siehe Beitrag #1:

WebP_CreateWebPLossySimpleFromBitmap
WebP_CreateWebPLosslessSimpleFromBitmap

hinzugefügt. Man kann jetzt Bilder als WebP speichern (keine Animationen!). "Advanced" Version mit mehr Einstellmöglichkeiten kommt noch...

**UEZ** · 28. April 2022

Ich bin dran die Encoder Funktionen einzubauen. Das Decodieren von WebP Animationen steht auch auf der Liste, nur wird es noch eine Weile dauern, da ich momentan nicht viel Zeit habe.

**UEZ** · 21. April 2022

Kleines Update: das von der DLL zurückgegebene GDI+ Bitmap Handle war korrupt, sodass es immer zum Absturz kam, sobald man damit weiter arbeiten wollte.

**UEZ** · 21. April 2022

Zitat von Andy

UEZ
Klasse Arbeit!!
Hast du die *.h-Files nach Freebasic transferiert und dann mit den *.lib Dateien gelinkt?

Hi Andy,

nur einige Teile von der decode.h. Die *.lib funzen nicht, musste die libwebp_x??.a nehmen. Primär wollte ich einfach die WebP Bilder in Autoit benutzen können und habe mich deshalb nur auf das Wesentliche beschränkt.

Ob sich der Aufwand lohnt alle Funktion in die DLL zu packen, weiß ich noch nicht.

Danke für dein Feedback.

Off-Topic: dieses Jahr waren die Beiträge in der revision echt mau...

**UEZ** · 20. April 2022

Ich habe das Ganze mal in eine UDF mit Beispielen gepackt -> siehe Beitrag #1

**UEZ** · 20. April 2022

Momentan werden nur Bilder decodiert, keine animierten Bilder und kein Encoding in das WebP Format.

Danke für euer Feeback!

funkey: danke für den Link.

**UEZ** · 20. April 2022

Das Thema

Thema

Bilder im webp Format in GUI anzeigen

Moin,

gibt es eine Möglichkeit das webp Bildformat in einer AutoIt-GUI anzeigen zu lassen?
Beispielbilder findet man unter https://developers.google.com/speed/webp/gallery1, z.B.
https://www.gstatic.com/webp/gallery/1.webp

Ich vermute es würde mit einem eingebetteten IE gehen, aber eventuell gibt es ja auch eine einfachere Methode.
Dabei gibt es ja wie bei GIF auch die Möglichkeit animierte webp-Bilder zu erstellen, Beispiel: https://mathiasbynens.be/demo/animated-webp

Ich habe schon ein wenig…

BLinz

15. April 2022

hat mich neugierig gemacht, und deshalb habe ich eine kleine DLL gebastelt, die WebP Bilder in GDI+ / GDI umwandelt, sodass man sie direkt in Autoit benutzen kann.

Das Archiv beinhaltet u.a. die DLLs (x86 / x64), die zum Umwandeln benötigt werden.

UDF:

AutoIt: Webp.au3

;Version 0.3.1 build 2022-06-13 beta
#include-once
#include <GDIPlus.au3>

Enum $WEBP_PRESET_DEFAULT = 0,  _        ; default preset.
          $WEBP_PRESET_PICTURE, _         ; digital picture, like portrait, inner shot
          $WEBP_PRESET_PHOTO,  _         ; outdoor photograph, with natural lighting
          $WEBP_PRESET_DRAWING, _        ; hand or line drawing, with high-contrast details
          $WEBP_PRESET_ICON, _            ; small-sized colorful images
          $WEBP_PRESET_TEXT              ; text-like

; #FUNCTION# ====================================================================================================================
; Name ..........:    WebP_Ver
; Description ...:    Displays the DLL version information in a messagebox window
; Syntax ........:    WebP_Ver([$sPath2DLL = ""])
; Parameters ....:    $sPath2DLL            - [optional] a string value. Default is "". Path to WebP dll if not in script dir
; Return values .:    None
; Author ........:    UEZ
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......:    No
; ===============================================================================================================================
Func WebP_Ver($sPath2DLL = "")
    Local $sDLL = Path2DLL($sPath2DLL)
    If Not FileExists($sDLL) Then Return SetError(1, 0, 0) ;DLL not found
    DllCall($sDLL, "none", "WebP_DLL_Version")
    Return True
EndFunc   ;==>WebP_Ver

; #FUNCTION# ====================================================================================================================
; Name ..........:     WebP_Ver2
; Description ...:     Returns the DLL version information
; Syntax ........:     WebP_Ver([$sPath2DLL = ""])
; Parameters ....:     $sPath2DLL            - [optional] a string value. Default is "". Path to WebP dll if not in script dir
; Return values .:     DLL version
; Author ........:    UEZ
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......:    No
; ===============================================================================================================================
Func WebP_Ver2($sPath2DLL = "")
    Local $sDLL = Path2DLL($sPath2DLL)
    If Not FileExists($sDLL) Then Return SetError(1, 0, 0) ;DLL not found
    Return DllCall($sDLL, "str", "Web_DLL_Version2")[0]
EndFunc   ;==>WebP_Ver

; #FUNCTION# ====================================================================================================================
; Name ..........:    WebP_BitmapGetInfo
; Description ...:    Gets some rudimentary information about the WebP image
; Syntax ........:    WebP_BitmapGetInfo($sFilename[, $sPath2DLL = ""])
; Parameters ....:    $sFilename            - file to load
;                     $sPath2DLL            - [optional] a string value. Default is "". Path to WebP dll if not in script dir
; Return values .:    Struct
; Author ........:    UEZ
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:    https://developers.google.com/speed/webp
; Example .......:    No
; ===============================================================================================================================
Func WebP_BitmapGetInfo($sFilename, $sPath2DLL = "")
    Local $sDLL = Path2DLL($sPath2DLL)
    If Not FileExists($sDLL) Then Return SetError(1, 0, 0) ;DLL not found
    If Not FileExists($sFilename) Then Return SetError(2, 0, 0) ;file not found

    Local $iFileSize = FileGetSize($sFilename), $nBytes
    Local $tBuffer = DllStructCreate("struct;byte bin[" & $iFileSize & "];endstruct")
    Local Const $hFile = _WinAPI_CreateFile($sFilename, 2, 2)
    _WinAPI_ReadFile($hFile, $tBuffer, $iFileSize, $nBytes)
    _WinAPI_CloseHandle($hFile)

    If Int(BinaryMid($tBuffer.bin, 1, 4)) <> 1179011410 Or Int(BinaryMid($tBuffer.bin, 9, 6)) <> 88331643929943 Then Return SetError(3, 0, 0) ;header must contain RIFF and WEBPVP

    Local $tWebPBitstreamFeatures = DllStructCreate("struct;long width; long height; long has_alpha; long has_animation; long format; ulong pad[5];endstruct")
    Local $iReturn = DllCall($sDLL, "long", "WebP_BitmapGetInfo", "struct*", $tBuffer, "uint", $iFileSize, "struct*", $tWebPBitstreamFeatures)
    If $iReturn = 0 Then Return SetError(4, 0, 0)
    Return $tWebPBitstreamFeatures
EndFunc   ;==>WebP_BitmapGetInfo

; #FUNCTION# ====================================================================================================================
; Name ..........:    WebP_BitmapCreateGDIp
; Description ...:    Converts (decodes) a WebP image from disk to a GDI / GDI+ bitmap handle
; Syntax ........:    WebP_BitmasFilename[, $bGDIImage = False[, $sPath2DLL = ""]])
; Parameters ....:    $sFilename                - file to load
;                     $bGDIImage                - [optional] a boolean value. Default is False (GDIPlus bitmap handle). If True then output is GDI bitmap handle
;                     $bCountColors            - [optional] a boolean value. Default is False. If True then the colors will be counted and saved in extended. Use @extended to get color count.
;                     $sPath2DLL                - [optional] a string value. Default is "". Path to WebP dll if not in script dir
; Return values .:    GDI / GDIPlus bitmap handle and color count if $bCountColors = True in extended.
; Author ........:    UEZ
; Modified ......:
; Remarks .......:    Currently only WebP images are supported - no animated WebP images yet!
; Related .......:
; Link ..........:        https://developers.google.com/speed/webp
; Example .......:    No
; ===============================================================================================================================
Func WebP_BitmapCreateGDIp($sFilename, $bGDIImage = False, $bCountColors = False, $sPath2DLL = "")
    Local $sDLL = Path2DLL($sPath2DLL)
    If Not FileExists($sDLL) Then Return SetError(1, 0, 0) ;DLL not found
    If Not FileExists($sFilename) Then Return SetError(2, 0, 0) ;file not found

    Local $iFileSize = FileGetSize($sFilename), $nBytes
    Local $tBuffer = DllStructCreate("byte bin[" & $iFileSize & "]")
    Local Const $hFile = _WinAPI_CreateFile($sFilename, 2, 2)
    _WinAPI_ReadFile($hFile, $tBuffer, $iFileSize, $nBytes)
    _WinAPI_CloseHandle($hFile)

    If Int(BinaryMid($tBuffer.bin, 1, 4)) <> 1179011410 Or Int(BinaryMid($tBuffer.bin, 9, 6)) <> 88331643929943 Then Return SetError(3, 0, 0) ;header must contain RIFF and WEBPVP
    Local $tColors = DllStructCreate("struct;ulong cc;endstruct")
    Local Const $hBitmap = DllCall($sDLL, "ptr", "WebP_BitmapCreateGDIp", "struct*", $tBuffer, "uint", $iFileSize, "boolean", $bGDIImage, "boolean", $bCountColors, "struct*", $tColors)[0]
    If $hBitmap = 0 Then Return SetError(4, 0, 0)

    Return SetExtended($tColors.cc, $hBitmap)
EndFunc   ;==>WebP_BitmapCreateGDIp

; #FUNCTION# ====================================================================================================================
; Name ..........:    WebP_BitmapCreateGDIpFromMem
; Description ...:    Converts (decodes) a WebP image from memory to a GDI / GDI+ bitmap handle
; Syntax ........:    WebP_BitmapCreateGDIpFromMem($tBuffer[, $iBufferSize = 0[, $bGDIImage = False[, $sPath2DLL = ""]]])
; Parameters ....:    $tBuffer                        - a dll struct with WebP binary data as content or pointer to the memory data
;                     $iBufferSize                - the size of the binary data (file size)
;                     $bGDIImage                - [optional] a boolean value. Default is False (GDIPlus bitmap handle). If True then output is GDI bitmap handle
;                     $bCountColors            - [optional] a boolean value. Default is False. If True then the colors will be counted and saved in extended. Use @extended to get color count.
;                     $sPath2DLL                - [optional] a string value. Default is "". Path to WebP dll if not in script dir
; Return values .:    GDI / GDIPlus bitmap handle and color count if $bCountColors = True in extended.
; Author ........:    UEZ
; Modified ......:
; Remarks .......:    Currently only WebP images are supported - no animated WebP images yet!
; Related .......:
; Link ..........:    https://developers.google.com/speed/webp
; Example .......:    No
; ===============================================================================================================================
Func WebP_BitmapCreateGDIpFromMem($tBuffer, $iBufferSize = 0, $bGDIImage = False, $bCountColors = False, $sPath2DLL = "")
    Local $sDLL = Path2DLL($sPath2DLL)
    If Not FileExists($sDLL) Then Return SetError(1, 0, 0) ;DLL not found
    If $iBufferSize = 0 Then Return SetError(2, 0, 0)

    Local $binMem
    If IsPtr($tBuffer) Then
        Local $tMem = DllStructCreate("byte bin[" & $iBufferSize & "]", $tBuffer)
        $binMem = $tMem.bin
    Else
        $binMem = DllStructGetData($tBuffer, 1)
    EndIf
    If Int(BinaryMid($binMem, 1, 4)) <> 1179011410 Or Int(BinaryMid($binMem, 9, 6)) <> 88331643929943 Then Return SetError(3, 0, 0)  ;header must contain RIFF and WEBPVP

    Local $tColors = DllStructCreate("struct;ulong cc;endstruct")
    Local Const $hBitmap = DllCall($sDLL, "ptr", "WebP_BitmapCreateGDIp", "struct*", $tBuffer, "uint", $iBufferSize, "boolean", $bGDIImage, "boolean", $bCountColors, "struct*", $tColors)[0]
    If $hBitmap = 0 Then Return SetError(4, 0, 0)

    Return SetExtended($tColors.cc, $hBitmap)
EndFunc   ;==>WebP_BitmapCreateGDIpFromMem

; #FUNCTION# ====================================================================================================================
; Name ..........:     WebP_CreateWebPLossySimpleFromBitmap
; Description ...:     Converts a bitmap to WebP lossy image and save it to HD
; Syntax ........:     WebP_CreateWebPLossySimpleFromBitmap($sFilename, $hBitmap[, $iQuality = 75[, $sPath2DLL = ""]])
; Parameters ....:     $sFilename             - file to load
;                      $hBitmap                - GDIPlus bitmap handle
;                      $iQuality                - [optional] an integer value. Default is 75. Valid range is 0 - 100.
;                      $sPath2DLL             - [optional] a string value. Default is "". Path to WebP dll if not in script dir.
; Return values .:     0 for failure, 1 for success.
; Author ........:     UEZ
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:     https://developers.google.com/speed/webp
; Example .......:     No
; ===============================================================================================================================
Func WebP_CreateWebPLossySimpleFromBitmap($sFilename, $hBitmap, $iQuality = 75, $sPath2DLL = "")
    If $sFilename = "" Then Return SetError(1, 0, 0)
    Local $sDLL = Path2DLL($sPath2DLL)
    If Not FileExists($sDLL) Then Return SetError(2, 0, 0) ;DLL not found
    Local $iReturn = DllCall($sDLL, "long", "WebP_CreateWebPLossySimpleFromBitmap", "str", $sFilename, "ptr", $hBitmap, "float", $iQuality)[0]
    If $iReturn = 0 Then Return SetError(3, 0, 0)
    Return 1
EndFunc   ;==>WebP_CreateWebPLossySimpleFromBitmap

; #FUNCTION# ====================================================================================================================
; Name ..........:     WebP_CreateWebPLosslessSimpleFromBitmap
; Description ...:     Converts a bitmap to WebP lossless image and save it to HD
; Syntax ........:     WebP_CreateWebPLosslessSimpleFromBitmap($sFilename, $hBitmap[, $sPath2DLL = ""])
; Parameters ....:     $sFilename             - file to load
;                      $hBitmap                - GDIPlus bitmap handle
;                      $sPath2DLL             - [optional] a string value. Default is "". Path to WebP dll if not in script dir.
; Return values .:     0 for failure, 1 for success.
; Author ........:     UEZ
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:     https://developers.google.com/speed/webp
; Example .......:     No
; ===============================================================================================================================
Func WebP_CreateWebPLosslessSimpleFromBitmap($sFilename, $hBitmap, $sPath2DLL = "")
    If $sFilename = "" Then Return SetError(1, 0, 0)
    Local $sDLL = Path2DLL($sPath2DLL)
    If Not FileExists($sDLL) Then Return SetError(2, 0, 0) ;DLL not found
    Local $iReturn = DllCall($sDLL, "long", "WebP_CreateWebPLosslessSimpleFromBitmap", "str", $sFilename, "ptr", $hBitmap)[0]
    If $iReturn = 0 Then Return SetError(3, 0, 0)
    Return 1
EndFunc   ;==>WebP_CreateWebPLosslessSimpleFromBitmap


; #FUNCTION# ====================================================================================================================
; Name ..........:    WebP_CreateWebPAdvancedFromBitmap
; Description ...:    Converts a bitmap to WebP lossy / lossless image and save it to HD
; Syntax ........:    WebP_CreateWebPAdvancedFromBitmap($sFilename, $hBitmap[, $WebPPreset = $WEBP_PRESET_DEFAULT[, $lossless = 0[,
;                                                       $quality = 75.0[, $method = 4[, $sns_strength = 50[, $filter_sharpness = 0[, $filter_strength = 60[,
;                                                          $pass = 1[, $level = 6[, $sPath2DLL = ""]]]]]]]]]])
; Parameters ....:    $sFilename                  - file to load
;                       $hBitmap                     - GDIPlus bitmap handle
;                         $WebPPreset                  - [optional] an unknown value. Default is $WEBP_PRESET_DEFAULT.
;                         $lossless                    - [optional] an unknown value. Default is 0. 0 for lossy encoding / 1 for lossless..
;                         $quality                     - [optional] an unknown value. Default is 75.0. Valid range is 0 - 100.
;                         $method                      - [optional] a map. Default is 4. Valid range is 0 - 6 (0=fast, 6=slower-better).
;                         $sns_strength               - [optional] a string value. Default is 50. Spatial Noise Shaping. 0=off, 100=maximum
;                         $filter_sharpness            - [optional] a floating point value. Default is 0. Range: [0 = off .. 7 = least sharp]
;                         $filter_strength            - [optional] a floating point value. Default is 60. Range: [0 = off .. 100 = strongest]
;                         $pass                        - [optional] a pointer value. Default is 1. Number of entropy-analysis passes (in [1..10]).
;                         $level                      - [optional] an unknown value. Default is 6. Between 0 (fastest, lowest compression) and 9 (slower, best compression) only valid for lossless = 1!
;                         $near_lossless                - [optional] an unknown value. Default is 100. Near lossless encoding [0 = max loss .. 100 = off (default)].
;                         $alpha_compression            - [optional] an unknown value. Default is 1. Algorithm for encoding the alpha plane (0 = none,1 = compressed with WebP lossless). Default is 1.
;                         $alpha_filtering            - [optional] an unknown value. Default is 1. Predictive filtering method for alpha plane.0: none, 1: fast, 2: best. Default if 1.
;                         $alpha_quality                - [optional] an unknown value. Default is 100. Between 0 (smallest size) and 100 (lossless). Default is 100.
;                         $target_size                - [optional] an unknown value. Default is 0. If non-zero, set the desired target size in bytes.
;                         $NoSave                     - [optional] an unknown value. Default is False.
;                         $pMem                           - [optional] a string value. Default is Null. If $NoSave = True then the pointer to the memory which holds the data will be returned.
;                       $pCallback                     - [optional] a pointer value. Default is 0. Pointer to a callback address for progress hook.
;                       $sPath2DLL                     - [optional] a string value. Default is "". Path to WebP dll if not in script dir.
; Return values .:    negative value for failure, 1 for success or the struct with information (pointers, size) if $NoSave = True
; Author ........:    UEZ
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:    https://developers.google.com/speed/webp
; Example .......:    No
; ===============================================================================================================================
Func WebP_CreateWebPAdvancedFromBitmap($sFilename, $hBitmap, $WebPPreset = $WEBP_PRESET_DEFAULT, $lossless = 0, $quality = 75.0, $method = 4, $sns_strength = 50, _
                                                                        $filter_sharpness = 0, $filter_strength = 60, $pass = 1, $level = 6, $near_lossless = 100, $alpha_compression = 1, $alpha_filtering = 1, $alpha_quality = 100, _
                                                                        $target_size = 0, $NoSave = False, $pCallback = 0, $sPath2DLL = "")
    If $sFilename = ""  And Not $NoSave Then Return SetError(1, 0, 0)
    Local $sDLL = Path2DLL($sPath2DLL)
    If Not FileExists($sDLL) Then Return SetError(2, 0, 0) ;DLL not found
    Local $tMem = DllStructCreate("struct;ptr pPic; ptr pWriter; ptr pMemData; uint memsize;endstruct")
    Local $iReturn = DllCall($sDLL, "long", "WebP_CreateWebPAdvancedFromBitmap", _
                                      "str", $sFilename, _                        ;Webp filename
                                      "ptr", $hBitmap, _                        ;handle to GDI+ bitmap
                                      "long", $WebPPreset, _                    ;WebPPreset
                                      "long", $lossless, _                        ;lossless
                                      "float", $quality, _                        ;quality
                                      "long", $method, _                        ;method
                                      "long", $sns_strength, _                    ;sns_strength
                                      "long", $filter_sharpness, _                ;filter_sharpness
                                      "long", $filter_strength, _                ;filter_strength
                                      "long", $pass, _                            ;pass
                                      "long", $level, _                            ;level
                                      "long", $near_lossless, _                    ;near_lossless
                                      "long", $alpha_compression, _                ;alpha_compression
                                      "long", $alpha_filtering, _                ;alpha_filtering
                                      "long", $alpha_quality, _                    ;alpha_quality
                                      "long", $target_size, _                    ;target_size
                                      "bool", $NoSave, _                        ;
                                      "struct*", $tMem, _                        ;
                                      "ptr", @AutoItX64 ? $pCallback : 0)[0]     ;x86 crashes for unknown reason
    If $iReturn < 0 Then Return SetError(3, 0, $iReturn)
    If $NoSave And $tMem.memsize = 0 Then SetError(4, 0, 0)
    Return $NoSave ? $tMem : $iReturn
EndFunc   ;==>WebP_CreateWebPAdvancedFromBitmap

; #FUNCTION# ====================================================================================================================
; Name ..........:    WebP_FreeUp
; Description ...:    Release the ressources from $tMem struct
; Syntax ........:    WebP_FreeUp(Byref $tMem[, $sPath2DLL = ""])
; Parameters ....:    $tMem                    - [in/out] a dll struct value.
;                     $sPath2DLL          - [optional] a string value. Default is "".
; Return values .:    1
; Author ........:    UEZ
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:    https://developers.google.com/speed/webp
; Example .......:    No
; ===============================================================================================================================
Func WebP_FreeUp(ByRef $tMem, $sPath2DLL = "")
    Local $sDLL = Path2DLL($sPath2DLL)
    If Not FileExists($sDLL) Then Return SetError(1, 0, 0) ;DLL not found
    Local $iReturn = DllCall($sDLL, "long", "WebP_FreeUp", "struct*", $tMem)[0]
    Return $iReturn
EndFunc   ;==>WebP_FreeUp

; #FUNCTION# ====================================================================================================================
; Name ..........:    BitmapCountColors
; Description ...:    Counts the colors used by the bitmap
; Syntax ........:    BitmapCountColors($hBitmap)
; Parameters ....:    $hBitmap             - a handle to a GDI+ bitmap.
;                     $bGDIImage            - [optional] a boolean value. Default is False (GDIPlus bitmap handle).
; Return values .:    Number of colors used by the image.
; Author ........:    UEZ
; Modified ......:
; Remarks .......:    The result may differ from other programs for JPG images depending on the decoder.
; Related .......:
; Link ..........:
; Example .......:    No
; ===============================================================================================================================
Func BitmapCountColors($hBitmap = 0, $bGDIImage = False, $sPath2DLL = "")
    If IsPtr($hBitmap) = 0 Or $hBitmap = 0 Then SetError(1, 0, 0)
    Local $sDLL = Path2DLL($sPath2DLL)
    If Not FileExists($sDLL) Then Return SetError(2, 0, 0) ;DLL not found
    Local $iReturn = DllCall(Path2DLL(), "ulong", "BitmapCountColors", "ptr", $hBitmap)[0]
    Return $iReturn
EndFunc

; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........:     Path2DLL
; Description ...:     Return the path to the _WebP_x??.dll
; Author ........:    UEZ
; Modified.......:
; Remarks .......:     This function is used internally by WebP.au3
; ===============================================================================================================================
Func Path2DLL($sPath2DLL = "")
    Return $sPath2DLL ? $sPath2DLL : @ScriptDir & (@AutoItX64 ? "\_WebP_x64.dll" : "\_WebP_x86.dll")
EndFunc   ;==>Path2DLL

Alles anzeigen

Beispiel 1:

AutoIt: WebP Example1.au3

;Coded by UEZ
#AutoIt3Wrapper_UseX64=y
#include <GUIConstantsEx.au3>
#include "WebP.au3"

;~ Global $sFile
Global $sFile = FileOpenDialog("Select an image", "", "Images (*.webp)")
If @error Then Exit

Global Const $STM_SETIMAGE = 0x0172
_GDIPlus_Startup()
Global Const $hBitmap = WebP_BitmapCreateGDIp($sFile, True)
Global $tDim = DllStructCreate($tagBITMAP)
DllCall("gdi32.dll", "int", "GetObject", "int", $hBitmap, "int", DllStructGetSize($tDim), "ptr", DllStructGetPtr($tDim))
Global Const $iW = DllStructGetData($tDim, "bmWidth"), $iH = DllStructGetData($tDim, "bmHeight")
Global Const $hGUI = GUICreate("WebP Image Viewer", $iW, $iH)
GUISetBkColor(0xFFFFFF)
Global Const $iPic = GUICtrlCreatePic("", 0, 0, $iW - 1, $iH - 1)
_WinAPI_DeleteObject(GUICtrlSendMsg($iPic, $STM_SETIMAGE, $IMAGE_BITMAP, $hBitmap))
GUISetState()
_WinAPI_DeleteObject($hBitmap)
_GDIPlus_Shutdown()

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Alles anzeigen

Beispiel 2:

AutoIt: WebP Example2.au3

;Coded by UEZ
#AutoIt3Wrapper_UseX64=n
#include <GUIConstantsEx.au3>
#include "WebP.au3"

Global Const $STM_SETIMAGE = 0x0172
_GDIPlus_Startup()
Global Const $binData = _WebP_Test_Image(), $iLen = BinaryLen($binData)
Global $tMem = DllStructCreate("byte bin[" & BinaryLen($binData) & "]")
$tMem.bin = $binData
Global Const $hBitmap = WebP_BitmapCreateGDIpFromMem($tMem, $iLen, True)
Global $tDim = DllStructCreate($tagBITMAP)
DllCall("gdi32.dll", "int", "GetObject", "int", $hBitmap, "int", DllStructGetSize($tDim), "ptr", DllStructGetPtr($tDim))
Global Const $iW = DllStructGetData($tDim, "bmWidth"), $iH = DllStructGetData($tDim, "bmHeight")
Global Const $hGUI = GUICreate("WebP Image Viewer", $iW, $iH)
GUISetBkColor(0xFFFFFF)
Global Const $iPic = GUICtrlCreatePic("", 0, 0, $iW - 1, $iH - 1)
_WinAPI_DeleteObject(GUICtrlSendMsg($iPic, $STM_SETIMAGE, $IMAGE_BITMAP, $hBitmap))
GUISetState()
_WinAPI_DeleteObject($hBitmap)
_GDIPlus_Shutdown()
$tMem.bin = ""

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

;Code below was generated by: 'File to Base64 String' Code Generator v1.20 Build 2020-06-05

Func _WebP_Test_Image($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $WebP_Test_Image
    $WebP_Test_Image &= 'UklGRgoLAABXRUJQVlA4IP4KAAAQegCdASqCAYsBP3G00mI8P7+/pBHaG/IuCWVu/FSUDQP65DOGlzh3srUbSh0m7gLnkn0zylfD+3W3563nm3UeUfYAr/I3Qj4CCxiTF7emTO+xvUY4kg2rzauyNuFY/JImZ7Gzl+m4xHjyVFILDmEMardGsjrGgb8sg2rzKF2nqKPwaNlAibxnwCndTWvaLGgb8sg2qziJeSAxdOBWiM329B65bkk7GgGY7TD2no+AgsYF+N0f4wih++8dx1UkdTEhrFLM1DaSpfcGILkHwrLKcMoqOsz5euU3pVxCCHb4jeFZBtXm1W0BrkRPsde55VHmI5xsRjQVb3N3Ckm8DsS9BHnKzJeHgn25dkrqUWraZ3iJ0Q0DflkG1eZe45wD+S/HEoF5ZVOXLULDz7SZ0PmAY4zSdG0zosPQPsjbgpubXQPiDy1LCfNqabcZ8ZgHG8dLOKqJGDbs4YEjEosPQF2U1di55z257vpQyE7H9J+tKAAeN7EPDKlR64Ng3gJrNivHFVHeSw9AXZTV2Lbz6w8jM96fhqkmafvL+uy2sqOYzn2Cx4bd6RGvCE5rzZegqLD1HCpC1RXtr3IUFGe3riu7n1A2qbRh2NnZsTWG7YHA9F/fj18zv2Kjh+DeNXV3GdkL9Ku7T4fMowjgYrSKUwyYYj9uTmEo0kzYeOriVnC2zLtaiV8ymz3OTuvrefOxerK8fs/nANGbkcdiQIt1gCUlor/XmxuQi0z4eZRVhyGprWmYDz1SrHGINSHErz1tzbjGZLiUOplRP2FvArcgR5lemd8NGPq8RD9DMy8EQV2nUWFUjz/9BUIXYPSNvaldhXBQpyZem++Us+1uoUZwjmgkwV8QGn+uI3XiNaywpcE/6lEk3vhI65DxdZPxI4oEgm5217rvXWqYtfrbUegNjXC+p+yKXl5qxN+bqma+NLY38ARNTq3ti2+bQvJuLfVmGJbFlv/Oi2N/AEhj'
    $WebP_Test_Image &= '4byZlzbeSHQWAXS3M8WQAxJtYRPoJIyp6KPQrb+AJCW4VqlFzh/k2qkgih6B4nLokaBbIZ8DefxqUnPI/WW1Wozh8GIukagqQHdmHdnKkGHxZP0EhX37r2pkdmoezaSNRv/e0iBaZ4kq+jwPmekqZH40NLp9BYqUv+pIF6HmvHVmFza7qu/nrmL5t60qfjHnT61eRehUzIgqrONPjs9+Na9AXIefym+a1DD/TOAyqZxNL3FW5fYCSJKW1ZnXqZWCpTJFQM9GJYLtVodrcEZtIfWew4rrgQ5R/9VC5U0gF/SYa6ptJYbeOKi+FTKPuzR4UIRaN+ozvMVNGpV5fUc4AP7Nfz7/XlJelX+ZVC9IWFvg7C0YQyH2yiMSEAJ35/bC3y6fiUwLyIyh7vDAUkGhdq4okF1EPyI7s706NV1iFGKjfNgeq3jy5iaUheRPnmRn7tIg1eMagA9JDCAMJmd4rZ7MNksuzXUaBJgoUQVDmi2zjcb23mJeHnAzgbWjmwiOsa+V4Mk9d8pERRai6R0xbahUKpdkSoTrA7dw0U+wpkb6wHsG00+qwoGPSZEbVzeCc5xaL8TzynVuoIn4VZ0XbeAhURFUC4eRrSE0LE48d0oX3zP3u5lz/N4ReL0LGV0fXqP3hzk5f13oZ/ryxn9Rz1ZnZaLuY9O0UqcTQyTDO3uDV7Gmq0kqzZEuyHwGWe/CerSS8Q3qV9910ZZB9D1Hml49LH9cWV6R66TfsMsct/8n2t8eByIzx29kVl/VoezCVliuSIdODdFAwnGZRGQnR35828P0Nuh4eu6V8+BcO9IgMvJrKkJNCTOc/S+mzVbAHDbK1XHRKtBtiQUUAnphnopGERbB5q7BY2k6TT6ExQSBOiQf1ZBMZ8H8nYkQ5mW2y9St0nRhU9SR/0gMgE436G2NqGtD+sJVEZVEIY/kaqsoS6xw5QUwnhcunEAAHZvuPinWYhz2HJoOOyEadLenGjMgs70Rgcs4FdqjjPK0'
    $WebP_Test_Image &= '8hLn5SiAOExx1rJ5s635eWCriVjAiOAKcKZ2z+yWAm38N8eA3JiLFCJsAAHY+TCOKgGLiW2+T+Z5wBlsmQeGe59EIORJzc56rNIJV1SuVxbhfyqsd3AorDS6BDEDRl4z0WhhRqoEmZGcnqJMHp5LjzuSd+xtaHENWjQAAAY7l1pOxcjnoOgGr3D9I7gpMvuS58lHYftetlTMpNmD35RM9dvEhyaZbFPnPEwdLNuuauuLUotZtMeI2JxNhFjDyg1fQdsSzwx8XRvL/y2xAABdMqXfbGeX2fNn3OvIDQ1K8AT3bw+N5PCu0bKdL2lckYWSKfS30Rz08eVMd+rcJvJJc0jW5QQ4CKABhsGGhl28kDl0eQ0UbXjql6GWoH1K6aMw+PDeA1kIUaK2kMAX2oeyV9jiDBR6DTTwxcjwwlX+jfUQtX77cxy8P46hgvro9UslDnrY+PnVrwfoPERvctInKui2iaLvIrT5eZlF5arVvvOD28aotqLK6UIrURhbszOIXHvhmdFtOQsmoAz5cKa0Gw8JHYI5FMKqa7obYYxXjdP4CO75mXs1gVWccDQdWIE1yZdFMEF9NONhndOgLzFrxs6HVW1Ue1c/hLxaZ+sfpSahHgn0Qy/8Yb/2FC/ArasImu4guO4AKL3pApwvE5eD+ohXZnlHWOCKQHT2wIXAkNKho23EbNZ4sXdqopg6Q9szzo0hFRgbvG9ROVTEH9cHxM1h7kZGmmK2y55DBvPFhBKgxt4a17zvvA2ts7P6cTiUGuJmMYcCx19JF2sC9wFgdZ5zTUf+TTYVmvYKIHnqTNvyFWbHTs/By5P1AIDHcLMKsfIFpHsyROo5wNjla7SFUc/5RHfOnHOjNIbCorL30m+72gtGeV13O9btU1tQ4VpADb8zq5yNR9TTV5r8CowdXl07Am/MmawihGeSlj4s46rxbVM0DmGDMU1SE5NP16V9ou3vjCbeFOXCw72MlVxvF3zftawVwAFyN3a/e1X3'
    $WebP_Test_Image &= '+Unp+K1EZsqI4hDLSsXh3FwAAIf2GwYT9cX9NFTkS5YWjl230Fj8VlhfBzEEC6lBKY9wBzyn7ZXxJMNdS/Y0Dnk8e2YrkepX7qV7p545QxGYqbxfK+E/Vqb+yTwuUAJzKNzV25vb1cs98omMAATuDu2zYKodOJtO0bYy6tI3FAF5NXPaAWivkuqrExwrloFi/mG7HFrIMvEbnsSTPhoh1BKT+L1HFDa6PvBo1yhc4UYnr3ITJ7pqJSBp6Xu2T52NDbXuWCXnew4haL7peDlftd5xkdZgtWe3/Q/Vxov2QZq6jrNJDKo9iQPTuWDO1yeulWY+aXvjMqYIRPzIusnkop3iIX3VANrVxIIHEfyEiXDIkqU93hU3hLeABwZMeCcEzz5wLubpq1Q58qmdHgANGQp4RggzHBKjly8WL8ch8fsiithuaPFad2hCh51ZszDtPq5C2j5tWCca/6SE3+ySZKEo/AtaAvIMib0oK8M0Z6rAcIwVG0TAnWto/cqmGmbQAhsSNhFVYafhGDdV2aHAVQOzwaC8L+Y/0QT9YJY600pdjL1AkAf21pNPei+uhIjYR+RfjiTYjkWYHOtGpRa/V8OAKPQec2fwqecBOjQA60prWye6Vcrm2xKdQqL5G0hxR+xl89O8Idi0QBcKul3rEk9gx78n8KXI6ND4ai/2wvCivKhwDQwDWU3ZL8FGeW81XH8yL2rIvXo1Aa2Eo7s+gQwojP7HqJ9W4c/4JjU33BfB8Dw0yJTpWpNvAAAAAAEuuxacKAAAAAA='
    Local $bString = _WinAPI_Base64Decode($WebP_Test_Image)
    If @error Then Return SetError(1, 0, 0)
    $bString = Binary($bString)
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\Baby Tux small.webp", 18)
        If @error Then Return SetError(2, 0, $bString)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_WebP_Test_Image

Func _WinAPI_Base64Decode($sB64String)
    Local $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "ptr", 0, "dword*", 0, "ptr", 0, "ptr", 0)
    If @error Or Not $aCrypt[0] Then Return SetError(1, 0, "")
    Local $bBuffer = DllStructCreate("byte[" & $aCrypt[5] & "]")
    $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "struct*", $bBuffer, "dword*", $aCrypt[5], "ptr", 0, "ptr", 0)
    If @error Or Not $aCrypt[0] Then Return SetError(2, 0, "")
    Return DllStructGetData($bBuffer, 1)
EndFunc   ;==>_WinAPI_Base64Decode

Alles anzeigen

Beispiel 3:

AutoIt

;Coded by UEZ
#AutoIt3Wrapper_UseX64=n
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include "WebP.au3"

Global $sFile = FileOpenDialog("Select an image", "", "Images (*.webp)")
If @error Then Exit

Global $tBitmapInfo = WebP_BitmapGetInfo($sFile)

If Not @error Then MsgBox($MB_ICONINFORMATION, "WebP Bitmap Information",    "Image width = " & $tBitmapInfo.width & @CRLF & _
                                                                                                                            "Image height = " & $tBitmapInfo.height & @CRLF & _
                                                                                                                            "Image format = " & ($tBitmapInfo.format = 0 ? "undefined " : ($tBitmapInfo.format = 1 ? "lossy" : "lossless")) & @CRLF & _
                                                                                                                            "Image has alpha = " & $tBitmapInfo.has_alpha & @CRLF & _
                                                                                                                            "Image has animation = " & $tBitmapInfo.has_animation)
WebP_Ver()

Alles anzeigen

Beispiel 4:

AutoIt

;Coded by UEZ
#AutoIt3Wrapper_UseX64=y
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include "WebP.au3"

Global $sFile = FileOpenDialog("Select an GDI+ supported image", "", "Images (*.jpg;*.png;*.bmp;*.gif;*.tif)")
If @error Then Exit
_GDIPlus_Startup()
Global $hImage = _GDIPlus_ImageLoadFromFile($sFile)
If Not $hImage Then Exit _GDIPlus_Shutdown()
Global $iReturn1 = WebP_CreateWebPLossySimpleFromBitmap(@ScriptDir & "\LossySimple.webp", $hImage, 1)
Global $iReturn2 = WebP_CreateWebPLosslessSimpleFromBitmap(@ScriptDir & "\LosslessSimple.webp", $hImage)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
ShellExecute("Explorer.exe", ".", @ScriptDir)

Alles anzeigen

Beispiel 5:

AutoIt

;Coded by UEZ
#AutoIt3Wrapper_UseX64=n
#include <GUIConstantsEx.au3>
#include "WebP.au3"

Global $sFile = FileOpenDialog("Select an image to compress", "", "Images (*.jpg;*.bmp;*.png;*.gif;*.tif)")
If @error Then Exit

Global Const $STM_SETIMAGE = 0x0172
_GDIPlus_Startup()
Global $hImage = _GDIPlus_ImageLoadFromFile($sFile), $hHBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)

;Example with maximal lossy compression settings
Global $tMem = WebP_CreateWebPAdvancedFromBitmap("", $hImage, _
                                                                                                          0, _        ;$WebPPreset (0 - 5)
                                                                                                          0, _         ;$lossless (0 - 1)
                                                                                                          0, _         ;$quality (0.0 - 100.0)
                                                                                                          6, _         ;$method (0 - 6)
                                                                                                          0, _         ;$sns_strength (0 - 100)
                                                                                                          0, _         ;$filter_sharpness (0 - 7)
                                                                                                          0, _         ;$filter_strength (0 - 100)
                                                                                                          10, _       ;$pass (1 - 10)
                                                                                                          9, _        ;$level (0 - 9) for lossless compression only
                                                                                                          100, _     ;$near_lossless (0 - 100)
                                                                                                          1, _        ;$alpha_compression (0 - 1)
                                                                                                          2, _        ;$alpha_filtering (0 - 2)
                                                                                                          0, _        ;$alpha_quality (0 - 100)
                                                                                                          0, _        ;$target_size (0 = off, size in bytes)
                                                                                                          True)     ;hold the compressed image in memory only, no save to HD!
Global $hBitmap = WebP_BitmapCreateGDIpFromMem($tMem.pMemData, $tMem.memsize, True)
Global $tDim = DllStructCreate($tagBITMAP)
DllCall("gdi32.dll", "int", "GetObject", "int", $hBitmap, "int", DllStructGetSize($tDim), "ptr", DllStructGetPtr($tDim))
Global Const $iW = DllStructGetData($tDim, "bmWidth"), $iH = DllStructGetData($tDim, "bmHeight")
Global Const $hGUI = GUICreate("WebP Image Viewer (Image size: " & Round($tMem.memsize / 1024, 2) & " kb)", $iW * 2, $iH)
GUISetBkColor(0xFFFFFF)
Global Const $iPic_WebP = GUICtrlCreatePic("", 0, 0, $iW - 1, $iH - 1)
Global Const $iPic_Original = GUICtrlCreatePic("", $iW, 0, $iW - 1, $iH - 1)
_WinAPI_DeleteObject(GUICtrlSendMsg($iPic_WebP, $STM_SETIMAGE, $IMAGE_BITMAP, $hBitmap))
_WinAPI_DeleteObject(GUICtrlSendMsg($iPic_Original, $STM_SETIMAGE, $IMAGE_BITMAP, $hHBitmap))
GUISetState()
_GDIPlus_ImageDispose($hImage)
_WinAPI_DeleteObject($hBitmap)
_WinAPI_DeleteObject($hHBitmap)
_GDIPlus_Shutdown()
WebP_FreeUp($tMem)

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Alles anzeigen

WebP Advanced Encoder GUI.au3:

Bitte mal testen, ob's bei euch auch funzt.

Btw, die DLL ist in Freebasic geschrieben.

Mehr zum Thema WebP API kann hier eingesehen werden: https://developers.google.com/speed/webp/docs/api.

**UEZ** · 1. April 2022

Glückwunsch an Mars für die beste Komprimierung

AspirinJunkie für die auch sehr gute und sehr schnelle Komprimierung

Hier mal das Resultat mit externen Tools / DLLs:

Size	File	Ratio %
6105	original.txt	0.00%
3552	original.png	41.82%
2875	original_WinAPI_XPRESS_HUFF.bin	52.91%
2803	original_lzma2.7z	54.09%
2776	original.rar	54.53%
2626	original_bzip2.7z	56.99%
2492	original_ppmd.7z	59.18%

**UEZ** · 4. März 2022

Da ich nicht das Rad neu erfinden wollte, denn seit es Computer gibt, wird an der Komprimierung geforscht, habe ich mich zu dieser Lösung entschieden, die aber laut den Regeln nicht erlaubt ist. Deshalb poste ich hier den Code direkt:

Spoiler anzeigen

AutoIt

;Coded by UEZ build 2022-03-05 proof-of-concept version
#include <GDIPlus.au3>
#include <Memory.au3>

Func _GDIPlus_StreamImage2BinaryString($hBitmap, $sFormat = "PNG", $iQuality = 80, $bSave = False, $sFilename = @ScriptDir & "\Converted.jpg") ;coded by UEZ 2013 build 2014-01-25 (based on the code by Andreik)
    Local $sImgCLSID, $tGUID, $tParams, $tData
    Switch $sFormat
        Case "JPG"
            $sImgCLSID = _GDIPlus_EncodersGetCLSID($sFormat)
            $tGUID = _WinAPI_GUIDFromString($sImgCLSID)
            $tData = DllStructCreate("int Quality")
            DllStructSetData($tData, "Quality", $iQuality) ;quality 0-100
            Local $pData = DllStructGetPtr($tData)
            $tParams = _GDIPlus_ParamInit(1)
            _GDIPlus_ParamAdd($tParams, $GDIP_EPGQUALITY, 1, $GDIP_EPTLONG, $pData)
        Case "PNG", "BMP", "GIF", "TIF"
            $sImgCLSID = _GDIPlus_EncodersGetCLSID($sFormat)
            $tGUID = _WinAPI_GUIDFromString($sImgCLSID)
        Case Else
            Return SetError(1, 0, 0)
    EndSwitch
    Local $hStream = _WinAPI_CreateStreamOnHGlobal() ;http://msdn.microsoft.com/en-us/library/ms864401.aspx
    If @error Then Return SetError(2, 0, 0)
    _GDIPlus_ImageSaveToStream($hBitmap, $hStream, DllStructGetPtr($tGUID), DllStructGetPtr($tParams))
    If @error Then Return SetError(3, 0, 0)

    Local $hMemory = _WinAPI_GetHGlobalFromStream($hStream) ;http://msdn.microsoft.com/en-us/library/aa911736.aspx
    If @error Then Return SetError(4, 0, 0)
    Local $iMemSize = _MemGlobalSize($hMemory)
    If Not $iMemSize Then Return SetError(5, 0, 0)
    Local $pMem = _MemGlobalLock($hMemory)
    $tData = DllStructCreate("byte[" & $iMemSize & "]", $pMem)
    Local $bData = DllStructGetData($tData, 1)
    _WinAPI_ReleaseStream($hStream) ;http://msdn.microsoft.com/en-us/library/windows/desktop/ms221473(v=vs.85).aspx
    _MemGlobalFree($hMemory)
    If $bSave Then
        Local $hFile = FileOpen($sFilename, 18)
        If @error Then Return SetError(6, 0, $bData)
        FileWrite($hFile, $bData)
        FileClose($hFile)
    EndIf
    Return $bData
EndFunc   ;==>_GDIPlus_StreamImage2BinaryString

Func _StringCompress($sString)
    If StringLen($sString) < 24 Then Return SetError(1, 0, 0)
    _GDIPlus_Startup()
    Local $iLen = StringLen($sString), $iMemSize = Mod($iLen, 8) ? ($iLen + 8 - Mod($iLen, 8)) * 4 : $iLen * 4, $i
    Local $tPixelData = DllStructCreate("ubyte scan0[" & $iMemSize & "];"), $iW = Mod($iLen, 4)  ? Int($iLen / 4) + 1 : $iLen / 4
    If $iW > 65535 Then Return SetError(2, 0, 0)
    Local $hImage = _GDIPlus_BitmapCreateFromScan0($iW, 1, $GDIP_PXF32ARGB, $iMemSize, $tPixelData)
    If Not $hImage Then
        _GDIPlus_Shutdown()
        Return SetError(3, 0, 0)
    EndIf
    For $i = 1 To $iLen
        $tPixelData.Scan0(($i)) = Asc(StringMid($sString, $i, 1))
    Next
    Local $binData = _GDIPlus_StreamImage2BinaryString($hImage)
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_Shutdown()
    Return $binData
EndFunc

Func _StringDecompress($vCompress)
    If BinaryLen($vCompress) < 5 Then Return SetError(1, 0, 0)
    _GDIPlus_Startup()
    Local $sString, $hImage = _GDIPlus_BitmapCreateFromMemory($vCompress)
    If Not $hImage Then
        _GDIPlus_Shutdown()
        Return SetError(2, 0, 0)
    EndIf

    Local $binBMP = _GDIPlus_StreamImage2BinaryString($hImage, "BMP"), $iLen = BinaryLen($binBMP), $iSize =  _GDIPlus_ImageGetWidth($hImage) * 4 - 3
    $sString = BinaryToString(BinaryMid($binBMP, 55, $iSize))
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_Shutdown()
    $binBMP = 0
    Return $sString
EndFunc

Global $sUsername = "UEZ"

#Region Achtung! Diese Region darf nicht veraendert werden!
Global $hFile = FileOpen(@ScriptDir & '\original.txt', 128)
If $hFile = -1 Then Exit
Global $sOriginal = FileRead($hFile)
FileClose($hFile)
Global $iOriginalLen = StringLen($sOriginal)

Global $iTimer = TimerInit()
Global $vCompressed = _StringCompress($sOriginal)
Global $iTimeDiffComp = TimerDiff($iTimer)
;Global $iCompressedLen = StringLen($vCompressed)
Global $iCompressedLen = BinaryLen($vCompressed)

Global $iTimer = TimerInit()
Global $sDecompressed = _StringDecompress($vCompressed)
Global $iTimeDiffDecomp = TimerDiff($iTimer)
Global $iDecompressedLen = StringLen($sDecompressed)

ConsoleWrite('============================================================' & @CRLF)
ConsoleWrite(StringFormat('Result for "%s"\r\n', $sUsername))
ConsoleWrite('============================================================' & @CRLF)
ConsoleWrite(StringFormat('Decompressed = Original: %s\r\n', $sOriginal == $sDecompressed))
ConsoleWrite(StringFormat('Length Original: %i\r\n', $iOriginalLen))
ConsoleWrite(StringFormat('Length compressed: %i\r\n', $iCompressedLen))
ConsoleWrite(StringFormat('Length decompressed: %i\r\n', $iDecompressedLen))
ConsoleWrite(StringFormat('Compress-Ratio: %s %%\r\n', Round(100 - (100 / $iOriginalLen * $iCompressedLen), 3)))
ConsoleWrite(StringFormat('Time compressed: %i ms\r\n', $iTimeDiffComp))
ConsoleWrite(StringFormat('Time decompressed: %i ms\r\n', $iTimeDiffDecomp))
ConsoleWrite('============================================================' & @CRLF)
#EndRegion Achtung! Diese Region darf nicht veraendert werden!

Alles anzeigen

Das Resultat auf meinem Notebook:

Code

============================================================
Result for "UEZ"
============================================================
Decompressed = Original: True
Length Original: 6033
Length compressed: 3473
Length decompressed: 6033
Compress-Ratio: 42.433 %
Time compressed: 42 ms
Time decompressed: 13 ms
============================================================

Alles anzeigen

In meinem Freebasic Programm "FB File2Bas Code Generator", das Pendant zu "File to Base64 String Code Generator", benutze ich u.a. ein Build-in LZMAT Kompressionsalgorithmus, aber wie Andy bereits geschrieben hat, wollte ich den Code nicht zu Autoit portieren, wäre aber Interessant gewesen, da die Portierung, denke ich zumindest, nicht ganz einfach ist.

**UEZ** · 22. Februar 2022

Zitat von Oscar

keine externen Library

Hi Oscar,

nette Idee.

Eine Frage, was sind externe Libraries - sprich zählen dazu auch Windows Libs, wie z.B. GDI+, User32, etc.?

**UEZ** · 6. Februar 2022

Coole Analyse Andy ! Die Tatsache der Spiegelung ist definitiv ein Booster bezgl. Performance (keine Impfung ). Mir kam intuitiv die Rekursion als Lösung in den Kopf, aber das Ganze grafisch darzustellen, war mit nicht eingefallen.

**UEZ** · 5. Februar 2022

Und RegEx ist langsamer als die StringSplit Funktion.

Benchmark nach der Reihenfolge der Beiträge:

AutoIt

#Region UEZ
Func HN($n, $iDepth = 0)
    If $n = 0 Or $n = 2 Or $n = 4 Or $n = 20 Or $n = 42 Or $n = 145 Or $iDepth > 12 Then Return 0
    If $n = 1 Then Return 1
    Local $i, $a = StringRegExp($n, "\d", 3), $sum = 0
    For $i = 0 To UBound($a) - 1
        $sum += $a[$i] * $a[$i]
    Next
    If $sum = 1 Then Return 1
    Return HN($sum, $iDepth + 1)
EndFunc
#EndRegion

#Region chesstiger
Func happy($iNum)
    ;$iNum is an integer from 1 to 100
    If $iNum = 1 Then Return 1
    If $iNum = 20 Then Return 0
    Local $aNum = StringSplit(String($iNum), "", 3)
    Local $i, $iSum = 0
    For $i = 0 To UBound($aNum) - 1
        $iSum += Int($aNum[$i])^2
    Next
    Return happy($iSum)
EndFunc
#EndRegion

#Region SOLVE-SMART
Func _isHappyNumbers($iNumber)
    Local $iIterationsToCheck = 15

    For $i = 1 To $iIterationsToCheck Step 1
        Local $iResult = _getSumOfDigitsSquares($iNumber)

        If $iResult == 1 Then
            Return True
        EndIf

        $iNumber = $iResult
    Next

    Return False
EndFunc

Func _getSumOfDigitsSquares($iNumber)
    Local $iDigitsCount = StringLen($iNumber)
    Local $iSum

    For $j = 1 To $iDigitsCount Step 1
        $iSum += _getSquare($iNumber, $j)
    Next

    Return $iSum
EndFunc

Func _getSquare($iNumber, $iStart)
    Return StringMid($iNumber, $iStart, 1) ^ 2
EndFunc
#EndRegion

#Region Yjuq
Func isHappy($n)
    Local $r, $s, $x = $n

    While ($x <> 1) And ($x <> 4)
        $s = 0
        $n = $x

        While $n > 0
            $r = Mod($n, 10)
            $s += $r ^ 2
            $n = Floor($n / 10)
        WEnd

        $x = $s
    WEnd

    Return $x = 1
EndFunc
#EndRegion

Global $t = TimerInit(), $e, $durchlauf = 75000
ConsoleWrite("Starte jeweils " & $durchlauf & " Durchläufe..." & @CRLF)

For $i = 1 To $durchlauf
    HN($i)
Next
$e = TimerDiff($t)
ConsoleWrite("UEZ Laufzeit: " & $e & " ms" & @CRLF)

 $t = TimerInit()
For $i = 1 To $durchlauf
    happy($i)
Next
$e = TimerDiff($t)
ConsoleWrite("chesstiger Laufzeit: " & $e & " ms" & @CRLF)

 $t = TimerInit()
For $i = 1 To $durchlauf
    _isHappyNumbers($i)
Next
$e = TimerDiff($t)
ConsoleWrite("SOLVE-SMART Laufzeit: " & $e & " ms" & @CRLF)

 $t = TimerInit()
For $i = 1 To $durchlauf
    isHappy($i)
Next
$e = TimerDiff($t)
ConsoleWrite("Yjuq Laufzeit: " & $e & " ms" & @CRLF)

Alles anzeigen

Rekursionen sind i.d.R. einfacher zu implementieren -> kürzerer Code, aber langsamer.

**UEZ** · 3. Februar 2022

Mal was anderes...

Hier mein Lösungsvorschlag:

Spoiler anzeigen

**UEZ** · 14. Dezember 2021

Hatte ich auch nicht auf dem Radar - hatte wohl Glück, dass ich am Montag getippt hatte.

Imho, momentan sind die Ergebnisse z.T. sehr überraschend.

**UEZ** · 18. August 2021

Zitat von BugFix

Das Hauptskript soll nur Daten von verschiedenen Quellen einsammeln und diese werden dann in einem anderen Skript verarbeitet.

In Freebasic kann man den Pointer von einem Array übergeben und somit direkt in den Speicher schreiben. In Autoit, soweit ich weiß, geht das leider nicht. Falls die Daten immer den gleichen Typ haben, könnte man auch eine Struct anstelle eines Arrays benutzen und den Pointer zur Struct übergeben.

**UEZ** · 17. August 2021

Ich vermute, dass bei dieser Aktion (AdlibRegister) der Speicher intern kopiert wird und somit die Änderungen des Arrays nicht aktualisiert werden.

Dies funzt:

AutoIt

While True
    Sleep(50)
    _FillArray($aData)
    _Register_Array($aData, 50)
    _Run()
WEnd

Beiträge von UEZ

Kicktipp Bundesliga 2022/2023 Wett-Tippen!

Color - Output (ANSI Escape Sequenzen): Ursache gefunden - leider keine Lösung

Color - Output (ANSI Escape Sequenzen): Ursache gefunden - leider keine Lösung

WebP v0.3.1 build 2022-06-18 beta

WebP v0.3.1 build 2022-06-18 beta

Bilder im webp Format in GUI anzeigen

WebP v0.3.1 build 2022-06-18 beta

WebP v0.3.1 build 2022-06-18 beta

WebP v0.3.1 build 2022-06-18 beta

WebP v0.3.1 build 2022-06-18 beta

WebP v0.3.1 build 2022-06-18 beta

[Wettbewerb] String komprimieren

[Wettbewerb] String komprimieren

[Wettbewerb] String komprimieren

Code Kata - Happy Numbers

Code Kata - Happy Numbers

Code Kata - Happy Numbers

Kicktipp Bundesliga 2021/2022 Wett-Tippen!

Array ByRef in SubSkript registrieren?

Array ByRef in SubSkript registrieren?