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...
Cita:
{
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...
Cita:
{
TCLDBImage Component
© Christian Loayza
[email protected]
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