TImageEnIO.SaveToStreamDicom

Declaration

procedure SaveToStreamDicom(Stream: TStream);

Description

Saves the current image to a stream in DICOM format.

Note:
◼If StreamHeaders property is true, then a special header is added as required for multi-image streams.
◼To abort while saving set Aborting to true

Example

// Saves images in ImageEnView1 and ImageEnView2 to the file Images.dat
// Note: images.dat isn't loadable with LoadFromFileXXX methods
var
  fs: TFileStream;
Begin
  fs := TFileStream.Create('C:\images.dat', fmCreate);
  ImageEnView1.IO.StreamHeaders := True;
  ImageEnView1.IO.SaveToStreamDicom(fs);
  ImageEnView2.IO.StreamHeaders := True;
  ImageEnView2.IO.SaveToStreamDicom(fs);
  fs.free;
End;

// Saves a single image to image.Dicom
// image.Dicom is loadable with LoadFromFileXXX methods
var
  fs: TFileStream;
Begin
  fs := TFileStream.Create('image.Dicom');
  ImageEnView1.IO.StreamHeaders := False;
  ImageEnView1.IO.SaveToFileDicom(fs);
End;

---