Image-Resize mit IGPI+ (Mitov)

[MartinK]

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