Seitenverhältnis von PNG-Grafiken ändern

[Namenloser]

Ich würde es mal mit ImageMagick probieren. Das Beispiel dort paddet zwar alles auf eine feste Größe, aber ich bin sicher mit ImageMagick geht da auch noch mehr, das Tool ist recht mächtig. Habe aber selbst noch nicht damit gearbeitet, daher keine Ahnung wie es geht...

Unter Delphi kannst du mit der PngImage-Unit PNGs verarbeiten, sofern du die Unit noch findest (wurde von CodeGear gekauft, war aber vorher Open Source). Ansonsten gibt es noch die Lib ImageEn (ok, die ginge aber wohl auch) ähh GraphicEx, die verschiedene Formate, u.a. PNG, unterstützt.

[Gustav.R]

Falls wir wieder zurück bei Delphi sind, würde ich zu GraphicEx raten.

GG

[Uwe Raabe]

Delphi-Quellcode:

var
  hdr: TChunkIHDR;
  origin: TPoint;
  png1: TPngImage;
  png2: TPngImage;
  frame: TRect;
  size: Integer;
begin
  png1 := TPngImage.Create;
  try
    png1.LoadFromFile('c:\Temp\bild_original.png');
    size := Max(png1.Width, png1.Height);
    origin := Point((size - png1.Width) div 2, (size - png1.Height) div 2);
    frame := TRect.Create(origin, png1.Width, png1.Height);
    hdr := png1.Header;
    png2 := TPngImage.CreateBlank(hdr.ColorType, hdr.BitDepth, size, size);
    try
      png2.Canvas.Brush.Color := clWhite;
      png2.Canvas.FillRect(TRect.Create(0, 0, size, size));
      png2.Canvas.Brush.Style := bsClear;
      png1.Draw(png2.Canvas, frame);
      png2.SaveToFile('c:\Temp\bild_neu.png');
    finally
      png2.Free;
    end;
  finally
    png1.Free;
  end;
end;

[Popov]

Zitat:

Zitat von urbanbruhin (Beitrag 1156350)

Ich habe hier sehr viele PNG-Bilder, in allen möglichen Auflösungen und Seitenverhältnissen, also alles wild durcheinander. Einzig der Dateityp ist bei allen gleich :-)

Die Programm das du suchst ist Light Image Resizer. Wenn es nicht im ersten Durchlauf klappt, dann im zweiten:

- im ersten Durchgang alle Bilder in Grenze bringen, d.h. wenn du ein 10x40 Pixel Bild hast und es soll 80x80 Pixel sein, dann wird es zuerst 20x80 Pixel

- im zweiten Durchgang zentrieren wählen, d.h. das obere Bild wird zentriert und bekommt oben und unten je einen 30 Pixel Rand, so dass es 80x80 ist.

[100nF]

Ihr seid genial!!! :firejump:

ImageMagick kannte ich schon von Linux her, habe schon viele Infoseiten über den Befehl "convert" bzw. "mogrify" angeschaut, konnte aber nirgens das richtige finden. NamenLozer hat jetzt aber die Zauberwörter genannt, und zwar "thumbnail" und "extent"! :-D Darauf wäre ich echt nie gekommen. ImageMagick ist so abartig mächtig, keine Chance da den Überblick nicht zu verlieren.

Vielen vielen Dank an alle!

Ich wusste doch auf die Delphi-Praxis ist Verlass :-D

Herzlichen Dank und viele Grüsse
Urban