Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Сохранить в Gif

Автор: AgereS 27.3.2006, 10:20

который сохраняет Канвас в ГИФ (графика)

Автор: Alexeis 27.3.2006, 10:26

На torry.net есть специальный компонент TGifImage (примерно так)

Автор: AgereS 27.3.2006, 10:29

низкий Вам поклон alexeis1, а в самой Дельфе есть ?
Добавлено @ 10:40
ребята, а компонент собственного исполнения у вас есть ? (глупый вопрос конечно), а то на торри он стОит дорого
Добавлено @ 10:44
хорошо, как заплатить за этот компонент и получить его ?

Автор: AgereS 27.3.2006, 10:44

ребята, ОЧЕНЬ НУЖНО

Автор: Alexeis 27.3.2006, 10:48

да бесплатный он
Добавлено @ 10:50
сейчас закачаю дам ссылку
Добавлено @ 10:54
http://alexei-s1.narod.ru/gifimaged7c.zip
Добавлено @ 10:57

Цитата

а в самой Дельфе есть ?

нет в принципе нет (хотя TAnimate в версии для Linux поддерживает)

Автор: OXOTHUK 19.5.2007, 14:59

Мне надо анимированный гиф увеличить в 2 раза, размер картинки. Скачал я этот класс, вроде работает, но это не получается. я хотел создать 2 экземпляра класса, в один загрузить файл, в другой отрисовывать по одному, увеличивая, но он всё время даёт один первый кадр, вне зависимости от индекса. Пробывал через Draw, а он не все кадры правильно прорисовывает. Помогите, плз.

Автор: Alexeis 19.5.2007, 16:51

OXOTHUK, а у меня получилось smile

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
  bmp, tmp : TBitmap;
begin
  DoubleBuffered := true;
  gif := TGifImage.Create;
  bmp := TBitmap.Create;
  tmp := TBitmap.Create;
  gif.LoadFromFile('CFGANI.GIF');
  gif.Width := gif.Width * 2;
  gif.Height := gif.Height * 2;
  for I := 0 to gif.Images.Count - 1
  do
    Begin
      bmp.Assign(gif.Images[i]);
      tmp.Assign(bmp);
      bmp.Width  := bmp.Width * 2;
      bmp.Height := bmp.Height * 2;
      bmp.Canvas.StretchDraw(Rect(0, 0, bmp.Width, bmp.Height), tmp);
      gif.Images[i].Assign(bmp);
    end;

  gif.DrawOptions := gif.DrawOptions + [goLoopContinously];
  Image1.picture.Assign(gif);
  gif.Free;
  bmp.Free;
  tmp.Free;
end;

Автор: Snowy 19.5.2007, 16:54

Цитата(AgereS @ 27.3.2006, 10:29

)

самой Дельфе есть

В 2007-й есть.

Автор: OXOTHUK 19.5.2007, 20:18

Alexeis, при сохрании в файл и открытии потом "вылазиет ошибка при построении изображения"(виндовая смотрелка), и в image1 вместо белого фона - чёрный, и не закрашивается, наложение кадров идёт, т.е. не повторяется исходная гифка.