gif animados en delphi xe

[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.