Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.02.2016, 03:11   #1
Тоба
Пользователь
 
Регистрация: 16.05.2011
Сообщений: 86
По умолчанию Собрать 1 гиф из нескольких bmp

Есть ли возможность из нескольких изображений собрать один гиф, с указанной задержкой между фреймами?
Перелопатил кучу всего- ничего не нашёл.
Тоба вне форума Ответить с цитированием
Старый 18.02.2016, 04:45   #2
Тоба
Пользователь
 
Регистрация: 16.05.2011
Сообщений: 86
По умолчанию

Кадры извлекает исправно, но пересохроняется почему-то битый.
Чего-то не хватает - курю не вкурю.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
gif: TGIFImage;
i:integer;
begin
   gif := TGifImage.Create;
   gif.LoadFromFile('Src.gif');
   bmp := TBitmap.Create;
   //bmp.PixelFormat:= pf32bit;
   //bmp.Width:= 250;
   //bmp.Height:= 250;
   for i:=0 to (gif.Images.Count-1) do
   begin
   bmp.Assign(gif.Images[i]);
   bmp.Canvas.TextOut(20, 20, 'бла-бла-бла');
  // bmp.SaveToFile(inttostr(i)+'.bmp');  // сохраним кадры
   gif.Images[i].Assign(bmp);
   end;
 gif.SaveToFile('Result.gif');
 bmp.Free;
 gif.Free;
end;
Тоба вне форума Ответить с цитированием
Старый 18.02.2016, 06:23   #3
Filka
Форумчанин
 
Регистрация: 29.10.2015
Сообщений: 272
По умолчанию

A Delphi unit to make it easy to create animated GIF files -> http://www.tolderlund.eu/delphi/
Filka вне форума Ответить с цитированием
Старый 18.02.2016, 19:30   #4
Тоба
Пользователь
 
Регистрация: 16.05.2011
Сообщений: 86
По умолчанию

Не переходит по вашей ссылке почему-то
Тоба вне форума Ответить с цитированием
Старый 18.02.2016, 19:57   #5
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

У меня переходит.
Может быть не все браузеры одинаково полезны.
type_Oleg вне форума Ответить с цитированием
Старый 19.02.2016, 02:42   #6
Тоба
Пользователь
 
Регистрация: 16.05.2011
Сообщений: 86
По умолчанию

Хмм...
Воткнул ссылку в 5 браузеров - ни в одном не переходит.
Что-то не то думаю.
Попробовал через VPN - всё нормально перешло.
Чудеса..........., хотя вероятней всего это из за того, что я
из Крыма, у нас вообще многие сайты порубили.

Filка спасибо вам за ссылочку, там как раз то, что мне надо.
Всех благ вам.
Тоба вне форума Ответить с цитированием
Старый 19.02.2016, 04:51   #7
Filka
Форумчанин
 
Регистрация: 29.10.2015
Сообщений: 272
По умолчанию

Цитата:
спасибо вам за ссылочку
Пожалуйста.
Цитата:
Всех благ вам.
Спасибо.
Filka вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Собрать выборочные столбцы с нескольких листов на один лист. Enchanter Microsoft Office Excel 0 09.06.2013 18:44
Как собрать данные с нескольких листов без использования сводной таблицы dummy12 Microsoft Office Excel 0 20.09.2012 13:41
Собрать нужную информацию из нескольких столбцов в один Rmzn Microsoft Office Excel 2 21.07.2012 12:09
Собрать данные с нескольких листов и книг dana11 Microsoft Office Excel 14 20.01.2012 16:15
Помогите собрать таблицу из нескольких файлов repka Microsoft Office Excel 16 08.04.2009 12:56