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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.05.2008, 17:52   #1
Dj_smart
Капсула от спама
Форумчанин
 
Аватар для Dj_smart
 
Регистрация: 04.03.2008
Сообщений: 779
Вопрос Сгенерировать много GIF

Доброго времени суток!
Я при создании нового проэкта наткнулся на проблему:
Как сгенерировать много Gif'ов чтобы прога не зависала.
Пробовал компонент WebBrowser и HTML но это не то.
Использую RxGifAnimator. Загружаю ~100-200 GIF - анимашек.
Загружаю таким кодом:
Код:
var bolls:array[1..c] of TRxGifAnimator;

procedure LoadAnim(sm:string;x,y:integer);
begin
  with form1 do begin
    inc(t);
    bolls[t]:=TRxGifAnimator.Create(self);
    bolls[t].Parent:=Form1.parent;
    bolls[t].OnClick:=RxGIFAnimatorClick;
    bolls[t].Left:=x;
    bolls[t].Top:=y;
    bolls[t].Image.LoadFromFile('Anim\'+sm+'.gif');
    bolls[t].Animate:=TRUE;
    bolls[t].Cursor:=crCross;
    mas[t]:=true;
    bolls[t].Visible:=true;
  end;
end;
Код, рабочий, но страшно зависает. DoubleBuffered не помогает.
Помогите, кто нашёл, как решить проблему.
Заранее спс.
Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме?
CncFiles.ru - бесплатный файловый хостинг
Dj_smart вне форума Ответить с цитированием
Старый 20.05.2008, 18:15   #2
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Ну так процессор не тянет столько анимашек сразу. Сделай страницами по 10-20 штук.
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 20.05.2008, 20:24   #3
Dj_smart
Капсула от спама
Форумчанин
 
Аватар для Dj_smart
 
Регистрация: 04.03.2008
Сообщений: 779
По умолчанию

Блин, идея верная! Попробую, если чё отпишусь.
Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме?
CncFiles.ru - бесплатный файловый хостинг
Dj_smart вне форума Ответить с цитированием
Старый 20.05.2008, 21:38   #4
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

реализация rxgifanimator слишком ресурсоемкая. с Ихним необдуманным использованием таймеров и т.д. есть свободный модуль Gifimage который просто добавит возможность загрузки Gif в стандартный Timage его реализация куда более проста и менее ресурсоемка.
Сам модуль прикладываю к посту
Вложения
Тип файла: rar gifimaged7f.rar (176.7 Кб, 17 просмотров)
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вот тут много компонентов для Delphi mihali4 Компоненты Delphi 7 25.08.2009 09:10
Много объектов. Манжосов Денис :) Общие вопросы Delphi 5 04.09.2008 22:34
Много переменных Altera Общие вопросы Delphi 15 18.07.2008 08:06
много регистров nntpaha Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 22.12.2007 19:01