GetPixel и большие изображения

[artysite]

Требуется занести значение цвета каждой точки Picturebox'а в массив с помощью GetPixel. Проблема в том, что если размер картинки больше размера формы, то данные о той части картинки, что не уместилась на форме, не воспринимаются GetPixel'ом. Подскажите как быть?

[GSerg]

Требуется занести значение цвета каждой точки Picturebox'а в массив с помощью GetPixel.

Ещё раз.
Требуется занести значение цвета каждой точки Picturebox'а в массив или же требуется с помощью GetPixel?

[artysite]

Ещё раз.
Требуется занести значение цвета каждой точки Picturebox'а в массив или же требуется с помощью GetPixel?

Попытаюсь понятнее.
С помощью GetPixel'a забираю цвет всех точек PictureBox'a и помещаю в массив

[alibek]

А зачем?
И почему GetPixel, а не Point?

[GSerg]

Попытаюсь понятнее.

Понятнее не стало.
Повторю вопрос ещё раз: имеется требование использовать GetPixel, или же она используется просто потому, что ничего другого в голову не пришло?

[artysite]

А зачем?

Чтобы потом обрабатывать изображения уже из массива, так быстрее получается

И почему GetPixel, а не Point?

Опять же GetPixel быстрее работает, но и Point не помогает при данной проблеме

[artysite]

Попытаюсь понятнее.

Понятнее не стало.
Повторю вопрос ещё раз: имеется требование использовать GetPixel, или же она используется просто потому, что ничего другого в голову не пришло?

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

[GSerg]

Вопрос: Как можно с помощью X сделать Y?

Ответ: Если вы хотите сделать Y, надо так и спрашивать, не предполагая заранее использование метода, который может вовсе не подходить. Вопросы такого вида часто задают те, кто не просто ничего не знает об X, но сбит с толку решаемой проблемой Y и слишком сконцентрирован на деталях своей конкретной ситуации. Обычно лучше игнорировать таких людей, пока они не сформулируют свою проблему лучше.

Это первое, и второе - пользуйся поиском.
http://bbs.vbstreets.ru/viewtopic.php?t=30880
http://bbs.vbstreets.ru/viewtopic.php?t=29791
<куча других>

[ZET74]

Я столкнулся с той же проблемой.
Изображение .bmp изначально лежит в файле. Нужно получить цвет пикселя, определенного координатами. Пробовал получать из picturebox с помощью .Point и GetPixel, но картинка большая, если координаты выходят за форму, то возвращается -1.
В каком направлении мыслить дальше?

[GSerg]

Помысли, например, не прочитать ли ответ, идущий непосредственно перед твоим вопросом.

[CodeName33]

ZET74 из BMP файла можно получить цвет точки и не загружая его в пямять, тут было куча примеров для работы с BMP.

[X-hacker]

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

Type BITMAPINFOHEADER
Type TRGB
    B As Byte
    G As Byte
    R As Byte
End Type
Declare GetDIBits() 'Не забудь BITMAPINFO заменить на BITMAPINFOHEADER
'Сокращено в целях экономии места, юзай АпиВьювер

Private Sub GetPixels(IPicture As PictureBox, IWidth As Long, IHeight As Long, DestArray() As TRGB )
      Dim BM As BITMAPINFOHEADER

      With BM
          .bmWidth=IWidth
          .bmHeight=IHeight
          .bmSize=40
          .bmSizeImage=IWidth*IHeight*3
          .bmPlanes=1
      End With

      Redim DestArray(BM.bmWidth, BM.bmHeight)
   
      Call GetDIBits(IPicture.hDC, IPicture.Image,0,0,IHeight,DestArray(0,0),BM,0)
End Sub


Вроде так, просто у мня нет возможности проверить, я в клубе сижу.
Если сильно надо, дам рабочую вместе с кодом.
А гадости вроде GetPixel и SetPixel просто !забудь!

[CoTaskMemFree]

Гадости?

ЗЫ. Интересно, что означает префикс I в аргументах функции GetPixels

[keks-n]

На самом деле, функции шустрые. Их вызов вкупе с циклом из VB медленный.

[ZET74]

Вроде так, просто у мня нет возможности проверить, я в клубе сижу.
Если сильно надо, дам рабочую вместе с кодом.
А гадости вроде GetPixel и SetPixel просто !забудь!

извините за тупость, разобраться не могу

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

Public 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



Public Type TRGB
    B As Byte
    G As Byte
    R As Byte
End Type
'Declare GetDIBits() 'Íå çàáóäü BITMAPINFO çàìåíèòü íà BITMAPINFOHEADER
Public 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 BITMAPINFOHEADER, _
        ByVal wUsage As Long) As Long
       
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long


'Ñîêðàùåíî â öåëÿõ ýêîíîìèè ìåñòà, þçàé ÀïèÂüþâåð

Public Sub GetPixels(IPicture As PictureBox, IWidth As Long, IHeight As Long, DestArray() As TRGB)
      Dim BM As BITMAPINFOHEADER

      With BM
          .bmWidth = IWidth
          .bmHeight = IHeight
          .bmSize = 40
          .bmSizeImage = IWidth * IHeight * 3
          .bmPlanes = 1
      End With

      ReDim DestArray(BM.bmWidth, BM.bmHeight)
   
      Call GetDIBits(IPicture.hDC, IPicture.Image, 0, 0, IHeight, DestArray(0, 0), BM, 0)
End Sub


1) в функции getdibits 7 параметров, а в функции getpixels она вызывается с восемью параметрами. что лишнее?
2) как вызывать функцию getpixels? что писать в IPicture и DestArray()
3) еще раз извините за тупость

[X-hacker]

Ноль там один лишний:
1 Контекст устройства
2 Указатель на битмап
3 Вроде первый индекс
4 Последний индекс(скольлко байт надо считать)
5 Указатель на массив или память
6 указатель на BitmapInfo
7 Способ применения (чаще всего ноль)

Вроде так

Кстати, если надо нарисовать точки, юзай SetPixelV() вместо SetPixel() ИМХО она быстрее!

Для вывода картинки юзай SetDIBitsToDevice()

[keks-n]

X-hacker
Есть более удобная StretchDIBits. Она помедленнее будет, но многое умеет.

[X-hacker]

Требуется занести значение цвета каждой точки Picturebox'а в массив с помощью GetPixel. Проблема в том, что если размер картинки больше размера формы, то данные о той части картинки, что не уместилась на форме, не воспринимаются GetPixel'ом. Подскажите как быть?

keks-n
По-моему автор хотел спросить как получить байты изображения а не как сделать ресайз картинки, что вроде StretchDIBits() и делает и она ему вроде как не нужна.

На самом деле, функции шустрые. Их вызов вкупе с циклом из VB медленный.

Ничего подобного:

Си++:

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

{     
       DWORD      X;
       DWORD      Y;
       HDC           DC;
       
       DC=CreateDC("DISPLAY",NULL,NULL,NULL);
       for (X=0;X<500;X++)
             {
                    for (Y=0;Y<500;Y++);
                          {
                                  SetPixelV(DC,X,Y,255);  //Red Color
                           }
              }
}


VB:

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

      Dim X As Long,Y As Long,DC As Long
      DC=CreateDC("DISPLAY",vbNullString,vbNullString,vbNullString)
      For X=0 To 500
            For Y=0 To 500
                 Call SetPixelV(DC,X,Y,255)
            Next
      Next


Оба кода работают с одинаковой скоростью будь то сишный цикл или вб-шный, будь то GetPixel() или SetPixelV()

Вывод: функция работает медленнее минимального времени выполнения цикла и юзать GetDIBits() будет быстрее для больших изображений, ОДНАКО если нужно получить цвета нескольких точек в каком-либо математическо-рисовальном алг-ме то БЕЗУСЛОВНО лучше делать это с помощью GetPixel()

artysite
У PictureBox'a не забудь поставить AutoRedraw=True т.к. картинка может не только выходить за какие-либо рамки но и попросту быть невидимой.

[ZET74]

Если не трудно, напишите мне пожалуйсто конкретный пример от А до Я, который загружает файл в память и возвращает цвет по координатам X и Y