This function is used to allow access to pixels in the Device Independent Bitmap (DIB). This method is to be used in conjunction with the IKEndDibAccess function.

[C++Builder]   BOOL IKStartDibAccess(HANDLE hDib, PTR_IKDIB_INFO stpDibInfo);
[Delphi]   function IKStartDibAccess(hDib: THandle; var stpDibInfo: IKDIB_INFO): LongBool;

Parameters

Name Explanation
hDib The raster image memory handle (supports 1, 4, 8, 16. 24, and 32 bit images)
stpDibInfo A structure variable (user-defined type) that retrieves DIB information

Return Value

Returns True (nonzero) if successful. Returns False (0) if unsuccessful.

Explanation

The IKStartDibAccess function is used to allow access to pixels in the Device Independent Bitmap (DIB). This method is to be used in conjunction with the IKEndDibAccess function.

For more information about IKDIB_INFO, please refer to the explanation of the IKDIB_INFO member variables at the beginning of the Ik10Effect.dll section.

To access the DIB and manipulate pixel data, you must use the following functions as a group.

      IKStartDibAccess

              l

      IKGetDibPixel, IKSetDibPixel

              l

      IKEndDibAccess

Sample Code

The following code starts access to the DIB, then loops through each pixel in the image, using the IKGetDibPixel function to retrieve the pixels' rgb values. Then those values are reversed and set using the IKSetDibPixel function.

(1)Delphi

   Handle: THandle;

   ImageInfo: IKIMAGE_INFO;

   DibInfo: IKDIB_INFO;

   Ret: LongBool;

   i, j: Integer;


   Handle := IKFileLoad('newtone.bmp', 0, 0, 0, 0, nil, nil, nil);

   if Handle = 0 then Exit;

   Ret := IKGetImageType(Handle, ImageInfo);

   Ret := IKStartDibAccess(Handle, DibInfo);


   for i := 0 to ImageInfo.Height - 1 do

   begin

      for j := 0 to ImageInfo.Width - 1 do

      begin

         Ret := IKGetDibPixel(DibInfo, j, i);

         if ImageInfo.BitCount = 1 then

         begin

            if DibInfo.PalNo <> 0 then

               DibInfo.PalNo := 0

            else

               DibInfo.PalNo := 1;

         end

         else if ImageInfo.BitCount > 8 then

         begin

            DibInfo.Blue := 255 - DibInfo.Blue;

            DibInfo.Green := 255 - DibInfo.Green;

            DibInfo.Red := 255 - DibInfo.Red;

         end;

         Ret := IKSetDibPixel(DibInfo, j, i);

      end;

   end;

   Ret := IKEndDibAccess(Handle, DibInfo);


   Ret := IKBmpFileSave('newtone.bmp', Handle, False, 0, nil, nil, nil);

   IKFreeMemory(Handle);

 

The ImageKit10 VCL is a product created by Newtone Corporation