Gravar arquivo PDF em BD FireBird
12/01/2006
0
Estou precisando gravar alguns arquivos PDF em uma tabela do banco de dados, mais não sei como fazer esta operação.
As imagens em jpg, ja consegui fazer agora só falta os PDF.
Agradeço qualquer ajuda...
Jviana
Posts
12/01/2006
Ramms
recomendo fortes report
12/01/2006
Jviana
Eu já tenho o relatorio em PDF, tenho o arquivo. Agora preciso salvar este arquivo dentro de um banco de dados.
No banco de dados tenho uma tabela chamada laudos, preciso incluir este arquivo PDF no campo ´ultimo_laudo´.
Poderia me ajudar? Tem alguma ideia de como fazer isso?
Obrigado!
12/01/2006
Aasn
jogue o PDF em um TStream e grave o mesmo num campo BLOB tipo BINÁRIO
[]´s
AASN
p.s.: Qualquer dúvida é só falar, que mando um exemplo.
12/01/2006
Jviana
Não entendi direito, tem algum exemplo?
Deste já obrigadão
12/01/2006
Aasn
segue trecho de código que explica o que vc quer!
with DM.Sentencas do
begin
Close;
SQL.Clear;
SQL.Add(´update FICHAS set LAYOUT = :layout where FICHA = :ficha´);
Prepare;
DM.Transacao.StartTransaction;
try
ParamByName(´ficha´).AsInteger := ficha;
{ criando stream para armazenar ficha }
stream := TMemoryStream.Create;
stream.LoadFromFile(´C:\NomeDoArquivo.PDF´);
try
stream.Seek(0,soFromBeginning);
ParamByName(´layout´).Assign(stream);
finally
stream.Free;
end;
ExecSQL;
DM.Transacao.Commit;
except
DM.Transacao.Rollback;
ShowMessage(´Não foi possível gravar layout!´);
end;
end;
Clique aqui para fazer login e interagir na Comunidade :)