Guardar un JPEG en un campo LongBlob

[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