*.jpg rotieren und speichern

[Medium]

Doch, ginge auch. Nur, dass du dabei dekomprimierst, und beim Speichern wieder neu komprimierst. Wenn du mit dem potenziellen Qualitätsverlust leben kannst (oder in genügend hohe Qualität speicherst, so dass es zumindest bei einem Mal nicht auffällt), dann könntest du auch den GDI+ Wrapper dafür nutzen. Wenn man sich das unbedingt antun will.

Zwei mögliche Probleme sehe ich in deinem Code:
1) Es kann sein, dass du ein TJPEGImage.DIBNeeded brauchst.
2) Du nimmst das Canvas-Handle, gebraucht wird aber ein HBITMAP, also Bitmap-Handle. Zudem stellt TJPEGImage direkt eine Methode "GetPalette" für den zweiten Parameter beim TGPImage.Create() bereit.

Aber: Wieso den Umweg über ein TJPEGImage, wenn TGPImage doch fix und fertig JPEGs aus einer Datei laden kann?

Das Speichern als JPEG ist dagegen damit etwas aufwändiger. Hier muss man mit "GetEncoderClsid()" erst den entsprechenden Encoder abholen, dann dessen Parameter brav setzen, und DANN geht das damit. Wenn du unbedingt eine Fremdkomponente einsetzen möchtest, würde ich fast eher die Graphics32 Lib empfehlen, die in der Handhabung (und an vielen Stellen auch in der Geschwindigkeit) der (von MS bereits abgekündigten) GDI+ überlegen ist. Finde ich zumindest.

Aber an sich ist so eine Rotation doch ziemlich fix selber gebaut, und braucht den ganzen Overhead einer Grafik-Lib nicht (sofern man sie nicht eh einsetzt).

Hier im Beitragseditor getippt und komplett ungetestet:

Delphi-Quellcode:

procedure RotateBitmapBy90Degrees(aBMP: TBitmap);
var
  tmp: TBitmap;
  p1, p2: PRGBQuad;
  x, y: Integer;
begin
  aBMP.PixelFormat := pf32Bit;
  tmp := TBitmap.Create;
  tmp.Assign(aBMP);
  aBMP.Width := tmp.Height;
  aBMP.Height := tmp.Width;
  for y := 0 to tmp.Height-1 do
  begin
    p1 := tmp.Scanline[y];
    for x := 0 to tmp.Width-1 do
    begin
      p2 := aBMP.Scanline[aBMP.Height-1-x];
      inc(p2, y);
      p2^ := p1^;
      inc(p1);
    end;
  end;
  tmp.Free;
end;

Ob das Bitmap dann aus einem JPEG, einem BMP, einem EMF oder was auch immer kommt, ist bei all diesen Methoden aber völlig egal. Wenn es eben spezifisch für JPEGs sein soll, führt mein voriger Vorschlag zum best möglichen Ergebnis, aber auch auf Kosten nicht unerheblicher Mehrarbeit. Abwägungssache. Aber du hast ja nun mal extra "jpg" im Beitragstitel erwähnt! ;)