No se guardan las imágenes completas en el campo LONGBLOB
 

Hola a todos, soy nueva aquí, verán, mi caso es el siguiente:
-Uso Delphi 7, tengo un formulario de productos en el cual necesito guardar una foto (.jpg) en un campo tipo blob en mi BD. Esto desde un TImage, antes usaba un DBImage pero me leyendo otros foros vi que este sólo me permitía guardar imágenes .bmp, en fin, ya logré que la imagen se guarde con el siguiente código:

Código Delphi [-]
procedure TFr_Producto.BitBtn1Click(Sender: TObject);
  var
  fs: TMemoryStream;
  imgJPG: TJPEGImage;
begin
  if dlAbrirFoto.Execute then
  begin
    imgJPG:= TJPEGImage.Create;
    fs:= TMemoryStream.Create;
    try
      imgJPG.LoadFromFile(dlAbrirFoto.FileName);
      imgJPG.SaveToStream(fs);
      fs.Seek(0,soFromBeginning);
      try
        imgFoto.Picture.Assign(imgJPG);
        finally
          fs.Free;
      end;
      except
        on E : Exception do 
      begin 
        MessageDlg('Asegúrese de que la imagen seleccionada es de ' + 
           ' tipo JPEG con formato correcto. ' +
           E.Message, mtError, [mbOK], 0);
      end;
    end;

  end;

end;

Lo que ahora necesito es que al consultar el registro me aparezca la foto, pero me marca un error que dice que el formato de la foto no es correcto. lo Hago de la siguiente manera:
*Aquí consulto los datos*

Código Delphi [-]
procedure TFr_Producto.FormShow(Sender: TObject);
begin
  Seleccion:= 'select producto.ID, CODBAR, NOMBRE, DESCRIPCION, inventario.EXISTENCIA, ';
  Seleccion:=Seleccion+'FAMILIA, MARCA, FECHA_ALTA, inventario.STOCK_MAX, inventario.STOCK_MIN, ';
  Seleccion:=Seleccion+' inventario.PRE_COST, inventario.PRE_BRUTO, inventario.PRE_VTA, inventario.COST_MED, IMAGEN ';
  Seleccion:=Seleccion+'from producto inner join inventario ';
  Seleccion:=Seleccion+'on producto.ID = inventario.IDPROD ';
  Seleccion:=Seleccion+'where producto.ID = :idP';
  buscar_producto(CatProductos.idProd);
end;

*Aquí los asigno al formulario*

Código Delphi [-]
procedure TFr_Producto.buscar_producto(idProd: Integer);

begin
  Edit1.Text:= IntToStr(CatProductos.idProd);
  Query:= MDatos.Query01;
  Query.Close;
  Query.SQL.Clear;
  Query.SQL.Add(Seleccion);
  Query.Params[0].AsInteger:=CatProductos.idProd;
  Query.Open;

  if not Query.IsEmpty then
  begin
    Edit1.Text:=Query.Fields[0].AsString;
    Edit2.Text:=Query.Fields[1].AsString;
    Edit4.Text:=Query.Fields[2].AsString;
    Edit3.Text:=Query.Fields[3].AsString;
    Edit8.Text:= Query.Fields[6].AsString;
    Edit9.Text:= Query.Fields[5].AsString;
    Fecha_Alta.Date:= Query.Fields[7].AsDateTime;
    Edit7.Text:=Query.Fields[10].AsString;
    Edit5.Text:=Query.Fields[13].AsString;
    Edit11.Text:=Query.Fields[11].AsString;
    Edit13.Text:=Query.Fields[12].AsString;
    Edit14.Text:= Query.Fields[9].AsString;
    Edit15.Text:= Query.Fields[8].AsString;
    Edit16.Text:= Query.Fields[4].AsString;
    imgFoto.Picture.Graphic.Assign(Query.Fields[14]);
  end;
end;

El error me lo marca en - imgFoto.Picture.Graphic.Assign(Query.Fields[14]); -
Sé que igual y es "tonto" la manera en que le estoy asignando el valor al TImage (imgFoto) pero ya he intentado de muchas maneras y no puedo. No sé si alguien pueda ayudarme, de antemano muchas gracias y espero haber publicado en el lugar correcto.

Hola oh.mely, bienvenida a los foros de Club Delphi :)

Si el formato guardado es un .jpg válido, inténtalo de este modo:

Código Delphi [-]
...

uses Jpeg;

procedure TuForm.BitBtn1Click(Sender: TObject);
var
  J: TJPEGImage;
begin
  //...
  Image1.Picture := nil;
  J := TJPEGImage.Create;
  try
    J.Assign(TBlobField(Query.FieldByName('IMAGEN')));
    imgFoto.Picture.Assign(J);
  finally
    J.Free;
  end;
end;

Saludos :)

¡Muchísimas gracias ecfisa! si me funcionó. Gracias por el tiempo y la atención.

¡Saludos! :D

No se guardan las imágenes completas en el campo LONGBLOB
 

Buenas tardes, tengo un problema y no sé si alguien pueda ayudarme; verán, a través de un formulario en Delphi 7 estoy guardando una imagen .jpg en un campo 'IMAGEN' tipo LONGBLOB, el problema es que al consultar el registro desde mi formulario algunas imágenes se me muestran incompletas.

Buscando información encontré en LONGBLOB es el que acepta archivos más grandes, entonces no sé a que se deba, o si debo de utilizar otro tipo de dato.

De antemano gracias y saludos!

No somos adivinos, debes decir qué base de datos usas, qué componentes, qué código estás usando para guardarla y para leerla, etc.
Por favor, no olvides leer nuestra guía de estilo, gracias y bienvenido a clubdelphi.

Por cierto, tu otro mensaje está muy relacionado con este, realmente viene a ser lo mismo, así que los he unido.

Hola.
Además de lo dicho por Casimiro, revisa que el control TImage tenga su propiedad Strech con el valor True.

Saludos :)

Hola, gracias por responder y pido una disculpa por no formular bien mi duda. Ya arreglé el problema, he optado por guardar la ruta de la imagen y no la imagen como tal en mi BD, por lo que leí en varios blogs y foros es lo más "óptimo".

La propiedad Strech de mi TImage si era True, lo que pasaba es que no la cargaba completa cuando me mostraba la imagen, aparecía como cortada, por lo que leí se debía a que las fotos que se mostraban así eran muy grandes para el campo longblob, por eso he recurrido a hacerlo de la otra manera.

Saludos.

Depende, siempre depende.


Bueno, eso no es así, si aparecía cortada es porque no la habías guardado bien o no la has cargado bien. Un campo blob puede almacenar "cosas" de muchos gigas, y no creo que esas imágenes fuesen tan grandes.