guardar imagen en campo longblob o blob
 

Buen día e estado buscando y no logro encontrar un hilo que me sirva para guiarme para guardar una imagen.

Les comento que estoy usando unidac para las conexión y consulta a la base de datos, logro visualizar y seleccionar la imagen que se va a guardar pero el problema viene cuando doy en el botón guardar pues no me guarda la imagen tengo este codigo


primero muestro y selecciona la imagen con este código
y luego esta el código del botón guardar


esto es lo que tengo en el botón de guardar; gracias por la atención prestada

Mira los enlaces similares que están al final de esta página, abajo del todo.

con todo respeto estoy colocando este hilo por que no encuentro nada que me sirva que use unidac, y por eso aclaro

Da igual si usas unidac o cualquier otro componente, los enlaces que te he indicado te sirven para lo que quieres hacer.
https://www.clubdelphi.com/foros/showthread.php?t=90075
https://www.clubdelphi.com/foros/showthread.php?t=81289

Prueba quitando Active. Si no me equivoco esto es una función que devuelve si el query está ejecutado o no.
Por otro lado, utiliza parámetros siempre que puedas. Evita un montón de errores (por ejemplo si meten una comilla simple en la descripción.
Además es mucho mas facil leer el código.

Por otro lado, ¿cuál es el error?

• Crea un registro con el valor de IMAGEN nulo.
• Crea un registro con el valor de IMAGEN erróneo/cortado.
• Da un error al ejecutar el Query ¿Cúal?

Código Delphi [-]
// Mostramos el fomulario y lo ubicamos
Frm_Producto.Visible := true;
Frm_Producto.Show;

// Insertamos imagen
MS := TMemoryStream.Create;
try
    // Cargo imagen en un Stream desde un archivo
    MS.LoadFromFile(D_Img.FileName);
    
    // Ejecuta la consulta
    with DataModuleLACM.UniQuery1 do
    begin
        sql.Clear;
        sql.Add(' INSERT INTO CM_PRODUCTO ( ');
        sql.Add(' IMAGEN, BARCODE, DESCRIPCION, INV_MIN, CAJA, UND, F_CREAR_PROD, ID_CATG, ID_MARCA, ESTADO_PROD) ');
        sql.Add(' VALUES ( ');
        sql.Add(' :IMAGEN, :BARCODE, :DESCRIPCION, :INV_MIN, :CAJA, :UND, :F_CREAR_PROD, :ID_CATG, :ID_MARCA, :ESTADO_PROD) ');

        // El parametro IMAGEN se carga de manera especial desde un stream
        ParamByName('IMAGEN').LoadFromStream(MS, ftGraphic);

        ParamByName('BARCODE').AsString := EdtCod_Barra.Text;
        ParamByName('DESCRIPCION').AsString := EdtDescripcion.Text;
        ParamByName('INV_MIN').AsString := EdtInve_Min.Text;
        ParamByName('CAJA').AsString := EdtCaja.Text;
        ParamByName('UND').AsString := EdtUnd.Text;
        ParamByName('F_CREAR_PROD').AsString := EdtFecha.Text;
        ParamByName('ID_CATG').AsString := DBEdt_Categoria_id.Text;
        ParamByName('ID_MARCA').AsString := DBEdt_Marca_id.Text;
        ParamByName('ESTADO_PROD').AsString := 'Activo';
        // Active; Quita esto
        ExecSQL;
        Close;
    end;
finally
    MS.Free;
free;

También puede ser que tengas que cargar el parámetro de esta forma:

Código Delphi [-]
        BlobStream := CreateBlobStream(ParamByName('IMAGEN'), bmWrite);
        try
            BlobStream.CopyFrom(MS, MS.Size);
        finally
            BlobStream.Free;
        end;

También se me ocurre que tenga el mismo "problema" que los componentes FIBPlus para Firebird.
El componente FBQuery no puede cargar ni leer BLOBs. los devuelve como el texto "Blob".

Para cargar imágenes utilizo TFIBDataSet
Agrego un SelectSQL que no me devuelva nada y un InsertSQL con el que trabajaré

Código Delphi [-]
SelectSQL.Text := 'SELECT CODIGO, NOMBRE, IMAGEN, FORMATO, ORIGEN, RUTA FROM SYS_IMAGENES WHERE CODIGO = 0';
// RefreshSQL.Text := 'SELECT CODIGO, NOMBRE, IMAGEN, FORMATO, ORIGEN, RUTA FROM SYS_IMAGENES WHERE CODIGO = :CODIGO';
InsertSQL.Text := 'INSERT INTO SYS_IMAGENES (CODIGO, NOMBRE, IMAGEN, FORMATO, ORIGEN, RUTA) VALUES (:CODIGO, :NOMBRE, :IMAGEN, :FORMATO, :ORIGEN, :RUTA)';
[...]
// Abro el DataSet
Open;
// Lo pongo en modo dsInsert
Insert;
b := DS.CreateBlobStream(FieldByName('IMAGEN'), bmWrite);
try
    f := TFileStream.Create(Archivo, fmOpenRead);
    try
       b.CopyFrom(f, f.Size);
    finally
       f.Free;
    end;
finally
   b.Free;
end;
FieldByName('NOMBRE').AsString := aFileName;
FieldByName('FORMATO').AsString := aFileExt;
[...]
// Guardo los cambios
Post;
// Cierro el DataSet
Close;
[...]

Creo recordar que también puedes guardar la imagen en la BD leyéndola de un fichero imagen, más o menos así:

Código Delphi [-]
TBlobField(qrImagenes.FieldByName('imagenfactura')).LoadFromFile(cFileImage);

Con el TFIBDataSet.