Reading and writing AVIF and HEIC in Lazarus

[Tomxe]

Hello!
A fresh unit, just released under MIT license:
https://github.com/Xelitan/AVIF-and-HEIC-for-Delphi-Lazarus/

Example:

Code: Pascal  [Select][+][-]

1. Image1.Picture.LoadFromFile('test.heic');
2. Image1.Picture.LoadFromFile('test.avif');

Saving:

Code: Pascal  [Select][+][-]

1. var a: TAvifImage;
2.      h: THeicImage;
3. begin
4.   Image1.Picture.LoadFRomFile('test.bmp');
5.  
6.   a := TAvifImage.Create;
7.   a.Assign(Image1.Picture.Bitmap);
8.   a.SaveToFile('test1.avic');
9.   a.free;
10.  
11.   h := THeicImage.Create;
12.   h.Assign(Image1.Picture.Bitmap);
13.   h.SaveToFile('test1.heic');
14.   h.free;
15. end;
16.  

All input welcome!

[Okoba]

Thank you Tomxe! For these and FLIF. Great to have the ability. You should check with @circular, as they may want to add these to BGRABitmap. Post on the forum https://forum.lazarus.freepascal.org/index.php/board,46.0.html

[Boleeman]

I also stumbled across the Lazarus AVIF and HEIC code.

Can't wait to play around with it and make some high definition animations.

Just amazing Tomxe from Poland.

[fozkan]

Thank you for this helpful wrapper. What are the details of DLLs (License, Origin...)?

[Tomxe]

Unit uses libheif.dll:

The libheif is distributed under the terms of the GNU Lesser General Public License.
Copyright (c) 2017-2020 Struktur AG
Copyright (c) 2017-2024 Dirk Farin
Contact: Dirk Farin dirk.farin@gmail.com