Gravar arquivo PDF em BD FireBird

12/01/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...


Jviana

Respostas

12/01/2006

Ramms

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


Responder Citar

12/01/2006

Jviana

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!


Responder Citar

12/01/2006

Aasn

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.


Responder Citar

12/01/2006

Jviana

Amigão,

Não entendi direito, tem algum exemplo?

Deste já obrigadão


Responder Citar

12/01/2006

Aasn

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;


Responder Citar