Array
(
)

Gravar arquivo PDF em BD FireBird

Jviana
   - 12 jan 2006

Estou desenvolvendo uma aplicação em Delphi 7, BD Firebird 1.5 e ZEOS.

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...


Ramms
   - 12 jan 2006

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


Jviana
   - 12 jan 2006

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!


Aasn
   - 12 jan 2006

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.


Jviana
   - 12 jan 2006

Amigão,

Não entendi direito, tem algum exemplo?

Deste já obrigadão


Aasn
   - 12 jan 2006

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;