Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-06-2015
DANIEL1818 DANIEL1818 is offline
Miembro
NULL
 
Registrado: abr 2015
Posts: 42
Poder: 0
DANIEL1818 Va por buen camino
Guardar imagen en campo Blob (tabla en access)

Hola! tengo el siguiente problema, tengo que dar el alta de un producto el cual tiene Titulo, descripcion_producto y foto. El unico problema que tengo es el de subir la foto al campo 'foto'. En dicho formulario de alta de producto tengo los edits para el titulo y la descripcion_producto y un DBImage para subir la foto (con un openPictureDialog), lo que necesito es GUARDAR LA FOTO EN LA BASE DE DATOS, NO LA RUTA DE ACCESO A LA FOTO. Los tabla en access se actualizaria al hacer click en un boton de mi formulario llamado "Publicar".

Me podrian dar una mano? ya que estoy intentando hace varios dias ya y no logro encontrar la solucion. Busque info en google y en el foro pero no di con alguna solucion parecida.

Espero sus respuestas! MUCHISIMAS GRACIAS!!
Responder Con Cita
  #2  
Antiguo 17-06-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Daniel.

Código Delphi [-]
procedure BitmapToBlobField(Image: TImage; Field: TField);
var
  Stream: TStream;
begin
  Stream := TMemoryStream.Create;
  try
    Image.Picture.Bitmap.SaveToStream(Stream);
    Stream.Seek(0, soFromBeginning);
    TBlobField(Field).LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

Ejemplo de uso:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    with tu_DataSet do
    begin
      Edit;
      BitmapToBlobField(Image1, FieldByName('IMAGEN'));
      //...
      Post;
    end;
  end;
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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 y cargar imagen en campo blob look Firebird e Interbase 15 03-08-2017 22:05:55
access violation al actualizar una imagen en un campo blob firebird Bobybalazo Firebird e Interbase 4 06-01-2013 22:25:44
guardar imagen en campo blob edgar_prospero Varios 10 14-11-2012 21:47:22
Problema extrayendo campo imagen de una tabla access JoysticK Gráficos 8 08-08-2008 04:00:07
problema al intentar guardar una imagen como blob en una tabla Gigabyte1024 Conexión con bases de datos 3 23-02-2007 00:30:34


La franja horaria es GMT +2. Ahora son las 19:51:44.


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