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