Guardar un JPEG en un campo LongBlob

[Casimiro Noteví]

Mira algunos de los mensajes del final de página, abajo del todo.
También puedes hacer una búsqueda, es un tema que se ha tratado infinidad de veces.
Avisa si no encuentras la solución.

[darkamerico]

Empezado por Casimiro Notevi

Mira algunos de los mensajes del final de página, abajo del todo.
También puedes hacer una búsqueda, es un tema que se ha tratado infinidad de veces.
Avisa si no encuentras la solución.

Efectivamente, se ha tratado muchas veces pero usando componentes TTable, lo que tengo en este programa es un TQuery, lo que estoy requiriendo es un codigo que me recoja un archivo JPEG del disco duro y lo inserte directamente en el registro con el idPersSelecc de la variable.

[[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;

[Casimiro Noteví]

Bien, por eso te he comentado esto:

Empezado por Casimiro Notevi

Mira algunos de los mensajes del final de página, abajo del todo.
También puedes hacer una búsqueda, es un tema que se ha tratado infinidad de veces.
Avisa si no encuentras la solución.