ImageEn, unit iexBitmaps

TIEMultiBitmap.ReleaseBitmap

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 bitmap will be written in the cache.


Examples

// Save the fifth image to file
bmp := MBitmap.GetTIEBitmap(4); // Note: bmp must be TIEBitmap type
bmp.Write('D:\alfa.png');
MBitmap.ReleaseBitmap(4);


// 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.Read(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.Write( SaveFilename, ioDICOM );
  mbmp.free;
end;