Color Conversion to an Image (Delphi 4.0)

The Color Conversion C API provides color conversion to an image. To do a conversion, follow the steps below:

1.	At the beginning of the Unit1 file, add LTDLLUNT, LTDLLTYP, and LTDLLDEF to the uses section.
2.	Use the following code to direct color conversion to an image:

function TForm1.LABToLEADBitmap({in}pSrcLAB: Pointer; {out}var pBitmap: BITMAPHANDLE; {in}nWidth, {in}nHeight: Integer) : {ret}Integer; 
var 
ret : Integer; (* return value *) 
begin 
(* 
****************************************************************** 
* Simple conversion from CIELab to RGB24 LEAD bitmap             * 
* Parameters :                                                   * 
* pSrcLAB : 24 bit CIELab data, this is the input image data     * 
* pBitmap : Handle to the resulting LEAD bitmap                  * 
* nWidth  : Width of the image                                   * 
* nHeight : Height of the image                                  * 
* Returns SUCCESS when successful or an error code otherwise             * 
****************************************************************** 
*) 
ret := L_ClrConvertDirectToBitmap(CCS_LAB, 
CCS_RGB, 
pSrcLAB, 
@pBitmap, 
SizeOf(BITMAPHANDLE), 
nWidth, 
nHeight, 
0, 
0); 
Result := ret; 
end;