Salvar um arquivo pdf em um campo blob via BDE
Estou tentando salva um pdf em um campo blob. Utilizando uma tquery e um tdatabase não da certo. Já um monte de artigos e todos dão o mesmo erro. "Capabilit not suported". abaixo está meu código fonte. Se alguem poder me ajudar.
QuAux.Close;
QuAux.SQL.Clear;
QuAux.SQL.Add('Insert into imagem(imagem_id, imagem) ' +
' Values(:Pcampo1, :PcampoBlob)' );
QuAux.ParamByName('Pcampo1').AsBCD:= 1;
QuAux.ParamByName('PcampoBLOB').LoadFromFile('c:\modelo.pdf', ftBlob);
QuAux.ExecSql Lembrando que a QuAux é um Tquery que está ligado a um tdatabase.
QuAux.SQL.Clear;
QuAux.SQL.Add('Insert into imagem(imagem_id, imagem) ' +
' Values(:Pcampo1, :PcampoBlob)' );
QuAux.ParamByName('Pcampo1').AsBCD:= 1;
QuAux.ParamByName('PcampoBLOB').LoadFromFile('c:\modelo.pdf', ftBlob);
QuAux.ExecSql Lembrando que a QuAux é um Tquery que está ligado a um tdatabase.
João Augusto
Curtidas 0
Respostas
Nelson Moia
16/03/2011
Ola João,
Estou com o mesmo tipo de problema. Vc conseguiu resolver? Não estou conseguindo achar a solução.
Abraço
Estou com o mesmo tipo de problema. Vc conseguiu resolver? Não estou conseguindo achar a solução.
Abraço
GOSTEI 0
João Augusto
16/03/2011
Até que consegui salvar com o Bde. Só que na hora de recuperar ele não consegue recuperar o aquivo corretamente. O mesmo aparece como se estivesse criptografado. Consegui fazer a seguinte coisa. coloquei o sistema para trabalhar com o BDE e com Dbexpress. Isso foi o que resolveu. Não há conflito em os dois.O dbexpress é muito mais robusto que o bde.
GOSTEI 0