HemulGM

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;

HemulGM

program hh_delphi_stat;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  System.JSON,
  System.StrUtils,
  System.NetEncoding,

HemulGM

program hh_delphi_stat;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  System.JSON,
  System.StrUtils,
  System.NetEncoding,

HemulGM

uses
  IdComponent, IdIcmpClient, System.Threading;

type
  TPing = class
  private
    FMySelf: TPing;
    FProc: TProc<Integer>;
    procedure FOnReply(ASender: TComponent; const AReplyStatus: TReplyStatus);
    procedure FOnStatus(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string);

HemulGM

type
  TImageListHelper = class helper for TImageList
    function Add(ABitmap: TBitmap): integer;
  end;
  
...  

function TImageListHelper.Add(aBitmap: TBitmap): integer;
const
  SCALE = 1;

HemulGM

program VKBotTemplate;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,

HemulGM

function GetParamStr(P: PChar; var Param: string): PChar;
var
  i, Len: Integer;
  Start, S: PChar;
begin
  // U-OK
  while True do
  begin
    while (P[0] <> #0) and (P[0] <= ' ') do
      Inc(P);

HemulGM

unit uDownload;

interface

uses
  Winapi.Windows,
  System.SysUtils,
  System.Classes,
  IdComponent,
  IdHTTP;

HemulGM

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, System.Types, Vcl.Graphics, Vcl.Controls, Vcl.Forms,
  Vcl.Dialogs, System.Net.HttpClient, Vcl.StdCtrls;

type

HemulGM

uses
  bass, bassenc;

function ConvertWavToOgg(var Target: string; DeleteSource: Boolean): Boolean;
var
  Stream: HSTREAM;
  Encode: HENCODE;
  Cmd, Old: string;
  Bytes: TByteArray;
begin