Einzelnen Beitrag anzeigen

MartinK

Registriert seit: 21. Jun 2009
Ort: Germering (Germany)
83 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#1

Image-Resize mit IGPI+ (Mitov)

  Alt 22. Aug 2021, 19:41
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
Martin Kuhn
  Mit Zitat antworten Zitat