TBitmap nach JPEG

[Mario]

Ich versuche nun schon geraume Zeit, eine Grafik als JPEG abzuspeichern. Für die System.Drawing.Image Klasse aus dem Net-Framework gibt es ja genug Beispiele. Ich habe aber ein TBitmap, wie das so früher bei Delphi üblich war. Wie könnte es da funktionieren?

Problem: Eine Umstellung auf die neue Bitmap-Klasse ist momentan schwierig, da viel Code schon arbeitet (Übernahme altes Projekt) und bei nächster Gelegenheit das Modul eh durch DirectX ersetzt werden soll. Das ist aber jetzt nicht zu schaffen.

[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

[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.

[Bernhard Geyer]

Zitat:

Zitat von Mario

Nicht ganz, weil ich im Net bin ;)

Nicht 100%. Wenn Du TBitmap hast, bist du auf VCL.NET-Ebene. Und dann stört es nicht auch noch ein TJpegImage verwendest.

[Mario]

Natürlich. Nur habe ich nicht erwartet, dass es das noch gibt, nachdem

Delphi-Quellcode:

uses JPEG;

nicht gefunden wurde.

[Mario]

Ich habe gerade noch mal ein wenig probiert, weil die Qualitätseinstellungen unter Net recht umständlich sind. Leider scheint TJpegImage nur noch im Win32-Bereich zur Verfügung stehen. Jedenfalls laut Hilfe. Stimmt das evtl. nicht?

[Bernhard Geyer]

Zitat:

Zitat von Mario

Ich habe gerade noch mal ein wenig probiert, weil die Qualitätseinstellungen unter Net recht umständlich sind. Leider scheint TJpegImage nur noch im Win32-Bereich zur Verfügung stehen. Jedenfalls laut Hilfe. Stimmt das evtl. nicht?

Könnte sein. Ich hab micht mit D2005 nur im Bereich VCL.Win32 beschäftigt und dachte das der JPEG-Teil auch in VCL.NET vorhanden wäre.
AFAIK war die JPEG-Unit noch nie als Source vorhanden und wurde von einem anderen Hersteller dazugekauft.