| 1 | #include <ScreenCapture.au3>
|
|---|
| 2 |
|
|---|
| 3 | Global $hScreen, $hBitmap, $aMem, $tData
|
|---|
| 4 |
|
|---|
| 5 | _GDIPlus_Startup()
|
|---|
| 6 | $hScreen=_ScreenCapture_Capture("", 0, 0, -1, -1, False)
|
|---|
| 7 | $hBitmap = _GDIPlus_BitmapCreateFromHBITMAP($hScreen)
|
|---|
| 8 |
|
|---|
| 9 | For $i=1 To 50
|
|---|
| 10 | $tData = _GDIPlus_BitmapLockBits($hBitmap, 0, 0, _GDIPlus_ImageGetWidth($hBitmap), _GDIPlus_ImageGetHeight($hBitmap), $GDIP_ILMREAD, $GDIP_PXF24RGB)
|
|---|
| 11 | _GDIPlus_BitmapUnlockBits($hBitmap, $tData)
|
|---|
| 12 | Sleep(50)
|
|---|
| 13 | $aMem = MemGetStats()
|
|---|
| 14 | ConsoleWrite("original function; step " & $i & "; mem usage: " & $aMem[0] & @LF)
|
|---|
| 15 | Next
|
|---|
| 16 |
|
|---|
| 17 | ConsoleWrite(@LF)
|
|---|
| 18 |
|
|---|
| 19 | For $i=1 To 50
|
|---|
| 20 | $tData = _GDIPlus_BitmapLockBits($hBitmap, 0, 0, _GDIPlus_ImageGetWidth($hBitmap), _GDIPlus_ImageGetHeight($hBitmap), $GDIP_ILMREAD, $GDIP_PXF24RGB)
|
|---|
| 21 | _GDIPlus_BitmapUnlockBits_($hBitmap, $tData)
|
|---|
| 22 | Sleep(50)
|
|---|
| 23 | $aMem = MemGetStats()
|
|---|
| 24 | ConsoleWrite("test function; step " & $i & "; mem usage: " & $aMem[0] & @LF)
|
|---|
| 25 | Next
|
|---|
| 26 |
|
|---|
| 27 | Func _GDIPlus_BitmapUnlockBits_($hBitmap, $tBitmapData)
|
|---|
| 28 | Local $aResult
|
|---|
| 29 |
|
|---|
| 30 | $aResult = DllCall($ghGDIPDll, "int", "GdipBitmapUnlockBits", "hwnd", $hBitmap, "ptr", DllStructGetPtr($tBitmapData)) ;Type ptr instead of int*
|
|---|
| 31 | If @error Then Return SetError(@error, @extended, False)
|
|---|
| 32 | Return SetError($aResult[0], 0, $aResult[0] = 0)
|
|---|
| 33 | EndFunc ;==>_GDIPlus_BitmapUnlockBits
|
|---|
