关闭

VB实现RGB888到YUV422的转换

标签: vbinteger任务工作
4222人阅读 评论(5) 收藏 举报
分类:

从前面的bmp文件格式以及YUV的格式介绍中,我们已经知道了两种文件之间的差异。再从网上找到YUV与RGB之间的换算关系:

Y =   0.257R + 0.504G + 0.098B + 16
U = -0.148R - 0.291G + 0.439B + 128
V  =  0.439R - 0.368G - 0.071B + 128

 好,现在准备工作已经差不多了。需要的就是整理一下思路了。               

目的:将RGB888文件(即24位bmp) 转换为 YUV422(UYVY)

过程:RGB888  =》 YUV  =》 YUV422    (注:中间的YUV就是按照上面的公式进行RGB到YUV的转换,但是格式上还不是YUV格式,所以还需要再次转换成YUV422。)

好,下面就可以累长城了。

RGB到YUV转换的代码如下:


        Open strRGBfile For Binary As #1
        Open strYUVfile For Binary As #100
        
        'BMP 54个字节之后的是像素数据
        lengRGB = rgbHeight * rgbWidth * 3

        ReDim rgbContent(lengRGB - 1) '重定义数组,为读取文件做准备
        Get #1, 55, rgbContent() '取得第一文件的内容到数组
        Dim i, j As Long
        Dim r, g, b As Integer
        ReDim yuvContent(lengRGB - 1)

        For i = 0 To rgbHeight - 1
            For j = 0 To rgbWidth - 1
                b = rgbContent(3 * (rgbWidth * i + j) + 0)
                g = rgbContent(3 * (rgbWidth * i + j) + 1)
                r = rgbContent(3 * (rgbWidth * i + j) + 2)
                yuvContent(3 * (rgbWidth * (rgbHeight - 1 - i) + j)) = 0.257 * r + 0.504 * g + 0.098 * b + 16
                yuvContent(3 * (rgbWidth * (rgbHeight - 1 - i) + j) + 1) = -0.148 * r - 0.291 * g + 0.439 * b + 128
                yuvContent(3 * (rgbWidth * (rgbHeight - 1 - i) + j) + 2) = 0.439 * r - 0.368 * g - 0.071 * b + 128
            Next j
        Next i
        close #1     
        close #100

已经将RGB数据完全转变为YUV的格式了,再就是转变为YUV422(UYVY),代码如下:


        Open strYUVfile For Binary As #100
        Dim j As Long
        ReDim yuv422Content((lengRGB + 1) * 4 / 6 - 2)

        For j = 0 To (lengRGB / 6 - 1) 'UYVY
            yuv422Content(4 * j + 0) = Temp_yuvContent(6 * j + 1) / 2 + yuvContent(6 * j + 4) / 2  'U0
            yuv422Content(4 * j + 1) = Temp_yuvContent(6 * j)                                                            'Y0
            yuv422Content(4 * j + 2) = Temp_yuvContent(6 * j + 2) / 2 + yuvContent(6 * j + 5) / 2  'V0
            yuv422Content(4 * j + 3) = Temp_yuvContent(6 * j + 3)                                                      'Y1
        Next j
       
        Put #100, , yuv422Content() '把yuv的内容写到yuv444件中
        yuvlen = (lengRGB + 1) * 4 / 6 - 1
        SavetoCfunction
        '关闭文件
        Close #100
        MsgBox "完成。", vbInformation

这时候我们就完成任务了,YUV422的数据已经被写入了文件中。

要是有什么问题请及时与我联系!

下面show下我写的小软件吧:

已经实现的功能:

RGB888 =》YUV444

RGB888 =》YUV422(UYVY)

RGB888 =》YUV420 (YV12)

RGB888 =》YUV411 (YUYYVY)

YUV444          =》RGB888

YUV422(UYVY)  =》RGB888

YUV420 (YV12)   =》RGB888

YUV411 (YUYYVY) =》RGB888

剩下的格式还没有空去做,不过会做一个了另一个就简单多了。剩下的等以后有时间了再做吧!

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:385056次
    • 积分:5192
    • 等级:
    • 排名:第5628名
    • 原创:153篇
    • 转载:27篇
    • 译文:0篇
    • 评论:87条
    最新评论
    镜像链接