TWICImage PNG Kompression

[Hobbycoder]

Weiß jemand zufällig wie man mit TWICImage Bilder im PNG-Format komprimiert speichern kann? Das Speichern selbst ist kein Problem, aber auf der Platte ist die Dateigröße etwas zu groß. Wenn es geht auch gerne mit Beispielcode .

[KodeZwerg]

nur hier im editor geschrieben quick and dirty, hoffe das es a) klappt und b) das ist was du wolltest.

Delphi-Quellcode:

// uses Vcl.Imaging.pngimage; weiß nicht genau, hieß das so?

procedure MachWas();
var
  W: TWICImage;
  P: TPNGImage;
begin
  W:= TWicImage.Create;
  try
    W.LoadFromFile('C:\Temp\test.png'); // da du nichts vom input sagtest, geh ich mal auch von png aus
    P:= TPNGImage.Create;
    try
      P.Assign(W);
      P.SetSize(hier Werte vorher ermitteln für X,Y);
      // hier weitere png switches setzen, kompression und so
      P.SaveToFile('C:\Temp\testout.png');
      Image1.Picture.LoadFromFile('C:\Temp\testout.png');
    finally
      P.Free;
    end;
  finally
    W.Free;
  end;
end;

[Sherlock]

Ich vermute ganz stark, daß es um genau das hier geht:
// hier weitere png switches setzen, kompression und so
Leider gibt die Doku nicht so viel zu genau diesem Punkt her. Die Seite dazu
https://docs.microsoft.com/de-de/win...ngfilteroption ist im Embarcadero Style: Es werden die Namen der Parameter wiederholt.

Es gilt hier also Probieren über studieren. Zwischendurch such ich aber noch ein wenig.

Sherlock

[Hobbycoder]

Zitat von Sherlock:

Ich vermute ganz stark, daß es um genau das hier geht:
// hier weitere png switches setzen, kompression und so
Leider gibt die Doku nicht so viel zu genau diesem Punkt her. Die Seite dazu
https://docs.microsoft.com/de-de/win...ngfilteroption ist im Embarcadero Style: Es werden die Namen der Parameter wiederholt.

Es gilt hier also Probieren über studieren. Zwischendurch such ich aber noch ein wenig.

Sherlock

Genau das ist das Problem. Ich such mir auch schon einen Wolf. Aber diesbezüglich ist das nicht viel zu finden. Ich habe zwar was gefunden, wo es um die Kompression von JPEG geht, aber was mir fehlt ist der PropertyName für die Kompression von PNG. Dieser scheint sich von dem eines JPG's zu unterscheiden. Irgendwie hat MS diesbezüglich auf eine nähere Beschreibung größzügig verzichtet, oder ich hab's nur noch nicht gefunden.

[KodeZwerg]

Vcl.Imaging.pngimage.TCompressionLevel das meinst Du nicht zufällig oder? 0..9, 9 = max compress

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