TWICImage PNG Kompression

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