Hallo
ich bin auf der Suche nach Infos (Sourcecode?) wie man mit der Unit IGDIPlus Bilder incl. evtl enthaltener EXIF Daten "Re-Sizen" (verkleinern) kann.

Nach meiner Suche im WWW bin ich inzwischen soweit das man mit IGPImage mit dem TIGPEncoderValue(NewWidth) hier "etwas machen können sollte"... ich stehe aber leider auf dem Schlauch wie das laufen könnte

zusammenfalten · markieren

Delphi-Quellcode:

var
  IGDPImage: IGPImage;
  NewWidthEV,NewHeightEV: TIGPEncoderValue;
  ImgWidth,ImgHeight: UInt32;
  ResizedWidth : Integer;

begin
  ResizedWidth := 1920;
  IGDPImage := TIGPImage.Create('C:AnEXIF_JPG.jpg');
  NewWidthEV := TIGPEncoderValue(NewWidth);
  EncoderTransformValue := Ord(NewWidthEV);
  EncoderParameters.Parameter[0].Value := @EncoderTransformValue;
  ImgWidth := ResizedWidth;
  PPropOItem.Value := @ImgWidth; // => Exception
  IGDPImage.SetPropertyItem(PPropOItem^);

//.......

jegliche Rückmeldung ist "very welcome"

vG Martin

Extrahiere die EXIF Daten vor dem ändern der Größe und füge sie nach der Änderung wieder ein.
https://www.delphipraxis.net/177255-...bertragen.html

Bist du auf GdiPlus festgelegt oder kommt auch anderes in Frage?

Man muss wissen, GdiPlus ist ja Microsoft, und die gehören (wie z.B. Adobe) zu jenen, die glauben, es sich leisten zu können, alle Regeln mit Füßen treten zu können. Das gilt bei GdiPlus ganz besonders für die EXIF-Daten, die von MS regelrecht durch den Fleischwolf gedreht werden.

Ich habe mittlerweile eine eigene EXIF-Unit, die neben EXIF noch so einiges mehr macht; aber davor hatte ich eine Lösung mit FreeImage, wovon ich noch einen Codeschnipsel rumliegen habe. Du wirst ja vermutlich nach dem Verkleinern auch noch schärfen und das alte Dateidatum wiederherstellen wollen, das ist da auch mit drin.

Ich bin generell nicht auf GDIPlus/IGPI+ festgelegt. Das wäre nur mein favorisierter Ansatz gewesen da ich das ohnehin benötige um Bilder bei denen eine Rotation vorliegt, die im EXIF ja definiert, ist korrekt zu bearbeiten.

Was meine echten/minimalen Anforderungen sind
- "Etwas das ich bei mir in den Sourcecode einfügen kann"
(keine dll., extrenes Programm das ich aufrufe etc)
- Aufgabe:
1) Lese ein vorhandenes Bild und checke die Auflösung
2) Ist die Bildbreite (Width) größer als eine per Functions-Parameter übergebene "Maximalbreite"
-> Bild entsprechend mit Höhen/Breitenverhältnis runtersaklieren.
(ich erwarte kein Photoshop-Like down-sizing qualität)
3) "Überschreiben" des originalbildes mit dem ge-downsizten Bild,
mit Übernahme der wichtigsten EXIF Infos

vG M

Guck Dir bitte mal ImageEn an. Das ist extrem vielseitig und leistungsfähig (aber nicht umsonst). Es werden keine weiteren Extras benötigt.

Du könntest auch die Windows Image Components (WIC) benutzen.

Skalieren:
https://stackoverflow.com/a/58113571
Beiträge 5 und 6:
https://www.delphipraxis.net/183061-...che-dinge.html

Ausgeprägter Support für EXIF:
https://docs.microsoft.com/en-us/win...about-metadata

.. oder image32

die ist recht schnell und nimmt auch, so weit ich weiß, die exif Daten mit.

Grüße
Klaus

Ich habe jetzt zuerst mal "Image32" getestet.
Was für eine Vielzahl an Optionen für Bildbearbeitung. Wahnsinn!
+ "Resize" und "Sharpen" funktionieren gut und superflüssig
- Mit den EXIF-Infos bin ich noch nicht weiter. Ich denke es gibt hier keine Option innerhalb dieser Unit
- "Compress" kann sie denke ich leider auch nicht

----------
Den Vorschlag mit WIC werde ich mir ebenso nochmal ansehen und berichten
----------
ImageEn ist für mich etwas too much. 300..400€ nur für die Lizenz kann/will ich mir nicht leisten da ich das nur als Hobby betreibe
----------


Vielen Dank schonmal für die vielen Vorschläge!

vG Martin