TImageEnIO.SaveToStreamJpeg
Declaration
procedure SaveToStreamJpeg(Stream: TStream);
Description
Saves the current image to a stream in JPEG format.
Notes:
- If
StreamHeaders property is True, it adds an additional special header as needed for multi-image streams.
- To abort while saving set
Aborting to true
Example
// Saves ImageEnView1 and ImageEnView2 attached images in file images.dat
// images.dat isn't loadable with LoadFromFileXXX methods
var
fs: TFileStream;
Begin
fs := TFileStream.Create('bmpimages.dat', fmCreate);
ImageEnView1.IO.StreamHeaders := True;
ImageEnView1.IO.SaveToStreamJPEG(fs);
ImageEnView2.IO.StreamHeaders := True;
ImageEnView2.IO.SaveToStreamJPEG(fs);
fs.free;
End;
// Saves a single image in image.jpg
// image.jpg is loadable with LoadFromFileXXX methods
var
fs: TFileStream;
Begin
fs := TFileStream.Create('image.jpg');
ImageEnView1.IO.StreamHeaders := False;
ImageEnView1.IO.SaveToFileJPEG(fs);
End;