gif animados en delphi xe

[Celta]

hola todos, mi pregunta es como insertar gifs animados en delphi xe.
lo que quiero es hacer animaciones... no me costo mucho cargandolo desde afuera pero lo que quiero es que no se muestre lo que estoy cargando... tendria que crear un .res y cargarlo desde hay? o un componente de tercero...
aquí el codigo para cargarlo desde afuera

cont : integer;
Cont := (Cont mod 2) + 1;

hola.picture.LoadFromFile ('graficos\clubdelphi' + IntToStr (Cont) + '.bmp');
desde ya saludos

[beginner01]

saludos.

Hay un componente que parece ser lo que buscas te dejo el link:
http://melander.dk/delphi/gifimage/

no los he probado pero qizas te puedan ayudar.

[look]

Las JEDI tambien tren un componente para eso , el gifanimator.

[beginner01]

Empezado por look

Las JEDI tambien tren un componente para eso , el gifanimator.

es cierto no lo habia notado ya que no acostumbro a usar este tipo de componentes y creo que puede ser una buena opcion.

[Mav]

Existe otra posibilidad, que es la que uso habitualmente:
Compilas el "gifimage.pas" (sources/vcl) con este cambio:=
" GIFImageDefaultAnimate := True;".En el /lib sustituyes el Gifimage.dcu
por el dcu resultante de tu compilación, y yapuedes usar gifs animados en cualquier Timage.
Saludos

[rastafarey]

crea un archivo .rc

pon esto dentro

nombregif GIF "RUTA_DEL_GIF"

no recuerdo si los recursos GIF se cargan con esa constante eso averigualo en la ayuda de delphi.

luego compilar el recurso. para te cree un .res

Si quieres que se compile solo agrega este archivo al proyecto y delphi lo compila solo.

y el codigo pra leer recurso es algo asi

Código Delphi [-]
Var
  Flujo: TResourceStream;
  R: TMemoryStream;
Begin
  Flujo := TResourceStream.Create(hInstance,  'nombregif',    PChar('GIF'));
  Try
    R := TMemoryStream.Create;
    R.LoadFromStream(Flujo);
  Finally
    Flujo.Free;
  End;

Ya tienes tu gif cargado en un temorystream ahora como lees el .loadfromfile solo debes usar .loadfromstream..

Espero te sirva.