Bitmap
> >Using Delphi 3, how do I translate a bitmap into an JPEG file? > Assume Image1 is a TImage component containing a bitmap. You could use the following code segment to convert the bitmap into a JPEG file format:
var MyJpeg: TJpegImage; Image1: TImage; begin Image1:= TImage.Create; MyJpeg:= TJpegImage.Create; Image1.LoadFromFile('TestImage.BMP'); // Load the Bitmap from a file MyJpeg.Assign(Image1.Picture.Bitmap); // Assign the BitMap to MyJpeg object MyJpeg.SaveToFile('MyJPEGImage.JPG'); // Save the JPEG to Disk end;