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;