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.

[TiGü]

Bitte minimales Beispiel-Projekt mit Beispiel-Bild erzeugen, zippen und anhängen.

[Delphi.Narium]

Guck mal bitte hier: https://www.delphipraxis.net/1365110-post6.html

Hilft das bei Dir analog in etwa der Form:

Delphi-Quellcode:

  if IsHeif(fn) then begin
    WICImg := TWICImage.Create;
    WICImg.LoadFromFile(fn);
    Img.Center:=true; Img.Proportional:=true;
    Img.Picture.Graphic.Assign(Nil);
    Img.Picture.Graphic.Assign(WICImg);
    WICImg.Free;
  end;

Wobei: Was ich jetzt nicht so genau weiß:

 Img.Picture.Graphic := WICImg;

Jetzt zeigt doch Img.Picture.Graphic auf WICImg.
Und wohin zeigt es nach dem  WICImg.Free; ?

Oder wird bei der Zuweisung mit := eine Kopie von WICImg erstellt? Wohl eher nicht.

[Willie1]

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.

[TiGü]

Zitat von Willie1:

]Der Rest ist einfach. Button, OpenPictureDialog und Image, das ist es!

Das sind fünf Minuten, die von meiner Zeit/die der anderen drauf gehen.
Fertiges Beispielprojekt mit den Bildern dazu, zippen und hochladen.
Sonst keine Hilfe.

Warum? Wieso? Weshalb?
https://stackoverflow.com/help/minim...ucible-example
http://sscce.org/

[Willie1]

Hallo,
siehe Anhang!
Willie.

[Willie1]

Ich wollte noch eine von Ballast befreite Datei hochladen, geht aber nicht! Obwohl sie innerhalb der Grenze 5 MB liegt. W.

[mmw]

hallo,
bei mir funktioniert es so

Delphi-Quellcode:

procedure ClearImage(im: TImage);

var
  Rec: TRect;
begin
    im.Picture:=nil;// <-----

    Im.Canvas.Brush.Color:=clBtnFace;
    Rec:=Rect(0, 0, Im.Width, Im.Height);
    Im.Canvas.FillRect(Rec);
end;

Delphi-Quellcode:

   try
       GPGraphics:=TGPGraphics.Create(img.Canvas.Handle);
       GPGraphics.DrawImage(GPImage, (img.Width - W) shr 1, (img.Height - H) shr 1, W, H)

vielleicht lieber so

Delphi-Quellcode:

GPGraphics:=TGPGraphics.Create(img.Canvas.Handle);

try
GPGraphics.DrawImage(GPImage, (img.Width - W) shr 1, (img.Height - H) shr 1, W, H)

Gruß

[TiGü]

So umsetzen wie mmw schrieb, dann geht das.

[himitsu]

Zitat von mmw:

vielleicht lieber so

siehe https://www.delphipraxis.net/154794-...en-nutzen.html
bzw. https://www.delphipraxis.net/205627-...stoeren-2.html

Zitat von mmw:

im.Picture:=nil;// <-----

Das ganze Picture löschen, anstatt nur die Graphic? (wüsste garnicht dass das geht)

aber im.Picture.Graphic := nil;