Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   Grabar imagen (https://www.clubdelphi.com/foros/showthread.php?t=54222)

spia 12-03-2008 01:52:01

Grabar imagen
 
hola que tal amigos tengo una base de datos en access y quiero grabar una imagen en cada registro en delphi ya hice la opcion de dbimage y en la base de datos tengo la opcion de objeto ole pero despues que hago como y de donde va a jalar las fotos de cada registro gracias

Neftali [Germán.Estévez] 12-03-2008 10:30:46

Puedes hacer Copy/Paste sobre el control DBImage, o utilizar LoadFromFile de ese mismo control para cargar la imagen desde disco.

spia 12-03-2008 16:30:30

Cargar imagen
 
hola que tal me inclino mejor con la de cargar el archivo asi al darle 2 click me abra la opcion de darle la ruta, pero se requiere de algun codigo en especial o me puedes decir como va el codigo gracias

Neftali [Germán.Estévez] 12-03-2008 18:40:54

Utiliza un control OpenDialog; Al darle doble click lanzas el método Execute del OpenDialog y una vez cerrado en la propiedad FileName de ese mismo control tendrás el fichero seleccionado.
Revisa la ayuda para configurar propiedades como la extensión (tipo de fichero), directorio inicial,...

spia 12-03-2008 20:47:53

grabar imagen
 
que tal oye meti asi este codigo quiero ver si estoy bien. mira cuando lo cargo en el registro indicado la imagen solo me acepta los *.bmp ya me fui a las propiedades del dialogo y si tiene cargado todos los formatos de imagenes pero cuando corro la apalicacion no me acepta ningun otro formato solo lo bmp haber cual puede ser el detalle. estoy utilizando un openpicturedialog

procedure TFModelos.DBImagenDblClick(Sender: TObject);
begin
if open1.Execute then begin
try
dbimagen.Picture.LoadFromFile(open1.FileName);
except
showmessage('No se pudo Cargar la imagen');


La franja horaria es GMT +2. Ahora son las 16:11:22.

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