guardar imagen en campo blob

[ecfisa]

Empezado por Casimiro Notevi

Quizás falte el post

Código Delphi [-]
DataSet.FieldByName('CAMPO_PBLOB').Assign(Pic);
DataSet.Post;

Exáctamente.

No lo agregué allí por que supuse que tenía más campos y realizaba el guardado al finalizar la carga de los datos.

Saludos.

[martini002]

Saludos Amigos,
Tengo 2 dias luchando con esto,
intentando guardar una imagen en una tabla de una BD
tengo una tabla precisa con campos NumeroConductor e Imagen
la ultima de tipo Blob, he tratado de modificar cuanto codigo he visto
pero sin ningun exito hasta ahora, intente con Stream, y no funciono,
ahora estoy intentando con tu codigo Ecfisa y no estoy muy seguro
de como adaptarlo, estoy usando ZEOS 7 + SQLite + D2010

mira un pedazito de mi codigo:

Justo ahorita intento con este, tratando de asignar al campo Blob la imagen,
pero me da un error, diciendo que no consigue el campo Imagen :S

Código Delphi [-]
ZQuery1.Close;
                ZQuery1.SQL.Text:= 'Insert Into ImagenesConductores Values ('+IntToStr(NumeroConductor)+', :Imagen)';
                ZQuery1.FieldByName('Imagen').Assign(Image1);
                ZQuery1.ExecSQL;

Y este otro intentando con asignacion de Stream, pero sin exito,
me da un error, Unrecognized token: "'" Creo que es con el SQLite me parece

Código Delphi [-]
_Imagen := TMemoryStream.Create;
                Image1.Picture.Graphic.SaveToStream(_Imagen);

                ZQuery1.Close;
                ZQuery1.SQL.Text:= 'Insert Into ImagenesConductores Values ('+IntToStr(NumeroConductor)+', :Image)';
                ZQuery1.Params.Items[0].LoadFromStream(_Imagen, ftBlob);
                ZQuery1.ExecSQL;

Les agradezco muchisimo su ayuda, estoy nuevo con esto y apenas es mi primer intento
usando campos de tipo Blob. Saludos

[martini002]

Estuve probando este codigo,
aunque no me da ningun error tampoco hace nada :/
crea un registro null en la BD inclusive en el campo Blob

Código Delphi [-]
Var
JPG:TPicture;

Begin
Jpg:= TPicture.Create;
Jpg.LoadFromFile(OpenPictureDialog1.Filename);

ZQuery2.Open;
ZQuery2.Edit;
ZQuery2.FieldByName('Imagen').Assign(Jpg);
ZQuery2.Post;

end

Edito:
De hecho no es el mismo orden en el que lo tengo,
pero si estoy seguro que carga la imagen a la variable Jpg
porque a su vez lo hace con un TImage

[ecfisa]

Hola martini002.

Tal vez SQLite requiera algún tratamiendo diferente, no lo conozco. Pero revisa si en estos enlaces encontras algo que sirva:

• Campo BLOB en BD SQLITE version 3.7
• A simple Delphi wrapper for Sqlite 3
• BLOB example
• Mass insert of images in BLOB fields...

Saludos.