Imagenes en Campos Blob

[subzero]

Hola amigos y amigas del foro:

Estoy seguro que este tema lo han tratado con anterioridad, mi inquietud consta en la necesidad de guardar una imagen dentro de un campo blob haciendolo por medio de instrucciones sql escritas en delphi, he revisado los ejemplos aqui propuestos pero aun no he encontrado la manera de hacerlo.

A todos gracias, de antemando si pueden ayudarme

[Neftali [Germán.Estévez]]

Sin ir más lejos (debes utilizar parámetros):
http://www.clubdelphi.com/foros/showthread.php?t=11107


NOTA: La forma de definir parámetros cambia dependiendo de la Base de Datos y de los componentes de acceso, pero la idea es siempre la misma; Éste sistema lo he utilizado con Access, IB, SQlServer y Oracle y siempre me ha ido bien.

[subzero]

Gracias por la ayuda en efecto me funcionó, ahora mi actual dilema es cargar esa imagen que se encuentra almacena y mostrarla en un TImage, les agradesco cualquier sugerencia.

[Neftali [Germán.Estévez]]

Empezado por subzero

...ahora mi actual dilema es cargar esa imagen que se encuentra almacena y mostrarla en un TImage

¿Porqué no utilizas un DBImage?

[subzero]

No, ya que estoy trabajando con consultas, pero no hay ningun problema ya puedo mostrar la imagen, utilizando algunos de los ejemplos que me ha proporcionado el foro, hice algo así:

var
temporal_imagen : TStream; jp : TJpegImage;
...
imgFoto.Picture := nil;
temporal_imagen := IBQuery.CreateBlobStream(fieldbyname('PLA_MPIO_FOTO'), bmRead);
jp := TJpegImage.Create;
jp.LoadFromStream(temporal_imagen);
imgFoto.Picture.Assign(jp);
FreeAndNil(jp);
temporal_imagen.Free;
...

ha, gracias por la sugerencia

[subzero]

Tengo un nuevo problema... cuando cargo la imagen que se encuentra almacenada se me presentan errores como #53, #43, no se si el error este ligado al momento de guardarla o de cargarla para una mejor descripción expongo el método que empleo

Almacenamiento
with ModuloDatos.IBQuery do
begin
close;
sql.clear;
sql.Add('UPDATE IMAGE');
sql.Add('SET FOTO = :fto');
sql.Add('WHERE CODIGO = :vlr');
ParamByName('vlr').AsString := '' + codigo + '';
ParamByName('fto').LoadFromFile(OPDFoto.FileName, ftBlob);
ExecSQL;
end;

Gracias por intersarse en mi duda