Ver Mensaje Individual
  #9  
Antiguo 14-11-2012
Avatar de martini002
martini002 martini002 is offline
Miembro
 
Registrado: may 2012
Ubicación: Puerto Ordaz - Venezuela
Posts: 175
Reputación: 12
martini002 Va por buen camino
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
__________________
El Conocimiento se puede compartir, pero la Experiencia es totalmente Intransferible.
Responder Con Cita