skia frames render

skia_frames.pas

uses Skia, Skia.FMX;

procedure TForm3.FormCreate(Sender: TObject);
var
  Buffer: TBitmap;
begin
  var Lottie := TSkottieAnimation.MakeFromFile('D:\Downloads\3-8472.json');
  Lottie.SeekFrameTime(0);
  var Tick := Lottie.Duration / (Lottie.Duration * Lottie.FPS);
  var i := Tick;
  var n := 0;
  Buffer := TBitmap.Create(Trunc(Lottie.Size.Width), Trunc(Lottie.Size.Height));
  try
    while i < Lottie.Duration do
    begin
      Buffer.SkiaDraw(
        procedure(const ACanvas: ISkCanvas)
        begin
          Lottie.Render(ACanvas, TRectF.Create(0, 0, Lottie.Size.Width, Lottie.Size.Height));
        end, True);
      Inc(n);
      i := i + Tick;
      Buffer.SaveToFile('D:\Temp\Anim\' + n.ToString + '.png');
      Lottie.SeekFrameTime(i);
    end;
  finally
    Buffer.Free;
  end;
end;