Empezando con Delphi

[Toretto]

Hola a tod@s,

A ver si me podéis echar un cable porque soy muy novato en Delphi. Me han mandado una cosa y no sé por donde pillarlo. Tengo una tabla en una BD con un campo de tipo blob que contiene una foto, lo que tengo que hacer es acceder ese campo, recuperar la información y crear un fichero jpg.

No sé como hacerlo, alguna ayudita??


Muchas gracias

[Casimiro Notevi]

Hola Toretto, bienvenido a clubdelphi, te recomiendo que leas nuestra guía de estilo para así poder ayudarte mejor.

Si haces una pequeña búsqueda encontrarás que tu problema se ha tratado en muchas otras ocasiones, si tienes alguna duda, ya sabes donde estamos.

[Toretto]

Gracias Casimiro, he estado utilizando el buscador... y he encontrado más o menos lo que buscaba.

Meto la consulta en un archivo de texto con savetofile

y luego ese archivo de texto, lo copio en otro archivo con extensión jpg. Lo que no sé si funcionará.

Gracias

[Toretto]

Pues sigo con la duda, en mi bbdd tengo la imagen almacenada en un campo blob y tengo que pasarla a un fichero jpg. Utilizo el siguiente código pero no me crea el archivo:

cadena1:= 'Select foto from persona where (nombre = 'David')';
QBuscar.Sql:= cadena1;
QBuscar.sql.savetofile('c:\prueba.jpg');

Estoy utilizando mal la función savetofile???


Gracias

[Enan0]

Empezado por Toretto

Pues sigo con la duda, en mi bbdd tengo la imagen almacenada en un campo blob y tengo que pasarla a un fichero jpg. Utilizo el siguiente código pero no me crea el archivo:

cadena1:= 'Select foto from persona where (nombre = 'David')';
QBuscar.Sql:= cadena1;
QBuscar.sql.savetofile('c:\prueba.jpg');

Estoy utilizando mal la función savetofile???


Gracias

QBusca nunca fue abierto por lo que veo.

Si estas utilizando un Query, antes que nada tenedias que hacer lo siguiente!

Código Delphi [-]
cadena1:= 'Select foto from persona where (nombre = 'David')';
QBuscar.Sql:= cadena1;
QBuscar.Open;
if not QBuscar.eof then
   TBlobField(QBuscar.fieldbyName('foto')).savetofile('c:\prueba.jpg');

[Toretto]

Lo he probado y me sale error en el Open: Undeclared identifier