Hallo, ich bin immer noch an meinem Programm am Basteln. Ich will auch Heif-Bilder anzeigen können.
Im Testprogramm klappt das aber nicht in der Ausführung im größeren Projekt.
Für Heif benutze ich:
Delphi-Quellcode:
if IsHeif(fn) then begin
WICImg:=TWICImage.Create;
WICImg.LoadFromFile(fn);
Img.Center:=true; Img.Proportional:=true;
Img.Picture.Graphic:=WICImg;
WICImg.Free;
end;
Für alle anderen Formate:
Delphi-Quellcode:
GPImage := TGPImage.Create(fn);
GPGraphics:=TGPGraphics.Create(img.Canvas.Handle);
GPGraphics.DrawImage(GPImage, (img.Width - W) shr 1, (img.Height - H) shr 1, W, H);
Das läuft für beide Konstrukte. Aber wenn ich Methode für Heic durchlaufen habe und dann
wieder ein Jpeg-Bild anzeigen will, crasht es in der Zeile GPDrawImage... . Siehe Screenshot! Es handelt sich um das gleiche TImage.
Was ist da los. Willie.