Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> gif анимация 
V
    Опции темы
NosfBlazE
Дата 7.1.2009, 21:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


炎丸 =Ferro ignique!=
*


Профиль
Группа: Участник
Сообщений: 51
Регистрация: 16.11.2008
Где: Russia

Репутация: нет
Всего: нет



Здравствуйте.  smile 

Среда - Delphi 2009
Есть картинка - gif анимация

Собственно вопрос: как вывести в приложении gif анимацию?  smile 

P.S. RxLib не предлагать, так как с 2009 версией данная библиотека не работает.
P.P.S. Скажу честно, качал модули >отсюда и >отсюда, но, как пользоваться ими, я так и не разобрался. Вернее как интегрировать в Delphi 2009.
PM MAIL ICQ Skype Jabber   Вверх
Romikgy
Дата 7.1.2009, 22:26 (ссылка) |    (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146



Цитата(NosfBlazE @  7.1.2009,  20:02 Найти цитируемый пост)
Delphi 2009

понимает 
Цитата(NosfBlazE @  7.1.2009,  20:02 Найти цитируемый пост)
gif анимация

в стандартном компонентне Timage 


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile

PM   Вверх
Данкинг
Дата 7.1.2009, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



Цитата(Romikgy @  7.1.2009,  22:26 Найти цитируемый пост)
в стандартном компонентне Timage  

А подключить-то что надо для этого? Сам когда-то давно использовал, но не помню сейчас.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Romikgy
Дата 7.1.2009, 22:39 (ссылка) |    (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146



да точно немного подзабыл:(
Код

uses GIFImg;

var
g: TGIFImage;

g:=TGIFImage.Create;
g.LoadFromFile('xxxx.gif');
g.Animate:=True;
Image1.Picture.Assign(g);
g.Free;



--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile

PM   Вверх
NosfBlazE
Дата 7.1.2009, 23:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


炎丸 =Ferro ignique!=
*


Профиль
Группа: Участник
Сообщений: 51
Регистрация: 16.11.2008
Где: Russia

Репутация: нет
Всего: нет



Romikgy
Спасибо большое! Заработало.
Не знал, что в 2009 изначально есть поддержка gif анимации.
PM MAIL ICQ Skype Jabber   Вверх
NosfBlazE
Дата 7.1.2009, 23:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


炎丸 =Ferro ignique!=
*


Профиль
Группа: Участник
Сообщений: 51
Регистрация: 16.11.2008
Где: Russia

Репутация: нет
Всего: нет



Romikgy
теперь другой вопрос. Может подскажете более его рациональное решение, чем я тут сейчас выдумываю.  smile 
Как запихнуть эту gif анимацию в .exe  файл, т.е. чтобы мне не надо была поставлять вместе с программой еще и эту гифку, которая в ней подгружается? Сделать просто один независимый экзешник.

То есть нужна альтернатива
Код

g.LoadFromFile('xxxx.gif');


Это сообщение отредактировал(а) NosfBlazE - 7.1.2009, 23:56
PM MAIL ICQ Skype Jabber   Вверх
Данкинг
Дата 8.1.2009, 00:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



NosfBlazE, через ресурсы. Только что-то у меня не получается именно с GIF-файлом, хотя с BMP работает нормально.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
NosfBlazE
Дата 8.1.2009, 01:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


炎丸 =Ferro ignique!=
*


Профиль
Группа: Участник
Сообщений: 51
Регистрация: 16.11.2008
Где: Russia

Репутация: нет
Всего: нет



Данкинг
а поподробнее можно? smile 
PM MAIL ICQ Skype Jabber   Вверх
Данкинг
Дата 8.1.2009, 03:04 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



Цитата(NosfBlazE @ 8.1.2009,  01:53)
Данкинг
а поподробнее можно? smile

Вот пример из Delphiworld для BMP:

Код


  Create and edit a new text file in your project directory, 
  eg: newres.txt 

  In the file, write: 

  MY_BMP_RES BITMAP "bmpname.bmp" 

  and save the file. 

  Open a dos shell and go to your directory, type this command: 

  brcc32.exe newres.txt 

  this will create a resource file called newres.res with your bitmap. 
}

 unit Unit1;

 implementation

 {$R *.DFM}
 {$R newres.res}  // add this line! 

procedure TForm1.FormCreate(Sender: TObject);
 var
   MyBmp: TBitmap;
 begin
   MyBmp := TBitmap.Create;
   try
     MyBmp.LoadFromResourceName(HInstance, 'MY_BMP_RES');
     // Do something.... 
  finally
     MyBmp.Free;
   end;
 end;


С GIF у меня вылезает ошибка, что ресурс с таким именем типа не найден.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
NosfBlazE
Дата 8.1.2009, 03:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


炎丸 =Ferro ignique!=
*


Профиль
Группа: Участник
Сообщений: 51
Регистрация: 16.11.2008
Где: Russia

Репутация: нет
Всего: нет




Вот так все заработало!

Код

//...

implementation

{$R *.dfm}
{$R go.RES}

procedure TForm1.FormCreate(Sender: TObject);
var
  MyGIF : TGIFImage;
  ResStream : TResourceStream;
begin
  MyGIF := TGIFImage.Create;
  ResStream := nil;
  try
    ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
    MyGIF.LoadFromStream(ResStream);
    MyGIF.Animate := True;
    Image1.Picture.Assign(MyGIF);
  finally
    MyGIF.Free;
    ResStream.Free;
  end;
end;

//...



Данкинг, про файлы ресурсов я знал. Просто не получалось почему-то скомпилить. о_0 Большое спасибо тебе за помощь.
PM MAIL ICQ Skype Jabber   Вверх
AndrYxo
Дата 18.1.2009, 00:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 18.1.2009

Репутация: нет
Всего: нет



Цитата(NosfBlazE @ 8.1.2009,  03:45)
Вот так все заработало!

Код

//...

implementation

{$R *.dfm}
{$R go.RES}

procedure TForm1.FormCreate(Sender: TObject);
var
  MyGIF : TGIFImage;
  ResStream : TResourceStream;
begin
  MyGIF := TGIFImage.Create;
  ResStream := nil;
  try
    ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
    MyGIF.LoadFromStream(ResStream);
    MyGIF.Animate := True;
    Image1.Picture.Assign(MyGIF);
  finally
    MyGIF.Free;
    ResStream.Free;
  end;
end;

//...



Данкинг, про файлы ресурсов я знал. Просто не получалось почему-то скомпилить. о_0 Большое спасибо тебе за помощь.

Здравстуйте! Столкнулся с проблемой добавления GIF изображения в ресурс и дальнейшего извлечения... и был приятно удивлен найдя решение здесь... NosfBlazE, спасибо за код... Думаю это то, что и мне надо... Но, так как я не сильно в этом соображаю, я так и не понял что писать в самом .rc файле перед тем, как из него ресурс сделать, для данного кода (что бы просто свое изображение вставил и код не насиловал)... Может кто подскажет мне по этому поводу? Был бы очень благодарен. Спасибо smile 
PM MAIL   Вверх
Rrader
  Дата 18.1.2009, 08:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191



Код

1 RCDATA "MyGIF.gif" 

1 - ID ресурса
MyGIF.gif - имя  файла картинки
RCDATA - обозначает нетипизированные бинарные данные


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.1446 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.