*.jpg rotieren und speichern

Thema durchsuchen

Ansicht

Themen-Optionen

*.jpg rotieren und speichern

Ein Thema von MartinK · begonnen am 23. Jul 2014 · letzter Beitrag vom 24. Jul 2014

Vorheriger Beitrag

Nächster Beitrag

MartinK

Registriert seit: 21. Jun 2009
Ort: Germering (Germany)
89 Beiträge

Delphi 10.2 Tokyo Enterprise

#10

AW: *.jpg rotieren und speichern

23. Jul 2014, 21:04

Ich steh echt auf dem Schauch.
So etwas ähnliches funktioniert nicht ?

zusammenfalten · markieren

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