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;