Hi,



ich kenn leider das raw Format nicht.Hast du da eine Definition, wie

das Format aussieht



Wenn du das Bild aber in eine Picturebox reinbekommst, dann kann es über ein Umweg gehen.





'Create a new project, add a command button and a picture box to the project, load a picture into the picture box.

'Paste this code into Form1

Private Type BITMAP

bmType As Long

bmWidth As Long

bmHeight As Long

bmWidthBytes As Long

bmPlanes As Integer

bmBitsPixel As Integer

bmBits As Long

End Type

Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long

Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long

Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long

Dim PicBits() As Byte, PicInfo As BITMAP

Dim Cnt As Long, BytesPerLine As Long

Private Sub Command1_Click()

'KPD-Team 1999

'URL: http://www.allapi.net/

'E-Mail: KPDTeam@Allapi.net

'Get information (such as height and width) about the picturebox

GetObject Picture1.Image, Len(PicInfo), PicInfo

'reallocate storage space

BytesPerLine = (PicInfo.bmWidth * 4 + 3) And &HFFFFFFFC '1 Pixel sind 4 Byte: BGR + leer

ReDim PicBits(1 To BytesPerLine * PicInfo.bmHeight) As Byte

'Copy the bitmapbits to the array

GetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)

'Invert the bits

For Cnt = 1 To (UBound(PicBits))

PicBits(Cnt) = 255 - PicBits(Cnt)

Next Cnt

'Set the bits back to the picture

SetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)

'refresh

Set Picture1.Picture = Picture1.Image

Picture1.Refresh

End Sub
Gruss Klapperstorch
----------------------------------------------------
Aus Felern lernt man oder...
Edjucashon isnt woerking

geschrieben von Klapperstorch , 03.06.2003, 20:58 Uhr , 137 mal gelesen