function BmpToJpeg(mBitmap: TBitmap; mJPEGImage: TJPEGImage;
mCompressionQuality: Integer = 75): Boolean;
begin
Result := True;
try
mJPEGImage.Assign(mBitmap);
mJPEGImage.CompressionQuality := mCompressionQuality;
mJPEGImage.Compress;
except
Result := False;
end;
end; { BmpToJpeg }
function JpegToBmp(mJPEGImage: TJPEGImage; mBitmap: TBitmap): Boolean;
begin
Result := True;
try
mBitmap.Assign(mJPEGImage);
except
Result := False;
end;
end; { JpegToBmp }