PictureFromBits and BitsFromPicture

[sosed213]

Здраствуйте!

После долгова поиска, ненашел ничего кроме PictureFromBits.
Помогите кто сможет и кто знает!

Надо из PictureBox картинку преобразовать в массив со всеми параметрами (размерами, глубиной цвета и тд.) Тоесть написать обратную функции PictureFromBits!!!

В сети есть пример SaveToJPEG, но там както непонятно, все ходит ходит, а в итоге put m_data()!


Заранее всем спасибо!

[sosed213]

Нашел и чуть чуть подправил примерчик! Все бы было бы отлично но там используется STG.tlb. А мне бы хотелось без дополнительных компонентов.

[Бяка]

Вот попробуй

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


Public Declare Function SetDIBits Lib "gdi32" (ByVal hdc As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As Any, ByVal wUsage As Long) As Long

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 Any, ByVal wUsage As Long) As Long


Public Type BITMAPINFOHEADER
        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 SSPBITMAPINFO
  Header As BITMAPINFOHEADER
  BITS() As Byte
End Type

Public SourceBuffer As SSPBITMAPINFO
Private DestBuffer As SSPBITMAPINFO

'получаем масив байт из рисунка
  Sub GetPictur(ByRef Source As Object, ByVal Width As Long, ByVal Height As Long)
Dim SourceWidth As Long, destWidth As Long
Dim SourceHeight As Long, destHeight As Long

  SourceWidth = Width
  SourceHeight = Height
  destWidth = Width
  destHeight = Height
 
  ReDim SourceBuffer.BITS(3, SourceWidth - 1, SourceHeight - 1)
  With SourceBuffer.Header
    .biSize = 40
    .biWidth = SourceWidth
    .biHeight = -SourceHeight
    .biPlanes = 1
    .biBitCount = 32
    .biSizeImage = (3 * SourceWidth * SourceHeight) + 10
  End With
 
  GetDIBits Source.hdc, Source.Image.handle, 0, SourceHeight, SourceBuffer.BITS(0, 0, 0), SourceBuffer, 0&


  End Sub

'применяем к масиву байт эффект старая фотография и обратно ложим на обьект в виде рисунка
Public Sub Filrt(ByRef Source As Object, ByRef Dest As Object, ByVal Width As Long, ByVal Height As Long)
Dim X, Y,  R1, g1, b1
On Error Resume Next
Dim rx, gx, bx, ry, by, gy


  Call GetPicture(Source, Width, Height)

  For Y = 0 To Height - 1
    For X = 0 To Width - 1
    R1 = SourceBuffer.BITS(2, X, Y)
    g1 = SourceBuffer.BITS(1, X, Y)
    b1 = SourceBuffer.BITS(0, X, Y)

          rx = R1 * 0.299 + g1 * 0.587 + b1 * 0.114
          r = IIf(rx + 64 > 255, 255, rx + 64)
          g = IIf(rx + 24 > 255, 255, rx + 24)
          B = IIf(rx + 8 > 255, 255, rx +



        If (r < 0) Then r = 0 Else If (r > 255) Then r = 255
        If (g < 0) Then g = 0 Else If (g > 255) Then g = 255
        If (B < 0) Then B = 0 Else If (B > 255) Then B = 255
        DestBuffer.BITS(2, X, Y) = r
        DestBuffer.BITS(1, X, Y) = g
        DestBuffer.BITS(0, X, Y) = B
    Next X

  Next Y
  SetDIBits Dest.hdc, Dest.Image.handle, 0, Height, DestBuffer.BITS(0, 0, 0), DestBuffer, 0&

End Sub

[sosed213]

Вот попробуй

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



'получаем масив байт из рисунка
  Sub GetPictur(ByRef Source As Object, ByVal Width As Long, ByVal Height As Long)
Dim SourceWidth As Long, destWidth As Long
Dim SourceHeight As Long, destHeight As Long

  SourceWidth = Width
  SourceHeight = Height
  destWidth = Width
  destHeight = Height
 
  ReDim SourceBuffer.BITS(3, SourceWidth - 1, SourceHeight - 1)
  With SourceBuffer.Header
    .biSize = 40
    .biWidth = SourceWidth
    .biHeight = -SourceHeight
    .biPlanes = 1
    .biBitCount = 32
    .biSizeImage = (3 * SourceWidth * SourceHeight) + 10
  End With
 
  GetDIBits Source.hdc, Source.Image.handle, 0, SourceHeight, SourceBuffer.BITS(0, 0, 0), SourceBuffer, 0&


  End Sub



Спасибо, но данный вариант не пойдёт, т.к. если я зделаю:

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

Put SourceBuffer.BITS()

то сохранённый файл не откроется на просмотр в программе просмотра изображений.

[Matew]

sosed213, tlb с ЕХЕ распространять не надо.

[sosed213]

sosed213, tlb с ЕХЕ распространять не надо.

Точно! Проверил и правда! Спасибо!

[sosed213]

У меня есть ещё вопросох, хотя не по теме, но около того:

Что такое hDC, и с чем его едят? И как мне создать виртуальный hDC, не привязанный к обыекту, например Picture1.hdc, но чтобы там можно было рисовать. Например когда я делаю так:

DrawIconEx Picture1.hdc, 0, 0, mIcon, 50, 50, 0, 0, DI_NORMAL

То он рисует иконку на Picture1.hdc, а как создать виртуальный hdc, чтобы можно было с ним работать дальше?

[M.A.R.K]

sosed213
Поиск по:
CreateCompatibleDC, CreateCompatibleBitmap и т.д.

[sosed213]

sosed213
Поиск по:
CreateCompatibleDC, CreateCompatibleBitmap и т.д.

Спасибо за попытку помочь!

[sosed213]

А у когонибудь есть пример(код) загрузки *.png файлов?