TIEMultiBitmap.ReleaseBitmap

Declaration

procedure ReleaseBitmap(idx: Integer; SaveChanges: Boolean);

Description

Releases the bitmap created with GetBitmap or GetTIEBitmap method.

Parameter	Description
idx	The image index to release
saveChanges	If true (default) the changed bitmap will be updated in the class (i.e. set False if you didn't change the bitmap, or don't need to save your changes)

// Save the fifth image to file
bmp := MBitmap.GetTIEBitmap( 4 );
bmp.SaveToFile( 'D:\alfa.png' );
MBitmap.ReleaseBitmap( 4, False );

// Create a multi-frame DICOM image from a source file list
procedure TForm1.CreateMultiDicom(sl: TStrings; SaveFilename: string);
var
  mbmp: TIEMultiBitmap;
  bmp : TIEBitmap;
  i: Integer;
begin
  mbmp := TIEMultiBitmap.Create();

  for i := 0 to sl.count-1 do
  begin
    bmp := TIEBitmap.Create();
    bmp.ParamsEnabled := True;
    bmp.LoadFromFile(sl[i]);
    mbmp.AppendImage(bmp);
    bmp.Free;
  end;

  // Ensure all frames of DICOM are same size
  for i := 1 to mbmp.Count - 1 do
  begin
    bmp := mbmp.GetTIEBitmap( i );
    bmp.Resample( mbmp.ImageWidth[0], mbmp.ImageHeight[0], rfFastLinear );
    mbmp.ReleaseBitmap( i, True );
  end;

  // Ensure all frames of DICOM have same duplication and pixel format info
  mbmp.DuplicateCompressionInfo();

  mbmp.SaveToFile( SaveFilename, ioDICOM );
  mbmp.Free();
end;

TIEMultiBitmap.ReleaseBitmap