Разделение кадров анимации GIF с помощью TWICImage в Embarcadero RAD Studio XE7

Delphi , Мультимедиа , Микрофон

Работа с анимированными GIF-изображениями в Embarcadero RAD Studio XE7 может быть выполнена с помощью компонента Windows Imaging Component (WIC) и его реализации в VCL - TWICImage. В этой статье мы рассмотрим, как получить все кадры анимации GIF с помощью TWICImage.

Прежде всего, давайте создадим простой пример, который загружает анимированный GIF и отображает его на форме. Для этого нам понадобится компонент TWICImage и TTimer.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    TWICImage1: TWICImage;
    TTimer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure TTimer1Timer(Sender: TObject);
  private
    { Private declarations }
    FFrameIndex: Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  TWICImage1.LoadFromFile('C:\path\to\your\animated.gif');
  TTimer1.Enabled := True;
end;

procedure TForm1.TTimer1Timer(Sender: TObject);
begin
  if FFrameIndex < TWICImage1.FrameCount then
  begin
    TWICImage1.ActiveFrame := FFrameIndex;
    Inc(FFrameIndex);
  end
  else
  begin
    FFrameIndex := 0;
  end;
end;

end.

В этом примере мы загружаем анимированный GIF в TWICImage и устанавливаем TTimer, который будет вызывать процедуру TTimer1Timer каждые 100 мс (по умолчанию). В этой процедуре мы переключаемся на следующий кадр анимации, используя свойство ActiveFrame TWICImage.

Теперь давайте посмотрим, как получить список всех кадров анимации GIF с помощью TWICImage. К сожалению, TWICImage не предоставляет直接е свойство для получения списка кадров. Однако, мы можем использовать свойство FrameCount, чтобы узнать количество кадров в анимации, и перебрать все кадры вручную.

procedure TForm1.GetFrames;
var
  I: Integer;
begin
  for I := 0 to TWICImage1.FrameCount - 1 do
  begin
    TWICImage1.ActiveFrame := I;
    // Здесь можно выполнить любые действия с текущим кадром, например, сохранить его в файл
  end;
end;

В этом примере мы перебираем все кадры анимации с помощью цикла for, устанавливаем текущий кадр с помощью свойства ActiveFrame TWICImage и выполняем любые действия с текущим кадром.

В качестве альтернативного ответа, если вы хотите использовать более продвинутые возможности WIC и работать с различными форматами изображений, вам придется Implement your own wrapper around WIC, как это было описано в подтвержденном ответе.

Создано по материалам из источника по ссылке.

Работа с анимированными GIF-изображениями в Embarcadero RAD Studio XE7 с помощью компонента Windows Imaging Component (WIC) и TWICImage для получения всех кадров анимации.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Микрофон ::