Image erscheint gedreht

[OsCor]

Mir gehen die Fragen nicht aus:
In einem Formular möchte ich ein Foto (jpg) darstellen - in einem Image-Control. Klappt prima, aaaaber nur, wenn ich das Bild vorher in irgendeinem Bildbearbeitungsprogramm geöffnet (nur geöffnet!) und dann bearbeitet oder unverändert wieder abgespeichert habe. Wenn ich das nicht tue, wird das Bild um 90° gedreht angezeigt.
In der Eigenschaftenanzeige im Windows-Explorer werden die Seitenverhältnisse korrekt angezeigt. Wieso also dreht Delphi die Bilder, wenn sie im Originalzustand aus der Kamera kommen?
Laden tue ich sie so:

Delphi-Quellcode:

procedure TForm1.bEVClick(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
    EtikettV := OpenPictureDialog1.FileName;
    imEV.Picture.LoadFromFile(EtikettV); //OpenPictureDialog1.FileName);
  end;
end;

Gruß
Oswald

[Benmik]

Ich würde mal in den EXIF-Daten des Originals schauen, was unter "Orientation" steht (IrfanView). Viele Programme drehen ein Bild, das einen anderen Wert als "1" hat, zur Anzeige richtig. Ich tippe mal, dass Delphi das Bild richtig anzeigt, nämlich so, wie es im Orientation-Tag steht.

[himitsu]

Die Kamera stand quert ... sie hat das Foto so aufgenommen, wie sie es macht und nur gespeichert, dass die Kamera um 90° gedreht war.

Die Delphi-Komponente ließt aber Dieses nicht aus den EXIF-Daten aus (sie ist zu doof für EXIF) und stellt das Bild so dar, wie es gepeichert ist.
Andere Fotobetrachtungsprogramme sind schlauer und drehen das Bild in der Anzeige, weil es so im EXIF steht.

[edit]
Falschrum gedacht. :zwinker:

[OsCor]

Die Bilder wurden tatsächlich mit um 90° gedrehter Kamera aufgenommen. Das zeigen auch die EXIF-Daten an. Anscheinend gibt es einen Automatismus, der die Bilder im Windows-Ordner „richtig rum” anzeigt und auch noch in den Dateieigenschaften die Orientierung entsprechend ändert.
Natürlich habe ich vor meiner Frage hier und in den Parallelforen nach einer Möglichkeit gesucht, die Bilder automatisiert vor der Darstellung im Formular zu drehen. Als ich aber den notwendigen Programmieraufwand sah, wendete ich mich mit Grausen ab :-) Irgendwie hatte ich in meiner Bequemlichkeit eine Eigenschaft in der Form Image.Rotate erwartet oder erhofft :roll:

Die Bilder vorher mal kurz umzuspeichern, ist angesichts der geringen Anzahl kein großer Aufwand. Auch der Nachschub wird in homöopathischen Dosen erfolgen.

Vielen Dank für die Hinweise
Oswald

[Benmik]

Du kannst die Bilder doch einfach mit IrfanView verlustfrei drehen lassen, über die "B"-Option alle auf einen Rutsch. Für das verlustfreie Drehen gibt es auch Delphi-Code. "Umspeichern" klingt nicht nach verlustfrei!
Um das nicht unerwähnt zu lassen: Natürlich kannst du einfach sämtliche Bilder bearbeiten lassen. IrfanView/der Delphi-Code erkennen anhand des Orientation-Tags automatisch, wie zu drehen ist; das bedeutet bei einem Tag von "1", dass überhaupt nicht gedreht wird.