Conversion Given an ICM Profile (Delphi 4.0)

1.	Define the following global variables:

    ClrHandle : THandle; 
    params : CONVERSION_PARAMS; 
    RGBColor : array[0..2] of UCHAR; 
    ColorSpace : array[0..3] of UCHAR;

2.	Set the conversion options by filling a CONVERSION_PARAMS structure:

    ZeroMemory(Pointer(@params), SizeOf(CONVERSION_PARAMS)); 
    params.uStructSize := SizeOf(CONVERSION_PARAMS); 
    params.nMethod := USE_CUSTOM_ICC; 
    params.nActiveMethod := USE_CUSTOM_ICC; 
    New(params.pWpoint); 
    params.pWpoint.nWhitePoint := CIELAB_D50; 
    StrCopy (params.sInputProfile, "C:\MyCMYKProfile.ICM"); 
    StrCopy (params.sOutputProfile, "C:\MyRGBProfile.ICM"); 
    params.pMemInputProfile := nil; 
    params.pMemOutputProfile := nil;

3.	Initialize the color conversion handle with L_ClrInit():

L_ClrInit(@ClrHandle, CCS_CMYK, CCS_RGB, @params);

4.	Now, do the conversion:

    ColorSpace[0] := 100; 
    ColorSpace[1] := 100; 
    ColorSpace[2] := 100; 
    ColorSpace[3] := 100; 
    L_ClrConvert(ClrHandle, Pointer(ColorSpace), Pointer(RGBColor), 1, 1, 0, 0);

5.	At the end, free the color conversion handle:

   L_ClrFree(ClrHandle);