Componente CLDBImage y Mas formatos

[cloayza]

Amigos, quisiera compartir con ustedes este componente, al cual le he incorporado algunas cosillas que espero les sea de su utilidad.

Aquí la información de la fuente...

{
TimDBImage Component
http://www.marteens.com/ejemplos.htm
imDBJPEG

Este package contiene el código fuente del componente imDBImage,
que permite trabajar con imágenes almacenadas campos BLOB en el formato JPEG.
Acepta también imágenes de mapas de bits. Soporta el uso del Portapapeles, comprimiendo la imagen pegada antes de guardarla en la tabla
}

Mis pequeños aportes...

{
TCLDBImage Component
© Christian Loayza
christian.loayza@gmail.com
Version 0.01
Abril 2013

DESCRIPCION: Este componente se basa en la propuesta de TimDBImage, que permite trabajar con imágenes almacenadas campos BLOB
en el formato ICO, BMP, JPG, PNG, GIF, TIF

MI APORTE
Incorporación de nuevos formatos ICO, PNG, GIF, TIF, WMF, EMF disponibles en Delphi XE2 y supongo que en XE...
Para Delphi 2007, se usa la la unit pngimage.pas que forma parte de los componentes PNG Components.

Nuevas Propiedades:
ImageType (TImageType) : Tipo de imagen que contiene el campo blob.
TitleEmptyImage (String): Titulo a desplegar cuando el campo no contiene una imagen.
}

Esta en el ftp del club el enlace es CLDBImagen_Sample.zip

Esta probado y funcionando para imagenes almacenadas en campos blob en Firebird, Paradox...

Espero que les sirva.

Saludos cordiales

[Casimiro Notevi]

Gracias por la aportación

[[ElKurgan]]

Gracias por el aporte

[radenf]

Estimado cloaysa :

Muchas gracias por tu aporte.
Utilizo Delphi 2007 y no puedo compilar tu componente porque me falta la unit pngimage.pas
¿De dónde puedo descargar los png components?

Saludos

[Casimiro Notevi]

Creo que son estos componentes.

[cloayza]

Empezado por radenf

Estimado cloaysa :

Muchas gracias por tu aporte.
Utilizo Delphi 2007 y no puedo compilar tu componente porque me falta la unit pngimage.pas
¿De dónde puedo descargar los png components?

Saludos

Si no tienes los PNGImagen, desactiva la directiva de compilación

Código Delphi [-]
interface                     
{.$DEFINE PNG_Component}      
{$DEFINE TIF_Imagen}          
{$DEFINE WMF_Imagen}

Saludos cordiales

[radenf]

Muchas gracias.
Salu2

[ecfisa]

Hola cloayza.

Gracias por el aporte

Saludos.