Hallo,
ich schicke euch mein Testprogramm, das Bilder in einem TImage öffnet. Das funktioniert bei Jpeg, Tif, Bmp und Heif.
In meinem großen Projekt benutze ich bei Jpeg's
GDI+, um das Bild mit RotateFlip drehen zu können. Das geht auch aber wenn ich ein Heif-Bild wie oben geöffnet habe, crasht es anschließend. Dabei wird das gleiche Image benutzt.
Delphi-Quellcode:
procedure ShowHeif(Img: TImage; const fn: TFilename);
var
WICImg: TWICImage;
begin
WICImg:=TWICImage.Create;
WICImg.LoadFromFile(fn);
Img.Center:=true;
Img.Proportional:=true;
Img.Picture.Graphic:=WICImg;
WICImg.Free;
end;
Der Rest ist einfach. Button, OpenPictureDialog und Image, das ist es!
Willie.
Nachtrag: es sieht so aus, als wenn durch WICImage an TImage etwas verändert wird, so dass danach die Anzeige über
GDI+ nicht mehr funktioniert.