TBitmap nach JPEG

[Mario]

Nicht ganz, weil ich im Net bin

Aber so ging es, ich habe die einfache Lösung einfach nicht gesehen:

Delphi-Quellcode:

uses
  System.IO,
  system.Drawing,
  System.Drawing.Imaging,
  Graphics;

var aBmp: TBitmap;
    MS: System.IO.MemoryStream;
    Img: System.Drawing.Image;
begin
  aBmp := TBitmap.Create;
  aBmp.Width := 100;
  aBmp.Height := 200;

  aBmp.Canvas.Rectangle(10,10,90,150);

  MS := System.IO.MemoryStream.Create;
  aBmp.SaveToStream(MS);

  Img := System.Drawing.Image.FromStream(MS);
  Img.Save('test.jpg',System.Drawing.Imaging.Imageformat.Jpeg);
end.