Печать

[Viktor1703 [?]]

Написал код для разбиения картинки на пиксельную матрицу, применить данный пример практически негде, сегодня мне понадобилось сделать такую конструкцию и я решил выложить его здесь, буду рад советам по упрощению и оптимизации кода.

Код: AutoIt [Выделить]

#include <GDIP.au3>
#include <GDIPlus.au3>
#include <Array.au3>

$Matrix = MatrixGetColor(@ScriptDir & '\Image1.png')
_ArrayDisplay($Matrix)

Func MatrixGetColor($sImage)
   
   Local $hImage, $iWidth, $iHeight, $iBitmap, $hBitmap
   
   _GDIPlus_Startup()
   $hImage = _GDIPlus_ImageLoadFromFile($sImage)
   $iWidth = _GDIPlus_ImageGetWidth($hImage)
   $iHeight = _GDIPlus_ImageGetHeight($hImage)
   $iBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
   $hBitmap = _GDIPlus_BitmapCreateFromHBITMAP($iBitmap)
   
   Dim $iMatrix[$iHeight][$iWidth]
   
   For $H = 0 To $iHeight - 1
      For $W = 0 To $iWidth - 1
         $iMatrix[$H][$W] = '0x' & Hex(_GDIPlus_BitmapGetPixel($hBitmap, $W, $H), 6)
      Next
   Next
   
   _GDIPlus_ImageDispose($hImage)
   _WinAPI_DeleteObject($iBitmap)
   _WinAPI_DeleteObject($hBitmap)
   _GDIPlus_Shutdown()
   
   Return $iMatrix
EndFunc  
 

Для работы необходима библиотека GDIP UDF

[Yashied [?]]

Если честно, то абсолютно бестолковый ход. Я конечно его не тестировал, но скорость должна быть "феноминальной".

Вообще, если у вас возникла необходимость переводить битмап в массив, то от этого сразу же нужно отказаться в пользу чего-нибудь другого. В крайнем случае использовать машинный код. Например, см. _WinAPI_IsAlphaBitmap() из WinAPIEx.au3.

Не подскажите, зачем вам понадобился массив?

[Viktor1703 [?]]

Да очень просто, я сам не сторонник такого хода, но меня попросили, есть возможность в Skype отправлять Html теги, вот и получается что можно таким образом отправить картинку:

Код: [Выделить]

<font color="#FEFEFE">#</font>
Получается что мы пишем # - почти белого цвета, но в Skype можно установить ещё и размер текста через тег и сделать пиксель белого цвета.

Если интересно. то вот пост на Хабрахабр на эту тему

[Yashied [?]]

Тогда, я думаю, лучше сразу резать данные битмапа рег. выражениями в html код.

[Viktor1703 [?]]

Чуть - чуть не понял, как это будет выглядеть?

[Yashied [?]]

Код: AutoIt [Выделить]

#Include <GDIPlus.au3>

_GDIPlus_Startup()
$hBitmap = _GDIPlus_BitmapCreateFromFile(@ScriptDir & '\Image.png')
$Width = _GDIPlus_ImageGetWidth($hBitmap)
$Height = _GDIPlus_ImageGetHeight($hBitmap)
$tMap = _GDIPlus_BitmapLockBits($hBitmap, 0, 0, $Width, $Height, $GDIP_ILMREAD, $GDIP_PXF32ARGB)
$bData = DllStructGetData(DllStructCreate('byte[' & ($Width * $Height * 4) & ']', DllStructGetData($tMap, 'Scan0')), 1)
_GDIPlus_BitmapUnlockBits($hBitmap, $tMap)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_Shutdown()

ConsoleWrite($bData & @CR)

Остается как-то отформатировать эту строку с помощью рег. выражений в то, что нужно. Но я с ними не дружу.

[Viktor1703 [?]]

И на этом большое спасибо с рег. выражениями попробую позже разобратся

• Александр
• InnI
• Serafim
• script_ru
• Nazgul666
• Pavel
• MockeR
• madmasles
• dwerf
• britanec74
• GenoTIP
• sl131
• eropov
• SummerLeaf
• nowost
• Kaster
• toter
• Nurgazy
• scanfail
• vnebe
• Nelsy
• Khaibit
• illja
• ---Zak---
• CredoC
• centaur
• chydik
• Yashied
• Yurmurk
• asdf8