exilon / quickimagefx Goto Github PK

The demo requires CCR-Exif, which does not compile.
If you try to use only Quick.ImageFX.GDI, it doesn't compile because the Quick.ImageFX.Base unit requires two interfaces: IImageFX and IImageFXTransform.
The IImageFX issue can be solved by adding the Quick.ImageFX unit to the uses clause, but there is no definition of the IImageFXTransform interface in the sources.

Any Idea?

Hello.
Are You planning to introduce JPEG XL (.jxl) support?
https://jpegxl.info/
https://github.com/mirillis/jpegxl-wic

Hello,
If it's possible add Direct 2D/X.

Thank you

procedure TForm1.Button1Click(Sender: TObject);
var ImageFX : IImageFX;
ms1,ms2: TMemoryStream;
begin
try
ms1:= TMemoryStream.Create;
ms2:= TMemoryStream.Create;

ms1.LoadFromFile('papagayo.jpg');
ms1.Position:=0;

ImageFX := TImageFXGR32.Create;
ImageFX.LoadFromStream(ms1);
ImageFX.Resize(400, 300, rmStretch, [rfNoMagnify], rsNearest);
ImageFX.SaveToStream(ms2, ifJPG);

ms2.Position:=0;
ms2.SaveToFile('out.jpg');

finally
ms1.Free;
ms2.Free;
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ReportMemoryLeaksOnShutdown:=true;
end;