Klappt nicht so richtig ...
Delphi-Quellcode:
...
jpeg := TJPEGImage.Create;
bmp := TBitmap.Create;
bmp.Width := b.Width;
bmp.Height := b.Height;
b.DrawTo(bmp.Handle, b.BoundsRect, b.BoundsRect); //b ist vom Typ TBitmap32
jpeg.Assign(bmp);
jpeg.CompressionQuality := 80;
jpeg.SaveToFile('d:\neu.jpg');
...
Das dabei erzeugte JPEG-File hat zwar die richtige Größe, ist aber nur weiß
