2

Есть ли возможность без лишних библиотек средствами Delphi конвертировать картинку GIF в PNG? Хотелось бы поиметь пример. Спасибо заранее.

1 ответ 1

3

Нет, целиком это не возможно, т.к. GIF это несколько изображений идущих, друг-за-другом, по кругу. В новых версия делфи есть классы TGIFImage и TPNGImage. Открываете GIF, переходите на нужный фрейм, методом aasign получаете Bitmap фрейма в TPNgImage и сохраняете в PNG.

Для старых придется искать лишние библиотеки.

Вот пример, где я вынимаю первый фрейм из GIF'а и сохраняю в PNG:

uses
  System.SysUtils,
  Vcl.Imaging.GIFImg,
  Vcl.Imaging.pngimage,
  Vcl.Graphics;

var
  gif: TGIFImage;
  png: TPngImage;
  bmp: TBitmap;

begin
  gif := TGIFImage.Create;
  png := TPngImage.Create;
  gif.LoadFromFile('c:\mygif1.gif');
  bmp := gif.Images.Frames[0].Bitmap;
  png.Assign(bmp);
  png.SaveToFile('c:\mygif1.png');
6
  • На самом деле в gif одна картинка. У меня Delphi XE3.
    – Akella225
    28 авг 2013 в 18:22
  • TGIFImage нашёл в модуле Vcl.Imaging.GIFImg
    – Akella225
    28 авг 2013 в 18:24
  • смотрите пример, как вынимать фрейм из GIF контейнера. 28 авг 2013 в 18:25
  • а если там только один фрем, так не получится? Var GIFImage: TGIFImage; PNGImage: TPNGImage; begin ... ... GIFImage.LoadFromStream(gif); PNGImage.Assign(GIFImage); PNGImage.SaveToStream(png);
    – Akella225
    28 авг 2013 в 18:30
  • 1
    нет, не получиться. GIF это контейнер. Даже если там 1 изображение, оно все равно записано как 1й кадр. 28 авг 2013 в 18:43

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.