;-- TIME_STAMP 2020-05-30 03:03:08 v 0.1
;#include <AssembleIt2_64.au3>
mov esi,dword[esp+4] ;Startadress Bitmapdata (Pixel)
mov ecx,dword[esp+8] ;number of Pixel
mov edi,21845 ;konstant, *21845/2^16 is approximately 1/3 (replaces the slow DIV 3)
mov edx,[esi] ;load pixel AARRGGBB (RR+GG+BB)/3 = colour grayscale
mov al,dl ;lowbyte (BB) Pixel to lowbyte al
movzx bx,dh ;highbyte (GG) Pixel to lowbyte of bx (bh is 0)
shr edx,8 ;shift RR into dh
movzx bx,dh ;highbyte (RR) Pixel to lowbyte of bx (bh ist 0)
add ax,bx ;and add: dx=RR+GG+BB
mul edi ;ax=ax*21845 *21845/2^16 is about 1/3
shr eax,16 ;ax=ax/2^16 in al is now the greyscale colour for RR, GG und BB
movzx dx,al ;grayscale to dl, dh = 0
shl edx,16 ;grayscale to RR, AA = 0!
mov dh,al ;grayscale to GG
mov dl,al ;grayscale to BB edx is now 00alalal = grayscale AARRGGBB
mov [esi],edx ;write pixel
add esi,4 ;address next pixel: 4 Byte = 1 dword = 1 Pixel
sub ecx,1 ;counter (next pixel)
;upper 3 lines are faster than loop _loop1 ;until ecx=0
$file = FileOpenDialog("Select 32 Bpp image!", @ScriptDir, "Image (*.jpg;*.bmp;*.png)", 1 + 2)
$binarycode = "0x8B7424048B4C2408BF555500008B1688D0660FB6DEC1EA086601D8660FB6DE6601D8F7E7C1E810660FB6D0C1E21088C688C2891683C60483E90177D1C3" ;code in Speicher schreiben
Global $tCodeBuffer = DllStructCreate("byte[" & StringLen($binarycode) / 2 - 1 & "]") ;reserve Memory for opcodes
DllStructSetData($tCodeBuffer, 1, $binarycode) ;write opcodes into memory
Global $ptr, $hbmp, $iwidth, $iheight ;werden ByRef von _CreateNewBmp32FromFile ausgefüllt
$DC = _CreateNewBmp32FromFile($file, $ptr, $hbmp, $iwidth, $iheight)
;pointer und bitmapgröße, mehr braucht man zum bearbeiten einer bitmap nicht!
;$ret=_AssembleIt2("handle","_grayscale","ptr", $ptr, "int", $iWidth * $iHeight)
$ret = DllCallAddress("uint:cdecl", DllStructGetPtr($tCodeBuffer), "ptr", $ptr, "int", $iwidth* $iheight);bytecode aufrufen, rückgabe in a[0]
$hImage = _GDIPlus_BitmapCreateFromHBITMAP($hbmp)
_GDIPlus_ImageSaveToFile($hImage, @ScriptDir & "\greyscale.jpg")
ShellExecute(@ScriptDir & "\greyscale.jpg")
Func _CreateNewBmp32FromFile($bmpfile, ByRef $ptr, ByRef $hbmp, ByRef $iwidth, ByRef $iheight) ;ptr to bitmapdata, it is possible to manipulate one pixel if needed
Local $hbitmap, $hdc, $hcdc
$hbitmap = _GDIPlus_ImageLoadFromFile($bmpfile)
If @error Or $hbitmap = 0 Then
MsgBox(0, "Func _CreateNewBmp32FromFile()", "Error opening File: " & @CRLF & $bmpfile)
$hbmpfile = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hbitmap)
$iwidth = _GDIPlus_ImageGetWidth($hbitmap)
$iheight = _GDIPlus_ImageGetHeight($hbitmap)
$hcdc = _WinAPI_CreateCompatibleDC(0)
_WinAPI_SelectObject($hcdc, $hbmpfile) ;image im hcdc
$tBMI = DllStructCreate($tagBITMAPINFO) ;Struktur der Bitmapinfo erstellen und Daten eintragen
DllStructSetData($tBMI, 1, DllStructGetSize($tBMI) - 4);Structgröße abzüglich der Daten für die Palette
DllStructSetData($tBMI, 2, $iwidth)
DllStructSetData($tBMI, 3, -$iheight) ;minus =standard = bottomup
DllStructSetData($tBMI, 4, 1)
DllStructSetData($tBMI, 5, 32) ;32 Bit = 4 Bytes => AABBGGRR
$adib = DllCall('gdi32.dll', 'ptr', 'CreateDIBSection', 'hwnd', 0, 'ptr', DllStructGetPtr($tBMI), 'uint', 0, 'ptr*', 0, 'ptr', 0, 'uint', 0)
$hbmp = $adib[0] ;hbitmap handle auf die Bitmap, auch per GDI+ zu verwenden
$ptr = $adib[4] ;pointer auf den Anfang der Bitmapdaten, vom Assembler verwendet
$hdc = _WinAPI_CreateCompatibleDC(0)
_WinAPI_SelectObject($hdc, $hbmp) ;leere bitmap im hdc
_WinAPI_BitBlt($hdc, 0, 0, $iwidth, $iheight, $hcdc, 0, 0, $srccopy);image in leere bitmap
_WinAPI_DeleteObject($hbmpfile)
Return $hdc ;DC der Bitmap zurückgeben
EndFunc ;==>_CreateNewBmp32FromFile
_DeleteBitmap32($DC_bmp, $ptr1, $hbmp1)
Func _CreateNewBmp32($iWidth, $iHeight, ByRef $ptr, ByRef $hbmp) ;erstellt leere 32-bit-Bitmap; Rückgabe $HDC und $ptr und handle auf die Bitmapdaten
$hcdc = _WinAPI_CreateCompatibleDC(0) ;Desktop-Kompatiblen DeviceContext erstellen lassen
$tBMI = DllStructCreate($tagBITMAPINFO) ;Struktur der Bitmapinfo erstellen und Daten eintragen
DllStructSetData($tBMI, 1, DllStructGetSize($tBMI) - 4) ;Structgröße abzüglich der Daten für die Palette
DllStructSetData($tBMI, 2, $iWidth)
DllStructSetData($tBMI, 3, -$iHeight) ;minus =standard = bottomup
DllStructSetData($tBMI, 4, 1)
DllStructSetData($tBMI, 5, 32) ;32 Bit = 4 Bytes => AABBGGRR
$adib = DllCall('gdi32.dll', 'ptr', 'CreateDIBSection', 'hwnd', 0, 'ptr', DllStructGetPtr($tBMI), 'uint', 0, 'ptr*', 0, 'ptr', 0, 'uint', 0)
$hbmp = $adib[0] ;hbitmap handle auf die Bitmap, auch per GDI+ zu verwenden
$ptr = $adib[4] ;pointer auf den Anfang der Bitmapdaten, vom Assembler verwendet
_WinAPI_SelectObject($hcdc, $hbmp) ;objekt hbitmap in DC
Return $hcdc ;DC der Bitmap zurückgeben
EndFunc ;==>_CreateNewBmp32
Func _DeleteBitmap32($DC, $ptr, $hbmp)
_WinAPI_DeleteObject($hbmp)
EndFunc ;==>_DeleteBitmap32
