Hello,
I want to build an Application that rotates an Image clockwise or counterclockwise. Whereby the quality of the Image should not be changed. I use the following code to implement the Funcionality:
procedure tImageEnItem.RotationCounterClockwise;
begin
case FImage.IO.Params.EXIF_Orientation of
0: FImage.IO.Params.EXIF_Orientation := 8;
1: FImage.IO.Params.EXIF_Orientation := 8;
8: FImage.IO.Params.EXIF_Orientation := 3;
3: FImage.IO.Params.EXIF_Orientation := 6;
6: FImage.IO.Params.EXIF_Orientation := 1;
end;
FImage.IO.Params.EXIF_HasEXIFData := True;
FImage.IO.Params.TIFF_Orientation := FImage.IO.Params.EXIF_Orientation;
SaveFile;
OpenFile;
end;
Now I have the Problem, that my Code changes the Image. I added an Example.
The original One is the following:
After 100 rotations I get the following result:
Am I doing something wrong?
Greetings
Search
Rotation of an Image without a loss of quality
Posted - May 19 2020 : 08:36:03
