Guardar imagenes en una base de datos

[eudy.net]

Hola a todos,

Aqui les planteo mi problema: estoy haciendo una aplicación que utilize una base de datos de SQL SERVER 2000, en dicha base de datos tengo una tabla llamada Tconductor, dicha tabla tiene un campo llamado Imagen

¿Como puedo guardar, sustituir y eliminar esa imagen mediante delphi??????

Gracias anticipadas,
Se despide,
eudy.net
"Mientras más aprendo, más me doy cuenta de lo ignorante que soy"

[[BlueSteel]]

Hola eudy.net

bueno, te informo que este tema ha sido tratado, es preferible que realices una busqueda en el Foro, y encontrarás los resultados...

si quieres revisa estos hilo

ahora, bien.. si tienes problemas para guardar la imagen, tambien depende de cuantos registros quieras almacenar, puede que te convenga que la imagen la guardes en una carpeta compartida, y que en la tabla guardes el path (ruta) donde esta almacenada la foto... esto te puede servir para que el sistema funcione mucho más rápido...

dale una vuelta...

salu2

[eudy.net]

Muchas gracias BlueSteel,

Opté mejor por hacerlo guardando la dirección en la base de datos, gracias me sirvió de mucho

[rpgr]

la guardas en Base de datos SQL tabla tconductor, campo tipo de campo image guardando la imagen :

extraer imagen desde path -> Image1.Picture.LoadFromFile(ExtractFilePath(Application.Name)+imegen.bmp);

y la grabas asi

tconductor.FieldByName('FOTO').Assign(Image1.Picture);

[Delfino]

Yo lo hago siempre con el control TJvDBImage de la JVCL, bueno bonito y barato

[MARLON1]

Empezado por Delfino

Yo lo hago siempre con el control TJvDBImage de la JVCL, bueno bonito y barato

hola delfino, revisando todo lo de visualizacion de imagenes en el foro encontre tu porpuesta para hacer la visualizacion, descargue el componente, lo isntale, lo utilize y me sale el error de "" imagen bitmap invalida"", este error me sale tambien con el componente dbimage, me podrias decir que estoy haciendo mal porfavor, te agradezco tu ayuda.

estoy utilizando

Query-Datasource-TJvDbImage-DataField-imagen

al momento de activar el query me sale el error.

[rpgr]

puede ser que estes guardando la imagen en el QRY y no en la tabla base....

mandame el codigo y te ayudo...

[MARLON1]

hola, lo que pasa es que no estoy utlizando codigo, solo hago las conexiones correspondientes.

Query-DataSource-DBimage

en el datafield del dbimage selecciono el campo(blob) "imagen" que es donde esta almacenada la imagen, pweo al momento de activar el query. me dice que la imagen bitmap no es valida.

[rpgr]

no entiendo tu trabajo....

como tomas la imagen y donde la quieres guardar...

mas detalle ...

[MARLON1]

gracias por tu atencion, lo que pasa es que no quiero guardar, quiero visualizar la imagen, lo que hago es una consulta con el query para obtener registros de la tabla, entonces asocio el dbimage con el campo imagen de mi tabla para visualizarla, con las conexiones ya antes mencionadas, pero me sale el error que te comento., gracias de antemano.

[rpgr]

yo utilizo para leer :

Image1 : cuadro imagen en formulario

FOTO : nombre campo en tabla QRYMaestro con tipo image

muestro en una RxDBGrid1 los datos de resultado de mi QRY y en el evento KeyPress pongo "Image1.Picture.Assign(QRYMaestro.fieldByName('FOTO'));"

Ejemplo :
procedure TFRMEnrolados.RxDBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
Image1.Picture.Assign(ADOQRYMaestro.fieldByName('FOTO'));
end;

[MARLON1]

Empezado por rpgr

yo utilizo para leer :

Image1 : cuadro imagen en formulario

FOTO : nombre campo en tabla QRYMaestro con tipo image

muestro en una RxDBGrid1 los datos de resultado de mi QRY y en el evento KeyPress pongo "Image1.Picture.Assign(QRYMaestro.fieldByName('FOTO'));"

Ejemplo :
procedure TFRMEnrolados.RxDBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
Image1.Picture.Assign(ADOQRYMaestro.fieldByName('FOTO'));
end;

Este ejemplo ya lo habia probado. pero me sale el mismo error. nose a que se deba! pero seguire intenta. muchas gracias por la ayuda. pienso que a de ser por el formato de la imagen o algo asi :s.

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Image1.Picture.Assign(query1.fieldByName('imagen'));
end;

[rpgr]

Solo soporta imagen tipo BMP....

[MARLON1]

ese es el problema!! muchas gracias, disculpa sabras como puedo cambiar el formato de la imagen a bmp?, muchas gracias por la info

[rpgr]

Hay muchos programas.... yo utilizo el Corel Fotho Paint
bsca en internet....

[Casimiro Notevi]

Abajo, al final de la página hay varios enlaces que os puede servir, en todo caso también está la opción de "Buscar" para hacer búsquedas por todos los temas de clubdelphi.