请问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后的值都是很小的，显示出来的都是黑色吗