FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
como declarar Clases que almacenen imagenes
hola a todos. estoy realizando la creacion de una interfaz en delphi el cual almacena informacion en una tabla de bd interbase. La tabla la e llamado articuloImagen y en su estructura tiene un campo de tipo blob ,algo asi:
lo particular en esto es que en la interfaz , utilizo componentes standar ; que luego los verifico bajandolo hacia una clase , que mantiene la misma estructura , pero el problema es que no se como declarar en mi clase el cambo imagen. lo que he hecho no me a resultado. alguien sabe como poder realizar esto?
nota : si me dieran alguna recomendacion adicional, se los agradeceria mucho. gracias Última edición por dec fecha: 06-09-2006 a las 17:59:14. |
#2
|
|||
|
|||
a ver si entendi? -> Vos lo que queres hacer es traer una imagen de la DB y tenerla en una clase.
|
#3
|
||||
|
||||
Hola morfeo21, hace un tiempo vi un componente donde almacenaban una imagen de una base de datos en un campo de tipo TPicture. Para asignarlo sería algo como:
Código Delphi [-]... Private ptipinv :integer; pcodart :string; pcodimg :integer; pdirimg :string; pimagen :TPicture; pformato :Variant; ... Property imagen :tPicture read pimagen write pimagen; ... //Mas abajo a la hora de asignarlo if not(PArtImagen.Eof) then begin Articulo_imagen.tipinv := PArtImagen.FieldByName('tipinv').Value; Articulo_imagen.codart := PArtImagen.FieldByName('codart').Value; Articulo_imagen.codimg := PArtImagen.FieldByName('codesp').Value; Articulo_imagen.dirimg := PArtImagen.FieldByName('dirimg').Value; Articulo_imagen.imagen.Assign(PArtImagen.FieldByName('imagen').Value); Articulo_imagen.formato :=PArtImagen.FieldByName('formato').Value; SW:=True; end; Tambien tendrías que crear y destruir ese objeto TPicture junto con tu componente. Pruébalo a ver si te funciona asi.
__________________
"En el siglo de la estupidez todas las casas comienzan por la fachada" (Fuckowsky) Planeta Insólito, La Pluma Inspirada |
#4
|
||||
|
||||
Perdon por el mensaje repetido y el mal formato, creo que tengo problemas con mi navegador, si algún moderador lo puede arreglar...
__________________
"En el siglo de la estupidez todas las casas comienzan por la fachada" (Fuckowsky) Planeta Insólito, La Pluma Inspirada |
#5
|
||||
|
||||
Podes borrarlos vos mismo... le das en Editar, y luego Borrar.
Saludos.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#6
|
|||
|
|||
Que tal
Te paso unas modificaciones, con esto te debe funcionar, haber que tal te parece.
Última edición por bismarck_sierra fecha: 07-09-2006 a las 16:39:43. |
#7
|
|||
|
|||
Gracias por la pronta respuesta por parte de todos Uds. se los agradesco mucho. Realizare las pruebas pertinentes ahora mismo
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
declarar un float en delphi | dmagui | Firebird e Interbase | 5 | 29-09-2005 18:18:10 |
Como declarar un campo tipo BLOB | Ronny | Firebird e Interbase | 0 | 19-01-2005 16:46:29 |
Cómo declarar un campo blob en interbase para almacenar un *.jpg | jaderl | Firebird e Interbase | 1 | 20-10-2004 16:50:02 |
Como declarar una clase para desarrollarla despues???? | treydo | OOP | 2 | 03-02-2004 19:27:11 |
Como declarar variables para que las puedan utilizar otras units | erocha | Varios | 1 | 07-11-2003 22:21:27 |
|