Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   Insertar imagenes a una base de datos .db (https://www.clubdelphi.com/foros/showthread.php?t=63468)

emula 16-02-2009 00:04:58

Insertar imagenes a una base de datos .db
 
Saludo Gente... necesito un ayuda con algo referido a las bases de datos

soy nuevo en ese medio y aun desconosco ciertos trucos o artilugios.:D

Como sabes en la carpeta de demos que trae delphi hay una llamada FishFact

C:\Archivos de programa\Borland\Delphi7\Demos\Db\FishFact

que no es mas que un mostrador de especies de peces, :cool: lo bueno es que muestra las imagenes para conocerlo...

Lo que necesito es saber como puedo agregar o sustituir las imagenes de una base de datos asi como la BIOLIFE.db del ejemplo... Se que debe haber una celda con la opcion GRAPHIC en donde teoricamente se guardara la imagen.

Por favor si pueden generarme un ejemplo facil de entender se lo agradeceria, para asi poder adaptarlo a una agenda que estoy haciendo que ademas de los datos me muestra la imagen que guarde de la persona... como dicen una imagen vale mas que mil palabras. :D

Muchas Gracias de antemano

Neftali [Germán.Estévez] 16-02-2009 09:29:05

Cita:

Empezado por emula (Mensaje 338214)
Lo que necesito es saber como puedo agregar o sustituir las imagenes de una base de datos asi como la BIOLIFE.db del ejemplo... Se que debe haber una celda con la opcion GRAPHIC en donde teoricamente se guardara la imagen.

Creo que bastará con que te coloques sobre el campo imagen y hagas un PASTE, si previamente has hecho un COPY de una imagen.

Otra opción es por ejemplo colocar un botón donde utilices LoadFromFile.
Busca información en los foros sobre esta instrucción; Seguro que encuentras muchos códigos de ejemplo.
Por ejemplo, coloca un botón con un código similar a este:

Código Delphi [-]
var
  direccon:string;
begin
 if OpenPictureDialog1.Execute then begin
  direccion:= OpenPictureDialog1.FileName;
  DBImage1.Picture.Bitmap.LoadFromFile(direccion); 
 end;

emula 16-02-2009 20:33:59

Cita:

Empezado por Neftali (Mensaje 338229)
Creo que bastará con que te coloques sobre el campo imagen y hagas un PASTE, si previamente has hecho un COPY de una imagen.


Gracias por la respuesta compadre, pero ya intente eso y nada. :( soy novato en eso y lo que e estado buscando es un ejemplo donde se pueda ver claramente como es el mani, pero no e tenido buena suerte en encontrarlo...

estoy intentando con un ejemplo que yo mismo estoy haciendo y con unos comando que me han pasado. miralo a ver si ando en el camino o esta mas perdido el que me lo paso... me da un error y te lo anexo en este link.:mad:

Me dicen que debo poner la base de datos en modo editar,,,, pero como la pongo ademas de como esta puesta en el boton. Que detalle pequeño estoy pasando por alto..

http://img403.imageshack.us/my.php?image=errorni6.png

Neftali [Germán.Estévez] 17-02-2009 10:20:34

Haz las pruebas con la demo de peces que comentas, debería funcionar.
Además puedes probar a hacer el LoadFromFile sobre el control, como el código que te he puesto.

Otra cosa, ¿El componente de DBImage lo tienes "enganchado" al Dataset?

chalo 14-02-2011 03:14:22

me sumo al tema!!!
 
buenas tardes: perdon que me sume a esta conversacion tambien soy un poco novato, pero quisiera preguntarles ¿como se resolvio este tema al final? por que yo estoy haciendo exactamente lo mismo, una agenda en donde quiero insertar imagenes por cada nuevo contacto nuevo que agrego o si lo quiero modificar tambien poder modificar la imagen si ya la tiene cargada, y tengo el mismo problema, estoy trabajando con delphi 7 y con base de datos Microsoft Access 2007.

esto de insertar la imagen y que se guarde por cada contacto seria lo unico que me estaria faltando y que no puedo lograr todavia para que mi agenda este dentro de todo completa.

Desde ya muchas gracias.

Saludos.

Atte. Gonzalo.


La franja horaria es GMT +2. Ahora son las 20:43:42.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi