Добрый вечер, мастера программирования на автоит.
Помогите новичку.
У меня есть скрипт, анализирующий цвета картинки - и создающий числовую матрицу.
Как сохранить эту матрицу - в закрытый файл 1.xls (начиная с ячейки A1) ?
Помогите новичку.
У меня есть скрипт, анализирующий цвета картинки - и создающий числовую матрицу.
Как сохранить эту матрицу - в закрытый файл 1.xls (начиная с ячейки A1) ?
Код:
#include <GDIPlus.au3>
$sImage = @ScriptDir & "\1.jpg"
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile($sImage)
$iWidth = _GDIPlus_ImageGetWidth($hImage)
$iHeight = _GDIPlus_ImageGetHeight($hImage)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
Global $iIndex, $iSize = $iWidth * $iHeight, $aPixels[$iHeight][$iWidth]
$tBits = DllStructCreate("dword[" & $iSize & "]")
_WinAPI_GetBitmapBits($hBitmap, 4 * $iSize, DllStructGetPtr($tBits))
For $i = 0 To $iHeight - 1
For $j = 0 To $iWidth - 1
$iIndex += 1
$iColor = DllStructGetData($tBits, 1, $iIndex)
$iRed = BitAND(BitShift($iColor, 16), 0xFF)
$iGreen = BitAND(BitShift($iColor, 8), 0xFF)
$iBlue = BitAND($iColor, 0xFF)
If $iRed > 150 And $iGreen < 70 And $iBlue < 70 Then
$aPixels[$i][$j] = 1
Else
$aPixels[$i][$j] = 0
EndIf
Next
Next
_WinAPI_DeleteObject($hBitmap)
#include <Array.au3>
_ArrayDisplay($aPixels)