AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia *.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
Antwort Antwort
MartinK

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

AW: *.jpg rotieren und speichern

  Alt 23. Jul 2014, 08:17
Hmm, ich habe mir gerade Eure Tipps angesehen (Danke schonmal dafür !)

Diese rotieren alle um einen gewisen Punkt und in einem frei wählbarem Winkel. Teils noch mit Skalierung usw.
Ist das nicht "mit Kanonen auf Spatzen geschossen"?

Geht das nicht auch etwas einfacher da ich nur genau 90° im und gegen den Uhrzeigersinn realisieren möchte?

LG M
Martin Kuhn
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: *.jpg rotieren und speichern

  Alt 23. Jul 2014, 08:23
Du könntest das JPEG temporär in ein TBitmap konvertieren und dass mit Scanline um 90/180/270 Grad drehen und dann wieder zurück in JPEG konvertieren. Du verlierst aber ggf. Qualität beim zurückkonvertieren nach JPEG.
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
mquadrat

Registriert seit: 13. Feb 2004
1.113 Beiträge
 
Delphi XE2 Professional
 
#3

AW: *.jpg rotieren und speichern

  Alt 23. Jul 2014, 08:23
Sind ja nur ganz kleine Kanonen.

Die EXIF Info würde ich nicht nehmen. Wie Himitsu angemerkt hat, wird das oft nicht richtig interpretiert.
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.689 Beiträge
 
Delphi 2007 Enterprise
 
#4

AW: *.jpg rotieren und speichern

  Alt 23. Jul 2014, 08:35
Wenn ich mich recht entsinne, kann man JPEGs sogar komplett verlustfrei und ohne vorige Dekompression drehen (und spiegeln), zumindest um 90/180/270°. Allerdings müsste man dann in den Dateien "von Hand" arbeiten und sich mit dem Format rumschlagen, sowie ein bischen über FFT wissen.
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
MartinK

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

AW: *.jpg rotieren und speichern

  Alt 23. Jul 2014, 21:04
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
Martin Kuhn
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.689 Beiträge
 
Delphi 2007 Enterprise
 
#6

AW: *.jpg rotieren und speichern

  Alt 24. Jul 2014, 01:35
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!
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)

Geändert von Medium (24. Jul 2014 um 01:40 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz