BMP To JPGStream

procedure BMP_To_JPGStream(const Bitmap:TBitmap; Quality:Integer; var AStream:TMemoryStream);
var
  JpegImg: TJpegImage;
begin
   JpegImg := TJpegImage.Create;
   Try
    JpegImg.CompressionQuality := Quality;
    JpegImg.PixelFormat := jf8Bit;
    JpegImg.Assign(Bitmap);
    JpegImg.SaveToStream(AStream);
   Finally
    JpegImg.Free
   end;
end;




نظرات:
متن امنیتی
گزارش تخلف
بعدی