RGB颜色空间与YUV等颜色空间之间的转换单元

最新推荐文章于 2022-03-01 11:01:57 发布

不得闲

最新推荐文章于 2022-03-01 11:01:57 发布

阅读量1.7k

点赞数

分类专栏： Delphi编程文章标签： byte function windows c

本文链接：https://blog.csdn.net/suiyunonghen/article/details/3861910

版权

本文深入探讨了RGB颜色空间与YUV颜色空间之间的转换原理，详细阐述了转换过程中涉及的关键步骤和数学公式，并提供了相关的C语言实现函数，对于理解和应用这两种颜色空间的转换具有指导意义。

摘要由CSDN通过智能技术生成

DelphiCode:

unit RGBYUV;

interface
uses Windows,Classes,Graphics,Math;


function RGBToColor(R,G,B: Byte): TColor;overload;
function RGBToColor(Color : Longint): TColor;overload;
procedure ColorToYUV(RGB: TColor; out Y, Cb, Cr: byte);
function YUVtoColor(Y, Cb, Cr: Byte): TColor;


implementation


function RGBToColor(R,G,B: Byte): TColor;
begin
  Result := R or (G shl 8) or (B shl 16);
end;

function RGBToColor(Color : Longint): TColor;
var
  R,G,B,A : Byte;
begin
  R := Color and $FF;
  G := (Color shr 8) and $FF;
  B := (Color shr 16) and $FF;
  A := $00;
  Result := R or (G shl 8) or (B shl 16) or (A shl