WICImage

[Willie1]

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.