Forum: Multimedia
Delphi
by Willie1,
21. Jul 2020
Ich werde mich einarbeiten.
Da ich meine Bilder grundsätzlich nicht drehe und inzwischen fast alle Programme das Drehen nach dem Or.-Tag ausführen, vermisse ich das richtige Drehen nicht.
Ich werde es mit RotateFlip machen. Nur zur Anzeige reicht das.
W.
Forum: Multimedia
Delphi
by Willie1,
20. Jul 2020
PropertyItem = record // NOT PACKED !!
id : PROPID; // ID of this property
length : ULONG; // Length of the property value, in bytes
type_ : WORD; // Type of the value, as one of TAG_TYPE_XXX
value : Pointer; // property value
end;
TPropertyItem = PropertyItem;
PPropertyItem = ^TPropertyItem;
Forum: Multimedia
Delphi
by Willie1,
20. Jul 2020
Hallo,
Ich will die Bilder zunächst nur zum Ansehen drehen, das geht mit RotateFlip. Nicht zum endgültigem Drehen. Dazu ist dein Source sehr hilfreich.
Orientation := PWORD(pPropItem.value)^; Ich habe nach gesehen, ich denke, so ist es richtig.
Willie.
Forum: Multimedia
Delphi
by Willie1,
19. Jul 2020
Das ist ein wichtiger Hinweis für mich. Es hätte mir auffallen können, denn BufferSize ist 18 Byte groß. PUInt32 kennt mein Compiler (10.1) (noch) nicht.
Mein Konstrukt soll nur zum automatischen Drehen, entsprechend dem Or.-Tag, dienen. Selbst Windows dreht im Explorer bei rechts/links Drehen nicht das Bild, sondern ändert nur das Or.-Tag.
Für das endgültige Drehen ist dein Entwurf gut,...
Forum: Multimedia
Delphi
by Willie1,
18. Jul 2020
Hallo Leute,
ich habe mir zum Drehen (im Speicher) von Bildern nach dem Orientation-Tag das Folgende ausgedacht.
uses GDIPAPI, GDIPOBJ;
procedure TForm1.Button1Click(Sender: TObject);
var
GPImage: TGPImage;
GPGraphics: TGPGraphics;
pPropItem: PPropertyItem;
BufferSize: Cardinal;
Orientation: Byte;
Forum: Multimedia
Delphi
by Willie1,
6. Jul 2020
Bei mir liegt das länger zurück. Das Web ändert sich. Ich werde suchen und melde mich.
Da sind doch Demos dabei! Willie.
Forum: Multimedia
Delphi
by Willie1,
6. Jul 2020
Ich benutze nicht ShellExecute aber das ist hier nicht wichtig. ExifTool ist das beste Programm dazu.
Frage: wie kann ich Zitat von xxx bekommen?
Forum: Multimedia
Delphi
by Willie1,
6. Jul 2020
Das liegt daran, dass Windows das Orientation-Tag ausliest und das Bild entsprechend dreht, ohne es zu verändern.
Forum: Multimedia
Delphi
by Willie1,
6. Jul 2020
Exiftool ist ein Consolen Programm. Schreib dir die Hilfe von Exiftool in eine Datei und lies sie dir durch.