用VB写高效的图像处理程序_vb6高效绘图

typedef struct tagBITMAPFILEHEADER { // bmfh

    WORD    bfType;

    DWORD   bfSize;

    WORD    bfReserved1;

    WORD    bfReserved2;

    DWORD   bfOffBits;

} BITMAPFILEHEADER;

Type BITMAPFILEHEADER

    bfType(0 to 1) As Byte

    bfSize As Long

    bfReserved1 As Integer

    bfReserved2 As Integer

    bfOffBits As Long

End Type

typedef struct tagBITMAPINFOHEADER{ // bmih

    DWORD  biSize;

    LONG   biWidth;

    LONG   biHeight;

    WORD   biPlanes;

    WORD   biBitCount;

    DWORD  biCompression;

    DWORD  biSizeImage;

    LONG   biXPelsPerMeter;

    LONG   biYPelsPerMeter;

    DWORD  biClrUsed;

    DWORD  biClrImportant;

} BITMAPINFOHEADER;

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

typedef struct tagRGBQUAD { // rgbq

    BYTE    rgbBlue;

    BYTE    rgbGreen;

    BYTE    rgbRed;

    BYTE    rgbReserved;

} RGBQUAD;

Private Type RGBQUAD

    rgbBlue As Byte

    rgbGreen As Byte

    rgbRed As Byte

    rgbReserved As Byte

End Type

int SetDIBitsToDevice(

  HDC hDC,              // handle to device context

  int XDest,            // x-coordinate of upper-left corner of dest. rect.

  int YDest,            // y-coordinate of upper-left corner of dest. rect.

  DWORD dwWidth,        // source rectangle width

  DWORD dwHeight,       // source rectangle height

  int XSrc,             // x-coordinate of lower-left corner of source rect.

  int YSrc,             // y-coordinate of lower-left corner of source rect.

  UINT uStartScan,      // first scan line in array

  UINT cScanLines,      // number of scan lines

  CONST VOID *lpvBits,  // address of array with DIB bits

  CONST BITMAPINFO *lpbmi,  // address of structure with bitmap info.

  UINT fuColorUse       // RGB or palette indexes

);

int StretchDIBits(

  HDC hDC,                // handle to device context

  int XDest,              // x-coordinate of upper-left corner of dest. rectangle

  int YDest,              // y-coordinate of upper-left corner of dest. rectangle

  int nDestWidth,         // width of destination rectangle

  int nDestHeight,        // height of destination rectangle

  int XSrc,               // x-coordinate of upper-left corner of source rectangle

  int YSrc,               // y-coordinate of upper-left corner of source rectangle

  int nSrcWidth,          // width of source rectangle

  int nSrcHeight,         // height of source rectangle

  CONST VOID *lpBits,            // address of bitmap bits

  CONST BITMAPINFO *lpBitsInfo,  // address of bitmap data

  UINT iUsage,                   // usage flags

  DWORD dwRop                    // raster operation code

);

HBITMAP CreateDIBitmap(

  HDC hDC,                  // handle to device context

  CONST BITMAPINFOHEADER *lpbmih,  // pointer to bitmap size and format data

  DWORD fdwInit,            // initialization flag

  CONST VOID *lpbInit,      // pointer to initialization data

  CONST BITMAPINFO *lpbmi,  // pointer to bitmap color-format data

  UINT fuUsage              // color-data usage

);

HBITMAP CreateDIBSection(

  HDC hDC,          // handle to device context

  CONST BITMAPINFO *lpbmi,

                    // pointer to structure containing bitmap size, format, and color data

  UINT iUsage,      // color data type indicator: RGB values or palette indexes

  VOID *ppvBits,    // pointer to variable to receive a pointer to  the bitmap's bit values

  HANDLE hSection,  // optional handle to a file mapping object

  DWORD dwOffset    // offset to the bitmap bit values within the file mapping object

);

int GetDIBits(

  HDC hDC,           // handle to device context

  HBITMAP hbmp,      // handle to bitmap

  UINT uStartScan,   // first scan line to set in destination bitmap

  UINT cScanLines,   // number of scan lines to copy

  LPVOID lpvBits,    // address of array for bitmap bits

  LPBITMAPINFO lpbmi,// address of structure with bitmap data

  UINT uUsage        // RGB or palette index

);

int SetDIBits(

  HDC hDC,                  // handle to device context

  HBITMAP hbmp,             // handle to bitmap

  UINT uStartScan,          // starting scan line

  UINT cScanLines,          // number of scan lines

  CONST VOID *lpvBits,      // array of bitmap bits

  CONST BITMAPINFO *lpbmi,  // address of structure with bitmap data

  UINT uUsage               // type of color indexes to use

);

UINT GetDIBColorTable(

  HDC hDC,          // handle to device context whose DIB is of interest

  UINT uStartIndex, // color table index of first entry to retrieve

  UINT cEntries,    // number of color table entries to retrieve

  RGBQUAD *pColors  // pointer to buffer that receives color table entries

);

UINT SetDIBColorTable(

  HDC hDC,                // handle to device context whose DIB is of interest

  UINT uStartIndex,       // color table index of first entry to set

  UINT cEntries,          // number of color table entries to set

  CONST RGBQUAD *pColors  // pointer to array of color table entries

);

'绘制

Private Sub DrawIt()

    Dim I As Long, J As Long

    Static K As Long

    

    For I = 0 To ImgHeight - 1 'Y

        For J = 0 To ImgWidth - 1 'X

            PicView.PSet (J, I), RGB(J And &HFF, I And &HFF, (J + K) And &HFF)

        Next J

    Next I

    

    K = (K + 1) And &HFF

    

End Sub

'绘制

Private Sub DrawIt()

    Dim I As Long, J As Long

    Static K As Long

    Dim iLinePtr As Long, iCurPtr As Long

    

    iLinePtr = (m_BI.biHeight - 1) * m_LineBytes 'DIB是逆序存储的

    For I = 0 To ImgHeight - 1 'Y

        iCurPtr = iLinePtr

        For J = 0 To ImgWidth - 1 'X

            'PicView.PSet (J, I), RGB(J And &HFF, I And &HFF, (J + K) And &HFF)

            m_MapData(iCurPtr + 2) = J And &HFF       'Red

            m_MapData(iCurPtr + 1) = I And &HFF       'Green

            m_MapData(iCurPtr + 0) = (J + K) And &HFF 'Blue

            iCurPtr = iCurPtr + 3 '24位

        Next J

        iLinePtr = iLinePtr - m_LineBytes

    Next I

    

    K = (K + 1) And &HFF

    

End Sub

'绘制

Private Sub DrawIt()

    Dim I As Long, J As Long

    Static K As Long

    Dim pByte() As Byte, pBytePtr As SAFEARRAY1D

    Dim iLinePtr As Long

    

    ' check Image

    Debug.Assert m_pDIB <> 0

    

    '建立模拟指针

    MakePoint VarPtrArray(pByte), pBytePtr, 1

    

    Ptr(pBytePtr) = m_pDIB + (m_BI.biHeight - 1) * m_LineBytes 'DIB是逆序存储的

    iLinePtr = pBytePtr.pvData

    For I = 0 To ImgHeight - 1 'Y

        pBytePtr.pvData = iLinePtr

        For J = 0 To ImgWidth - 1 'X

            'PicView.PSet (J, I), RGB(J And &HFF, I And &HFF, (J + K) And &HFF)

            pByte(2) = J And &HFF       'Red

            pByte(1) = I And &HFF       'Green

            pByte(0) = (J + K) And &HFF 'Blue

            pBytePtr.pvData = pBytePtr.pvData + 3 '24位

        Next J

        iLinePtr = iLinePtr - m_LineBytes

    Next I

    

    '释放模拟指针

    FreePoint VarPtrArray(pByte)

    

    K = (K + 1) And &HFF

    

End Sub

void CImgTestDlg::DrawIt() 

{

	int i=0,j=0;

	static int k=0;

	BYTE *pByte, *pLinePtr;



	pLinePtr = (BYTE*)pDIB + (bi.biHeight-1)*LineBytes;

	for(i=0; i<IMGHEIGHT; i++)

	{

		pByte = pLinePtr;

		for(j=0; j<IMGWIDTH; j++)

		{

			pByte[2] = j & 0xff;

			pByte[1] = i & 0xff;

			pByte[0] = (j+k) & 0xff;

			pByte = pByte + 3;

		}

		pLinePtr = pLinePtr - LineBytes;

	}



	k = (k+1) & 0xff;



}

'渲染

Private Sub Render()

    Dim I As Long, J As Long

    Static K As Long

    Dim ddsdInfo As DDSURFACEDESC2

    Dim IsOK As Boolean

    Dim cbPitch As Long

    Dim cbPixel As Long

    Dim iIdxR As Long

    Dim iIdxG As Long

    Dim iIdxB As Long

    Dim iMaxX As Long, iMaxY As Long

    Dim pByte() As Byte, pBytePtr As SAFEARRAY1D

    Dim iLinePtr As Long

    

    ' check Image

    'Debug.Assert m_pDIB <> 0

    Debug.Assert Not m_ddsRender Is Nothing

    

    ' Main

    With m_ddsRender

        'Render

        Call .Lock(m_rctSurf, ddsdInfo, DDLOCK_SURFACEMEMORYPTR Or DDLOCK_WRITEONLY Or DDLOCK_NOSYSLOCK Or DDLOCK_WAIT, 0)

        IsOK = CheckPixelFormat(ddsdInfo.ddpfPixelFormat)

        If IsOK Then

            With ddsdInfo

                Debug.Assert .lpSurface

                cbPitch = .lPitch

                With .ddpfPixelFormat

                    cbPixel = (.lRGBBitCount) / 8

                    iIdxR = MaskToRShift(.lRBitMask) / 8

                    iIdxG = MaskToRShift(.lGBitMask) / 8

                    iIdxB = MaskToRShift(.lBBitMask) / 8

                End With

                iMaxX = .lWidth - 1

                iMaxY = .lHeight - 1

            End With

            

            '建立模拟指针

            MakePoint VarPtrArray(pByte), pBytePtr, 1

            

            Ptr(pBytePtr) = ddsdInfo.lpSurface

            iLinePtr = pBytePtr.pvData

            For I = 0 To iMaxY 'Y

                pBytePtr.pvData = iLinePtr

                For J = 0 To iMaxX 'X

                    'PicView.PSet (J, I), RGB(J And &HFF, I And &HFF, (J + K) And &HFF)

                    pByte(iIdxR) = J And &HFF       'Red

                    pByte(iIdxG) = I And &HFF       'Green

                    pByte(iIdxB) = (J + K) And &HFF 'Blue

                    pBytePtr.pvData = pBytePtr.pvData + cbPixel '下一个像素

                Next J

                iLinePtr = iLinePtr + cbPitch '下一个扫描行

            Next I

            

            '释放模拟指针

            FreePoint VarPtrArray(pByte)

            

        End If

        Call .Unlock(m_rctSurf)

        

        'Error Pixel Format

        If IsOK = False Then

            Call .BltColorFill(m_rctSurf, vbBlack)

            Call .SetForeColor(vbWhite)

            Call .DrawText(0, &H20, "Error Pixel Format!", False)

        End If

        

    End With

    

    K = (K + 1) And &HFF

    

End Sub

'渲染

Private Sub Render()

    Dim I As Long, J As Long

    Static K As Long

    Dim ddsdInfo As DDSURFACEDESC2

    Dim IsOK As Boolean

    Dim cbPitch As Long

    Dim cbPixel As Long

    Dim iIdxR As Long

    Dim iIdxG As Long

    Dim iIdxB As Long

    Dim iMaxX As Long, iMaxY As Long

    Dim pByte() As Byte

    Dim iCurPtr As Long

    

    ' check Image

    'Debug.Assert m_pDIB <> 0

    Debug.Assert Not m_ddsRender Is Nothing

    

    ' Main

    With m_ddsRender

        'Render

        Call .Lock(m_rctSurf, ddsdInfo, DDLOCK_SURFACEMEMORYPTR Or DDLOCK_WRITEONLY Or DDLOCK_NOSYSLOCK Or DDLOCK_WAIT, 0)

        IsOK = CheckPixelFormat(ddsdInfo.ddpfPixelFormat)

        If IsOK Then

            With ddsdInfo

                Debug.Assert .lpSurface

                cbPitch = .lPitch

                With .ddpfPixelFormat

                    cbPixel = (.lRGBBitCount) / 8

                    iIdxR = MaskToRShift(.lRBitMask) / 8

                    iIdxG = MaskToRShift(.lGBitMask) / 8

                    iIdxB = MaskToRShift(.lBBitMask) / 8

                End With

                iMaxX = .lWidth - 1

                iMaxY = .lHeight - 1

            End With

            

            Call .GetLockedArray(pByte)

            

            For I = 0 To iMaxY 'Y

                iCurPtr = 0

                For J = 0 To iMaxX 'X

                    'PicView.PSet (J, I), RGB(J And &HFF, I And &HFF, (J + K) And &HFF)

                    pByte(iCurPtr + iIdxR, I) = J And &HFF      'Red

                    pByte(iCurPtr + iIdxG, I) = I And &HFF      'Green

                    pByte(iCurPtr + iIdxB, I) = (J + K) And &HFF 'Blue

                    iCurPtr = iCurPtr + cbPixel '下一个像素

                Next J

            Next I

            

        End If

        Call .Unlock(m_rctSurf)

        

        'Error Pixel Format

        If IsOK = False Then

            Call .BltColorFill(m_rctSurf, vbBlack)

            Call .SetForeColor(vbWhite)

            Call .DrawText(0, &H20, "Error Pixel Format!", False)

        End If

        

    End With

    

    K = (K + 1) And &HFF

    

End Sub

    ' init Image

    With ddsdInfo

        .lFlags = DDSD_CAPS Or DDSD_HEIGHT Or DDSD_WIDTH Or DDSD_PIXELFORMAT

        With .ddsCaps

            .lCaps = DDSCAPS_OFFSCREENPLAIN Or DDSCAPS_SYSTEMMEMORY 'CPU访问内存比访问显存快

        End With

        .lWidth = ImgWidth

        .lHeight = ImgHeight

        .ddpfPixelFormat = m_ddsdInfo.ddpfPixelFormat

    End With

    Set m_ddsRender = m_dxDraw.CreateSurface(ddsdInfo)