请问Lab->RGB, RGB->LAB的颜色转化方法，以及代码，或者有什么参考书籍，谢谢

请问Lab->RGB, RGB->LAB的颜色转化方法，以及代码，或者有什么参考书籍，谢谢 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_2006121620555555.html

请问Lab->RGB, RGB->LAB的颜色转化方法，以及代码，或者有什么参考书籍，谢谢

请参考：
http://delphicikk.atw.hu/listaz.php?id=1452&oldal=22
谢谢！
但编译时发生错误，在

[Error] uLabRgb.pas(175): Left side cannot be assigned to
[Fatal Error] ColorConvert.dpr(6): Could not compile used unit 'uLabRgb.pas'

在最后一节
for I := 1 to 3 do
for J := 1 to 3 do
RgbXyz[I, J]:=CToXyz[I, J] * C[J];
XyzRgb := InvertMatrix3(RgbXyz)

我这里测试没有任何问题的。

uses uLabRgb;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
RGB: TVector3;
LAB: TVector3;
begin
RGB[1] := 255;
RGB[2] := 125;
RGB[3] := 233;
LAB := RGBTOLAB(RGB);
Caption := FloatToStr(LAB[1])+':'+FloatToStr(LAB[2])+':'+FloatToStr(LAB[3]);
end;

const
RgbXyz: TMatrix3 = ((1, 0, 0), (0, 1, 0), (0, 0, 1));
XyzRgb: TMatrix3 = ((1, 0, 0), (0, 1, 0), (0, 0, 1));

....

procedure InitTransformationMatrices;
var
I: Integer;
J: Integer;
PhosphorZ: TVector3;
C: TVector3;
CToXyz: TMatrix3;
XyzToC: TMatrix3;
begin
for I := 1 to 3 do
begin
CToXyz[1, I] := PhosphorX[I];
CToXyz[2, I] := PhosphorY[I];
CToXyz[3, I] := 1 - PhosphorX[I] - PhosphorY[I]
end;
XyzToC := InvertMatrix3(CToXyz);
C := MultiplyMatrix3ByVector3(XyzToC, WhitePoint);
for I := 1 to 3 do
for J := 1 to 3 do
RgbXyz[I, J]:=CToXyz[I, J] * C[J]; //发生编译错误
XyzRgb := InvertMatrix3(RgbXyz) //发生编译错误
end;

我这里没有任何编译错误啊。

[Error] uLabRgb.pas(175): Left side cannot be assigned to

------------------

这个错误一般是指左边被赋值的变量的读写属性为只读， 但这里应该没有这种情况。

const
RgbXyz: TMatrix3 = ((1, 0, 0), (0, 1, 0), (0, 0, 1));
XyzRgb: TMatrix3 = ((1, 0, 0), (0, 1, 0), (0, 0, 1));

并不是真正意义上的const, 所以对它们赋值是没有问题的。

发了三次，不能再发只好要马甲顶一下

假一个编译指示器

unit uLabRgb;

interface

type
TVector3 = array[1..3] of Double;

function LabToRgb(Lab: TVector3): TVector3;
function RgbToLab(Rgb: TVector3): TVector3;

implementation

{$J+} //注意

................

搞定了，感谢！

LabToRGB后的值都是很小的，显示出来的都是黑色吗