Извлечение кадров из GIF: сохранение каждого кадра в отдельном битмапе с использованием Delphi или Pascal

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

В данной статье мы рассмотрим, как извлечь кадры из GIF-изображения и сохранить каждый кадр в отдельном битмапе с использованием Delphi или Pascal. Для этого мы будем использовать компонент TGIFImage и TGIFRenderer.

Исходный код, представленный в контексте, пытается отрисовать GIF-изображение на полотне формы, но оно не работает. Мы исправим это и покажем, как сохранить каждый кадр в отдельном битмапе.

Во-первых, давайте создадим форму с кнопкой и загрузим GIF-изображение в компонент TGIFImage при создании формы:

procedure TForm1.FormCreate(Sender: TObject);
begin
  GIF := TGIFImage.Create;
  GIF.LoadFromFile('c:\2.gif');
end;

При выходе из формы, не забудьте освободить компонент TGIFImage:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  GIF.Free;
end;

Теперь, давайте напишем процедуру, которая будет извлекать кадры из GIF-изображения и сохранять каждый кадр в отдельном битмапе:

procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap: TBitmap;
  I: Integer;
  GR: TGIFRenderer;
  R: TRect;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.SetSize(GIF.Width, GIF.Height);
    GR := TGIFRenderer.Create(GIF);
    try
      for I := 0 to GIF.Images.Count - 1 do
      begin
        if GIF.Images[I].Empty then Break;
        GR.Draw(Bitmap.Canvas, Bitmap.Canvas.ClipRect);
        GR.NextFrame;
        Bitmap.SaveToFile(Format('%.2d.bmp', [I]));
      end;
    finally
      GR.Free;
    end;
  finally
    Bitmap.Free;
  end;
end;

В этой процедуре мы создаем новый битмап размером с GIF-изображение и отрисовываем каждый кадр на этом битмапе с помощью TGIFRenderer. После отрисовки кадра, мы сохраняем битмап в файл с помощью Bitmap.SaveToFile. Имя файла формируется в виде "%.2d.bmp", где "%.2d" - это порядковый номер кадра, дополненный нулями до двух символов.

Примечание: данный код учитывает метод "Disposal" кадра, что позволяет правильно обработать кадры с прозрачностью.

Таким образом, мы извлекли все кадры из GIF-изображения и сохранили каждый кадр в отдельном битмапе. Надеемся, что эта статья помогла вам решить вашу проблему.

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

Данный текст описывает процедуру извлечения кадров из GIF-изображения и сохранения каждого кадра в отдельном битмапе с использованием Delphi или Pascal. Для этого используется компонент `TGIFImage` и `TGIFRenderer`.

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

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

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