InsertBitmapListValue Example for Delphi

Procedure TForm1.TestProcInsertList();
var
   nRet: Integer;
   IO: LEADRasterIO;
   Process: LEADRasterProcess;
begin
   IO:= coLEADRasterIO.Create();
   Process:= coLEADRasterProcess.Create();

   LEADDicomDS1.EnableMethodErrors:= False;
   
   //move to the first image element and delete what//s there
   nRet:= LEADDicomDS1.FindFirstElement (TAG_PIXEL_DATA, False);
   nRet:= LEADDicomDS1.DeleteElement ();
   nRet:= LEADDicomDS1.InsertElement (False, TAG_PIXEL_DATA, VR_OB, False, 0);
    
   //load an image
   IO.Load(LEADRasterView1.Raster, 'd:\lead14\dist\images\image1.cmp', 0, 1, 1);
   ShowMessage('Image loaded from File - Wait');
    
   //create a bitmap list
   LEADRasterView2.Raster.InsertBitmapListItem(0, LEADRasterView1.Raster.Bitmap);
   Process.Flip(LEADRasterView1.Raster);
   LEADRasterView2.Raster.InsertBitmapListItem(1, LEADRasterView1.Raster.Bitmap);
   Process.Reverse(LEADRasterView1.Raster);
   LEADRasterView2.Raster.InsertBitmapListItem(2, LEADRasterView1.Raster.Bitmap);
    
   //insert the image list into the element
   nRet:= LEADDicomDS1.InsertBitmapListValue(LEADRasterView2.Raster.BitmapList, 0, DICOM_IMAGE_COMPRESSION_NONE, DICOM_IMAGE_PHOTOMETRIC_RGB, 0, 0, 0);

   if(nRet <> 0)then
   begin
      ShowMessage('Error');
      Exit;
   end;
   ShowMessage('ImageList inserted into Data Set - Wait');
end;