TIEMultiBitmap.GetTIEBitmap
Declaration
function GetTIEBitmap(idx: Integer): TIEBitmap;
Description
Creates a
TIEBitmap object from the image at index,
idx.
You will need to call
ReleaseBitmap to free the
TIEBitmap object (and update the TImageEnMView if changes were made).
Note:
◼If
ParamsEnabled=True then the returned TIEBitmap will have
Params.
◼If sufficient memory cannot be allocated, result will be nil
// 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;