VB中有没有UCHAR类型?
UCHAR ucHorzData[1280 * 2]; UINT nHorzSize = 1280; for(UINT i = 0; i < 512; i++) { memcpy(ucHorzData, m_CapInfo.Buffer + i * nHorzSize, nHorzSize); memcpy(m_CapInfo.Buffer + i * nHorzSize, m_CapInfo.Buffer + (512 - 1 - i) * nHorzSize, nHorzSize); memcpy(m_CapInfo.Buffer + (512 - 1 - i) * nHorzSize, ucHorzData, nHorzSize); }
Dim ucHorzData(2560) As Byte Dim nHorzSize As Integer nHorzSize = 1280 Dim i As Integer For i = 0 To i < 512 CopyMemory [color=#FF0000]ucHorzData[/color], m_CapInfo.Buffer + i * nHorzSize, nHorzSize CopyMemory m_CapInfo.Buffer + i * nHorzSize, m_CapInfo.Buffer + (512 - 1 - i) * nHorzSize, nHorzSize CopyMemory m_CapInfo.Buffer + (512 - 1 - i) * nHorzSize, ucHorzData, nHorzSize Next