From: "Earl F. Glynn"
Subject: Re: Saving TImage as JPEG
Date: Thursday, March 30, 2000 3:45 PM

"Peter Vostinic" <pvostinic@controlmaster.com> wrote in message
news:8c0f9e$8pe2@bornews.borland.com...
> Could someone tell me way of saving an TImage as JPEG?

Try this:

USES
  JPEG;

// Save TBitmap in TImage to a JPEG file
procedure TForm1.ButtonBMPinImageToJPGClick(Sender: TObject);
  VAR
    JPEG:  TJPEGImage;
begin
  JPEG := TJPEGImage.Create;
  TRY
    JPEG.CompressionQuality := 65;  // you pick
    JPEG.Assign(Image.Picture.Graphic);
    JPEG.SaveToFile('NEW.JPG')
  FINALLY
    JPEG.Free
  END
end;

--
efg

Earl F. Glynn
Overland Park, KS  USA

efg's Computer Lab:  http://www.efg2.com/Lab