TBitmap nach JPEG

[Arnulf]

Delphi-Quellcode:

              JpegImg := TJpegImage.Create;
               try
                 JpegImg.Compress;
                 JpegImg.CompressionQuality := 100; // oder was auch immer....
                 JpegImg.PixelFormat := jf24Bit;//jf8Bit;  jf24Bit
                 JpegImg.Performance := jpBestQuality;
                 JpegImg.Assign(Bitmap);
                 //JpegImg.SaveToStream(AStream);
                 //NixStream := AStream;
                 JpegImg.SaveToFile('machstdu.jpg');
               finally
                    JpegImg.Free
               end;

Viel spaß damit
Arnulf