Ver Mensaje Individual
  #1  
Antiguo 25-03-2010
r1d2m3 r1d2m3 is offline
Miembro
 
Registrado: nov 2009
Posts: 88
Reputación: 15
r1d2m3 Va por buen camino
¿como usar un campo blob para almacenar un archivo en mysql?

Hola colegas, estoy con el siguiente inconveniente, debo grabar en una base de datos MySQL, un documento (tipo rtf), y, hasta donde he podido avanzar, debo hacerlo bajo un campo tipo blob, hasta aquí todo bien, pero al intentar enviarlo a la bd, tengo un problema de definición del parámetro y me tira un error. Les muestro el código que estoy usando y luego les transcribo el error.

Código Delphi [-]
  procedure GrabarTexto(varIDTexto:Integer; varStream:TStream);
    var
      cmdActDatos:TADOQuery;


    begin
      cmdActDatos:=TADOQuery.Create(nil);
      cmdActDatos.Connection:=cnn;
      cmdActDatos.Parameters.CreateParameter('nroRs', ftInteger, pdInput, 10, False);
      cmdActDatos.Parameters.CreateParameter('descripBreve', ftString, pdInput, 30, False);
      cmdActDatos.Parameters.CreateParameter('pltTexto', ftBlob, pdInput, 10000 , false); //en este línea es donde salta el siguiente error: la aplicación utiliza un valor de tipo no válido para la operación actual.
      cmdActDatos.SQL.Add('insert into tabmaetextos (nroRs, descripBreve, pltTexto) Values (:nroRs, :descripBreve, ltTexto)');
      cmdActDatos.Parameters.ParamByName('nroRs').Value := varIDTexto;
      cmdActDatos.Parameters.ParamByName('descripBreve').Value := 'Probando textos';
      cmdActDatos.Parameters.ParamByName('pltTexto').LoadFromStream(varStream, ftBlob);
      cmdActDatos.ExecSQL;

    end;

pido disculpas por lo rudimentario del código, pero se trata de un prototipo que después será emprolijado a los efectos de protegerlo contra fallos, también vi por otros hilos que no se recomienda guardar documentos en las bd, comparto la opinión pero en este caso, los documentos siempre serán de muy bajo peso, razón por la cual la bd no crecerá fuera de control.

Gracias y quedo a la espera de vuestros comentarios.
Responder Con Cita