Как превратить изображение в массив?

[Sofist]

Сталкнулся с такой задачей: необходимо картинку из PictureBox перегнать в массив. Пробывал это сделать так:
1. запрашивал цвет пикселя через PictureBox.Point(i,j)
2. загонял полученное значение в массив.
Но проблема в том, что картинку 320х240 такой алгоритм долго обрабатыват.
Подскажите как ускорить этот процесс? и есть ли API функция для решения этой задачи?
Заранее спасибо!!

[Kolobuk]

С картинками мало работал, но файл в массив загоняется просто:

Код: Выделить всё

Open "C:\Kuku.exe" For Binary As #1 Len = 1

Dim MAS() As Byte
ReDim MAS(LOF(1)) As Byte
Get #1, 1, MAS

Close #1

[tyomitch]

Подскажите как ускорить этот процесс? и есть ли API функция для решения этой задачи?

GetDIBits

[BV]

GetDIBits

[edit]
Что интересно - ответил я раньше Темыча, а пост отправился на 6 минут позже... более того, форму "Просмотреть сообщение" я так и не увидел, после нажатия кнопки "Отправить" форум завис.
[/edit]

[Andrey Fedorov]

Подскажите как ускорить этот процесс? и есть ли API функция для решения этой задачи?

GetDIBits

Э-э-э-х... А я так ждал ответа про твою оболочку...

[SyncM]

Попробуй вот так

Код: Выделить всё

Public Pica() As Long
ReDim Pica(pic.ScaleWidth, pic.ScaleHeight)
For Xa = 0 To pic.ScaleWidth
  For Ya = 0 To pic.ScaleHeight
    Pica(Xa, Ya) = pic.Point(Xa, Ya)
  Next
Next

[tyomitch]

SyncM, вопрос-то прочитал?

[EUGY]

Код: Выделить всё


Option Explicit

Private Type BITMAPINFOHEADER '40 bytes
        biSize As Long
        biWidth As Long
        biHeight As Long
        biPlanes As Integer
        biBitCount As Integer
        biCompression As Long
        biSizeImage As Long
        biXPelsPerMeter As Long
        biYPelsPerMeter As Long
        biClrUsed As Long
        biClrImportant As Long
End Type
'---------------------------------------------------
Private Type BITMAPINFO
        bmiHeader As BITMAPINFOHEADER
        bmiColors As String * 1024
End Type

Private Declare Function GetDIBits Lib "gdi32" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long


Private Sub Command1_Click()
    PushPictureInBite Picture1
End Sub


Private Sub PushPictureInBite(pic As PictureBox)
    Dim bt() As Byte 'streem

Dim bim As BITMAPINFO
  bim.bmiHeader.biSize = 40
 
   If pic.Picture.Type <> 1 Then
        MsgBox "Ãðàíàòû íå òîé ñèñòåìû"
        Exit Sub
   End If
       
       
        Call GetDIBits(pic.hdc, pic.Picture.Handle, 0, 0, ByVal 0, bim, ByVal 0)
        ReDim bt(bim.bmiHeader.biSizeImage - 1)
        Call GetDIBits(pic.hdc, pic.Picture.Handle, 0, bim.bmiHeader.biHeight, ByVal VarPtr(bt(0)), bim, ByVal 0)
       
        ' RGB (0)
        'bt(0) -
        'bt(1) -
        'bt(2) -
       
        ' RGB (1)
        'bt(3) -
        'bt(4) -
        'bt(5) -
       
        '...
       
End Sub