Imagenes GIF

[Amilius]

Empezado por roman

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.

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.

[Amilius]

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.

[axel.isr]

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!

[roman]

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

// Saludos

[axel.isr]

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

Saludos.

[roman]

Eso viene especificdo en el archivo de ayuda:

GraphicEx needs basically no installation because it just registers its graphic classes with TPicture on unit initialization time and from this point on TPicture is able to load images of all supported types. So all you must do to "install" GraphicEx (make its features available at runtime) is to put it in any uses clause of any source file of your project. In order to use GraphicEx images classes at design time too you should add GraphicEx and its associated files into a package of your choice. Any package will do it as long as it is also loaded at design time. Once you have included the library you can load all those exciting image formats at design time too. Note: You will not get an icon or something like this in the component palette. GraphicEx does not implement any component.

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

// Saludos

[ecfisa]

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.