WICImage

[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;

[Willie1]

Ja, Danke Freunde, das klappt im Testprogramm. Ich muss es noch auf das Projekt umsetzen.
Willie.