Ich steh echt auf dem Schauch.
So etwas ähnliches funktioniert nicht ?
Delphi-Quellcode:
Jpeg: TJPEGImage;
RotatedImg : TGPBitmap;
begin
Jpg.Picture.LoadFromFile(AFilename);
RotatedImg:=TGPBitmap.Create(Jpg.Picture.Bitmap.Canvas.Handle,Jpg.Picture.Bitmap.Palette);
Try
RotatedImg.RotateFlip(Rotate90FlipNone);
Finally
Img4Rotate.Picture.Assign (RotatedImg.picture.bitmap);
Img4Rotate.Picture.SaveToFile(AFilename);
RotatedImgFree;
LG M