Imagenes GIF
 

Quiero poner en un Timage un .gif y hago:

Imagen1.picture.loadfromfile('jj.gif') y me dice algo asi como formato incorrecto..

hay alguna forma de arreglarlo. Tb e oido que existe Tgifimage pero de donde saco ?? Gracias

Las librerías RX tienen una componente que te permite mostrar gifs.

Por cierto, esta pregunat es más adecuada para el foro de "Gráficos".

// Saludos

Como se llama el componente??

Y con el timage no puedo hacerlo, es que ahora ya tengo la leche de componentes timage??Gracias y siendo haber puesto el hilo aki.

RxGifAnimator

Normalmente no ya que Delphi no incluye manejo para este formato. Puedes bajar la librería
GraphicEx que maneja varios formatos gráficos, entre ellos Gif y Tiff.

Al incluir la librería (GraphicEx.pas) en tu proyecto habilitas a TImage para cargar archivos gif mediante el método LoadFromFile y si quieres incluir la habilidad durante el diseño deberás agregar la librería en algún paquete de diseño. Más detalles vienen en el archivo de ayuda de dicha librería.

Lo que sí te adelanto es que sea cual sea el método que uses, mientras no pagues licencia a Unisys es ilegal el uso de archivos gif. Esto está especificado en la librería que te menciono y por ello la extensión gif está deshabilitada por defecto.

Desconozco cuál es la situación de las librerías RX ya que, como dije, en principio es ilegal.

// Saludos

Una aclaración:

Creo que lo ilegal no es el uso de archivos gif (de lo contrario el 99.99% de las páginas web serían ilegales) pero el formato gif tiene copyright y usar una librería como GraphicEx significa usar dicho formato.

Bueno, algo así porque creo que ni yo me entendí :D

// Saludos

Me he bajado esa libreria, pero ahora no tengo ni idea de como incluirla... aparecen varios .pas y un monton de .obj, me podrias indicar que tengo que hacer (como si fuese un niño de 6 años :)

Viene incluído un archivo de ayuda chm. Lo que tienes que hacer es incluir la carpeta donde desempacaste los archivos en el "Library path":

Tools|Enviroment Options|Library|Library Path

para que Delphi la encuentre e incluir la unidad GraphicEx en cualquier proyecto en donde quieras usarla (añadirla enla cláusula uses).

Además de esto, coo te mencioné, por defecto viene desactivado el anejo degifs. Para activarlo abre el archivo GraphicConfiguration.inc en la carpeta de GraphEx y verá casi al principio la línea:

{.$define UseLZW}

Debes quitarle el punto antes del signo $ y guardar el archivo.

Con esto ya puedes usar el formato gif con:

Image1.Picture.LoadFromFile.

Te recuerdo que con esto no podrás usar los gifs durante el diseño (Propiedad Picture) pero también lo puedes activar añadiendo la unidad en algún paquete de diseño, como por ejemplo el que incluye Borland para el usuario (creo que se llama Borland User components) o crearte tú mismo uno.

// Saludos

Sólo en los territorios salvajes llenos de orcos y otros demonios que vendieron su alma a las multinacionales.

Existen versiones mejoradas (Comprimi varios archivos .BMP de color indexado con el winrar y verás que comprime mucho mejor que el GIF, por que usa un algoritmo variante mucho mejor), con cabecera reducida y diccionario de tamaño variable de acuerdo a la imagen, todo con la misma idea del DICCIONARIO que como todos sabemos existe hace siglos y no tiene por que ser patente de ninguna multinacional del demonio.

Adjuntaría el codigo fuente de una librería para abrir .GIF similar al que se usa para los JPEG, pero no se puede subir archivos de mas de 1KB O.o

el archivo es:

gifimage_src0202.zip

75Kb comprimido.
361Kb en .pas

Un gran trabajo, puedes abrir hasta GIFs animados y guardar en .GIF reduciendo la cantidad de colores y aplicando varios métodos de difusión.

Tal vez lo encuentren por ahi. Es para delphi 3 al 5. Supongo que funcionará en el 6, habrá que probar.

Si no lo ubican coloquen sus emails aqui para que les envie el archivo.

Nota: no lei todos sus mensajes asi que no respondan que alguien ya puso el archivo.

Agregar libreria?
 

Mil disculpas por reabrir un tema viejo, pero me encuentro bastante trabado en un proyecto.

Necesito utilizar imágenes GIF en una aplicación, y al parecer GraphicEx.pas serviría para esto. Al momento no se como agregar esta librería, sé que Roman lo ha explicado pero no encuentro el path que menciona por ningún lado.
Alguien que me heche una mano?

Mil gracias!

La biblioteca la puedes descargar de aquí (búscala en el listado).

// Saludos

Ya la descargué, lo que no sé es donde tengo que colocar los archivos o que tengo que hacer desde Delphi.

Saludos.

Eso viene especificdo en el archivo de ayuda:

O sea, básicamente debes poner el directorio GraphicEx donde desees e incluir la unidad graphicex.pas en tu proyecto.

// Saludos

Hola.

Como otra opción, sin instalar componentes, está disponible el código de esta unidad GifImage.pas. El uso no es muy complejo, por ejemplo:

Código Delphi [-]
uses GifImage;
...
var
  GI: TGifImage;
begin
  GI:= TGifImage.Create;
  try
    GI.LoadFromFile('C:\Users\Users\Pictures\Gif_Animado.gif');
    Image1.Picture.Assign(GI)
  finally
    GI.Free
  end;
  ...

Saludos.

Bueno, bueno. Pero que conste que con graphicex tampoco hay que instalar componentes :p

// Saludos

Pues siguiendo este hilo puedes encontrar tienes una clase para el manejo de GIF: TGIF que no es un componente y otra que si lo es: TGifViewer. :p


Saludos.

¡Eso es bueno! Para todos los gustos :D

// Saludos