Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-04-2010
aanil aanil is offline
Miembro
 
Registrado: abr 2006
Posts: 155
Poder: 19
aanil Va por buen camino
Guardar fotos en formato JPEG

Hola a todos:

Usando artificios he logrado guardar en una tabla access en nombre y la foto de una estudiante, pero en formato BMP, no lo he podido lograr en JPEG.

Este es el código que lo guarda, me funciona, pero creo que la tabla se var a poner muy grande cuando tenga muchos datos.

Código SQL [-]
query1.Insert;
query1nombre.AsString := edit1.Text ;
query1foto.LoadFromFile (edit2.Text) ;
query1.Post;

Este otro es el de consultar, todo me sale bien.

Código SQL [-]
   with query2 do begin
close;
sql.Text := 'select * from tabla where nombre ='+quotedstr(edit1.Text);
open;

La ayuda que les solicito es como guardar la foto en formato JPEG

Saludos
Responder Con Cita
  #2  
Antiguo 10-04-2010
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 26
Caral Va por buen camino
Hola
Te recomiendo:
1- en caso de seguir insistiendo en guardar la foto en la bd que sea en formato png, si es posible (no se hacerlo).
2- No guardar la foto en la BD.
Soy partidario de la segunda opción.
Saludos
__________________
Siempre Novato
Responder Con Cita
  #3  
Antiguo 10-04-2010
Avatar de radenf
radenf radenf is offline
Miembro
 
Registrado: oct 2007
Ubicación: Viña del Mar,Chile
Posts: 608
Poder: 18
radenf Va por buen camino
Estimado(a) aanil:

Si utilizas el componente EDBImage de Sebastián Mayora, de distribución gratuita, que encuentras fácilmente al hacer una búsqueda en la web, podrás insertar imágenes en formato jpeg en tu BD, sin hacer ningún esfuerzo.
Te adjunto el código que te permite insertar o eliminar las imágenes. Debes incluir en tu Form este componente, un OpenPictureDialog y un ActionList para definir los DataSetEdit1 y DataSetRefresh1.

Para insertar imágenes en la BD

Código Delphi [-]
procedure Form1.ButtonInsertarFotografia1Click(Sender: TObject);
begin
if DataSetEdit1.Execute then
if OpenPictureDialog1.Execute then
EDBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
DataSetRefresh1.Execute;
end;

Para eliminar las imágenes de la BD

Código Delphi [-]
procedure Form1.ButtonEliminarFotografia1Click(Sender: TObject);
begin
if Message1.MessageDlg('¿ Realmente desea eliminar esta Fotografía ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
DataSetEdit1.Execute ;
EDBImage1.Field.Clear ;
DataSetRefresh1.Execute;
end;
end;

Espero haber podido ayudarte

Salu2
Responder Con Cita
  #4  
Antiguo 11-04-2010
Avatar de heroe
heroe heroe is offline
Miembro
 
Registrado: may 2006
Ubicación: Cartago, Costa Rica
Posts: 45
Poder: 0
heroe Va por buen camino
Lightbulb Re: Guardar imagenes jpg en base de datos

Hola,
Ya navegaste por los post relacionados con el tema?, hay varias respuestas que creo pueden ayudarte.

Aquí hay un link a un post que responde tu pregunta
http://www.clubdelphi.com/foros/show...?t=58164:cool:
__________________
Nada es parasiempre.
Responder Con Cita
  #5  
Antiguo 11-04-2010
aanil aanil is offline
Miembro
 
Registrado: abr 2006
Posts: 155
Poder: 19
aanil Va por buen camino
Saludos Caral

Tengo un programa que se llama EASY GRAPHIC CONVERTER, que convierte una foto de JPEG a cualquier formato incluyendo el png. Este programa convierte una foto que tiene formato JPEG y de 39 KB a formato png a 14 KB.

Para mi caso con ese formato png yo puedo almacenar en una tabla las fotos de mis estudiantes que no pasan de 100, pero hay una cosa en formato bmp, yo puedo almacenar la foto y puedo también llamarla, en formato png no lo puedo hacer.

En uses hice la declaración del formato, pero no me lo admite.

* Puedes darme una explicación?

Gracias.
Responder Con Cita
  #6  
Antiguo 11-04-2010
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 26
Caral Va por buen camino
Hola
No se como guardar en formato PNG.
Lo que te recomendé fue no usar la tabla mas bien almacenar las fotos en archivo.
Saludos
__________________
Siempre Novato
Responder Con Cita
  #7  
Antiguo 05-05-2010
Avatar de victor Julio
victor Julio victor Julio is offline
Miembro
 
Registrado: dic 2008
Posts: 14
Poder: 0
victor Julio Va por buen camino
Cita:
Empezado por radenf Ver Mensaje
Estimado(a) aanil:

Si utilizas el componente EDBImage de Sebastián Mayora, de distribución gratuita, que encuentras fácilmente al hacer una búsqueda en la web, podrás insertar imágenes en formato jpeg en tu BD, sin hacer ningún esfuerzo.
Te adjunto el código que te permite insertar o eliminar las imágenes. Debes incluir en tu Form este componente, un OpenPictureDialog y un ActionList para definir los DataSetEdit1 y DataSetRefresh1.

Para insertar imágenes en la BD

Código Delphi [-]procedure Form1.ButtonInsertarFotografia1Click(Sender: TObject); begin if DataSetEdit1.Execute then if OpenPictureDialog1.Execute then EDBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName); DataSetRefresh1.Execute; end;


Para eliminar las imágenes de la BD

Código Delphi [-]procedure Form1.ButtonEliminarFotografia1Click(Sender: TObject); begin if Message1.MessageDlg('¿ Realmente desea eliminar esta Fotografía ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin DataSetEdit1.Execute ; EDBImage1.Field.Clear ; DataSetRefresh1.Execute; end; end;


Espero haber podido ayudarte

Salu2
Estimado aanil me pondrias incicar como defino los DataSetEdit1 y DataSetRefresh1 te lo agradeceria bastante, ya que instale bien edibimage 1.6, pero no graba como dice su readme sin una linea de codigo

Saludos
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Guardar Jpeg en Mysql con delphi7 shoulder Varios 2 31-12-2012 21:37:32
Error al guardar Jpeg en Campo Blob El_Perrito Gráficos 6 28-04-2012 21:06:38
como convertir una imagen jpeg a formato THM kurono Varios 0 06-08-2008 07:40:14
Guardar Imagen JPEG pero especificando calidad gulder Gráficos 2 24-02-2008 01:40:04
Como guardar Fotos en Base de Datos? El_Raso Varios 1 30-01-2007 21:50:21


La franja horaria es GMT +2. Ahora son las 01:14:10.


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
Copyright 1996-2007 Club Delphi