Screenshot effizient speichern!

[th_bone]

Hi,

mit der folgenden procedure kannst Du BMP in JPEG stream wandeln

Delphi-Quellcode:

procedure BMPtoJPGStream(const Bitmap : TBitmap; var AStream: TMemoryStream);
var
  JpegImg: TJpegImage;
begin
   JpegImg := TJpegImage.Create;
   try
    JpegImg.CompressionQuality := 50;  // Hier die gewünschte Kompressionsrate angeben
    JpegImg.PixelFormat := jf8Bit;
    JpegImg.Assign(Bitmap);
    JpegImg.SaveToStream(AStream);
   finally
    JpegImg.Free
   end;
end;