Gravar arquivo PDF em BD FireBird

já tentou fazer um relatório e colocar um filter para exportar?
recomendo fortes report

Ramms,

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!

Caro jviana,
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.

Amigão,

Não entendi direito, tem algum exemplo?

Deste já obrigadão

Caro jviana,
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;