TWICImage PNG Kompression

[Hobbycoder]

Im Prinzip schon.
Ich könnte auch die TPNGImage verwenden. In dem Fall wäre das der Parameter.

Nur ging es mir um das Speichern über TWICImage, was als unkomprimiertes PNG kein Problem darstellt. Nur das einstellen der Kompression geht dort nicht über ein simples Property.

Was ich gefunden habe ist das hier:

Delphi-Quellcode:

procedure SaveWICImageAsPNG(WICImage: TWICImage; ImageQuality: Single;
  FileName: string);
const
  PROPBAG2_TYPE_DATA = 1;
var
  ImagingFactory: IWICImagingFactory;
  Width, Height: Integer;
  Stream: IWICStream;
  Encoder: IWICBitmapEncoder;
  Frame: IWICBitmapFrameEncode;
  PropBag: IPropertyBag2;
  PropBagOptions: TPropBag2;
  V: Variant;
  PixelFormat: TGUID;
  Rect: WICRect;
  test: TPngimage;
begin
  Width := WICImage.Width;
  Height := WICImage.Height;
  ImagingFactory := WICImage.ImagingFactory;
  OleCheck(ImagingFactory.CreateStream(Stream));
  OleCheck(Stream.InitializeFromFilename(PChar(FileName), GENERIC_WRITE));
  OleCheck(ImagingFactory.CreateEncoder(GUID_ContainerFormatPng, GUID_NULL, Encoder));
  OleCheck(Encoder.Initialize(Stream, WICBitmapEncoderNoCache));
  OleCheck(Encoder.CreateNewFrame(Frame, PropBag));
  PropBagOptions := Default(TPropBag2);
  PropBagOptions.pstrName := 'ImageQuality';
  PropBagOptions.dwType := PROPBAG2_TYPE_DATA;
  PropBagOptions.vt := VT_R4;
  V := VarAsType(ImageQuality, varSingle);
  OleCheck(PropBag.Write(1, @PropBagOptions, @V));
  OleCheck(Frame.Initialize(PropBag));
  OleCheck(Frame.SetSize(Width, Height));
  Rect.X := 0;
  Rect.Y := 0;
  Rect.Width := Width;
  Rect.Height := Height;
  OleCheck(Frame.WriteSource(WICImage.Handle, @Rect));
  OleCheck(Frame.Commit);
  OleCheck(Encoder.Commit);
end;

Allerdings nehme ich an, dass PropBagOptions.pstrName := 'ImageQuality'; für PNG nicht korrekt ist. Ich erhalte bei OleCheck(PropBag.Write(1, @PropBagOptions, @V)); immer EOleSysError 'Unbekannter Fehler'