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'

[KodeZwerg]

achso, da hatte ich es falsch verstanden, heute abend schau ich mal nach.
das was du möchtest kann ich hier nicht auf die schnelle blind schreiben.

[Hobbycoder]

Heute abend oder morgen würd mir völlig reichen Wenn du da wirklich was funktionierendes findest, wär das schon mehr, als ich mir erhofft hatte Dank dir

[KodeZwerg]

hmmm.... es scheint als ob es mich nicht mag.
ich bekomme weder deinen code zum laufen noch das original sample twicimage-how-to-set-jpeg-compression-quality

da du es ja anscheinend irgendwie hinbekommen hast das sich da was regt, versuche mal bitte PropBagOptions.pstrName := 'CompressionLevel'; diese Zeile aus oder falls möglich, häng nen demo ran was ich mit tokyo benutzen kann.

ich bekomme mit dem original immer "falscher parameter" als fehlerantwort.