Guardar un JPEG en un campo LongBlob

[[AgustinOrtu]]

No importa el componente, a fin de cuentas siempre operas con TField; en este caso la clase especializada TBlobField

Ejemplo

En este enlace hay un ejemplo de ecfisa y tambien he subido una unidad con un metodo que le pasas un campo blob y lo vuelca en un TImage

Saludos

[fredo]

EL CAMPO DBiMAGE SOLO SOPERTA bmp, ¿por que? aun no tengo idea.... deviera soportar minimo png y jpg, pero bueno ya que no es el caso yo hici este codigo para usar jpg.

para evento afterscroll de ti query

Código Delphi [-]
var
  JpegImage: TJPEGImage;
  BlobStream: TStream;
begin
//     FDQImagenes contiene las imagenes en memoria y ya esta activa con solo los productos que tiene  imagen en JPG//
//     FDQProductosVentas contiene la ficha del producto completa

     FDQImagenesProductos.Close;
     FDQImagenesProductos.ParamByName('codigo').asInteger :=FDQProductosVentascodigo.AsInteger;
     FDQImagenesProductos.Open;

     if FDQImagenesProductoscodigo.AsString <> '' then
     Begin
        if not FDQImagenesProductosimagen.IsNull then
        Begin
          try
            BlobStream := FDQImagenes.CreateBlobStream(FDQImagenesProductos.FieldByName('imagen'), bmRead);
            JpegImage := TJPEGImage.Create;
            JpegImage.LoadFromStream(BlobStream);

            ImagenProd1.Picture.Assign(JpegImage);
          finally
            JpegImage.Free;
            BlobStream.Free;

            SinImagenProd1.Visible := false;
            ImagenProd1.Visible := true;
          end;
        End;
     End
        else
     Begin
          SinImagenProd1.Visible := true; // esto es un image que se superpone si no tiene imagen mostratno                                      //que es un a incognita una imagen por defecto
          ImagenProd1.Visible := false;
     End;
end;

creo es mas menos lo que quieres, salu2

[fredo]

para grabar la imagen seria muy similar.

Código Delphi [-]
var JpegImage: TJPEGImage;
begin
     if FDQInsumoscodigo.AsString <> ''
     then
     Begin
         if abrir.Execute
         then
         Begin
              JpegImage:=TJPEGImage.Create;
              try
              JpegImage.LoadFromFile(abrir.FileName);
              Imagen.Picture.Assign(JpegImage);
              finally
                    JpegImage.Free;
              end;

              FDQImagenes.Close;
              FDQImagenes.ParamByName('codigo').AsInteger:=FDQInsumoscodigo.AsInteger;
              FDQImagenes.Open;

              if FDQImagenescodigo.AsString = ''
              then
              Begin
                   FDQImagenes.Append;
                   FDQImagenescodigo.Value:=FDQInsumoscodigo.AsInteger;
              End
                 else FDQImagenes.Edit;
             FDQImagenesimagen.LoadFromFile(abrir.FileName);
             FDQImagenesExt.Value:=Saca_extencion(abrir.FileName);
             FDQImagenes.Post;
             SinImagen.Visible:=false;
             imagen.Visible:=true;
         End;
     End;
end;