InsertBitmapListValue Example for Delphi

var
   nRet: Integer;
begin
   LEADDicom1.EnableMethodErrors := false;

   { move to the first image element and delete what's there }
   LEADDicom1.FindFirstElement(TAG_PIXEL_DATA, false);
   LEADDicom1.DeleteElement();
   LEADDicom1.InsertElement(false, TAG_PIXEL_DATA, VR_OB, false, 0);

   { load an image }
   LEADImage1.Load ('c:\lead\images\image1.cmp', 0, 1, 1);
   ShowMessage('Image loaded from File - Wait');

   { create a bitmap list }
   LEADImage2.InsertBitmapListItem (0, LEADImage1.Bitmap);
   LEADImage1Flip ();
   LEADImage2.InsertBitmapListItem(1, LEADImage1.Bitmap);
   LEADImage1.  Reverse ();
   LEADImage2.InsertBitmapListItem(2, LEADImage1.Bitmap);

   { insert the image list into the element }
   nRet := LEADDicom1.InsertBitmapListValue(LEADImage2.BitmapList, 0, DICOM_IMAGE_COMPRESSION_NONE, DICOM_IMAGE_PHOTOMETRIC_RGB, 0, 0);

   If nRet <> SUCCESS Then
   begin
      ShowMessage('Error Number: ' + IntToStr(LEADDicom1.Error));
      exit;
   end;
   ShowMessage('ImageList inserted into Data Set - Wait');
End;