Empezando con Delphi

[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');