F�rum Salvar pdf no Firebird #388470

14/10/2010

ola galera, estou precisando de uma ajuda, uso delphi 7 componentes ibo com banco de dados Firebird...estou fazendo um sistema de cadastro de documentos no formato de Pdf, nao estou conseguindo salvar este tipo de arquivo no sistema, alguem pode me ajudar

Geliel Santos

Curtir t�pico

+ 0

Responder

Posts

14/10/2010

Leonardo Xavier

Voc� n�o cogitou a hip�tese de salvar o caminho do arquivo em seu banco de dados sem precisar salvar o documento inteiro?

Responder

Gostei + 0

14/10/2010

Geliel Santos

Pensei nesta posibilidade mais coore muito risco de algum funcionario excluir ou ler os arquivos...

Responder

Gostei + 0

14/10/2010

Eriley Barbosa

Gravar: var
m : TQuery;
begin
m:=TQuery.Create(self);
m.DatabaseName:='Um\databasename\qualquer';
m.sql.add('UPDATE TABELA_TAL');
m.sql.add('SET campo_blob=:_nomearq');
m.sql.add('WHERE campo_chave =1');
try
    m.ParamByName('_nomearq').LoadFromFile('C:\TEMP\TESTE.DOC',ftBlob);
    m.ExecSQL;
except
on e:exception do
     begin
       ShowMessage(e.message);
     end;
end;
end; Recuperar: var
   BlobStream : TBlobStream;
   FileStream : TFileStream;
   m          : Tquery;
begin
m:=TQuery.Create(self);
m.DatabaseName:='Um\databasename\qualquer';
m.sql.add('SELECT campo_chave, campo_blob');
m.sql.add('FROM TABELA_TAL');
m.sql.add('WHERE campo_chave =1');
// Salvando o arquivo em disco
try
    m.Open;
    BlobStream := TBlobStream.Create(m.Fieldbyname('campo_blob') as TBlobField, bmRead);
    FileStream := TFileStream.Create('C:\TEMP\MEU_DOC.DOC', fmCreate or fmOpenWrite);
    FileStream.CopyFrom(BlobStream, 0);
    ShowMessage('Documento salvo em disco. Clique em [OK] para prosseguir ...');
finally
    // Liberando memoria
    FileStream.Free;
    BlobStream.Free;
    m.Free;
end;
end;

Responder

Gostei + 0

14/10/2010

Geliel Santos

boa tarde ERILEY n�o entendi estar parte do codigo de recuperar

Responder

Gostei + 0

14/10/2010

Eriley Barbosa

Recuperar � retirar o arquivo gravado no banco de dados para a m�quina local.

Responder

Gostei + 0

14/10/2010

Geliel Santos

certo, e para inserir o arquivo fa�o a mesma coisa como o de imagem.

Responder

Gostei + 0

15/10/2010

Eriley Barbosa

Sim, isso mesmo.

Responder

Gostei + 0

15/10/2010

Geliel Santos

vou tentar agora, dando certo ou errado posto aqui, muito obrigado

Responder

Gostei + 0

18/04/2016

Eder Rocha

Blz Iriley?

To com o mesmo problema!!! Tem como fazer este procedimento de salvar arquivos em paradox tambem? Pode me ajudar?
Trabalho com documentos jur�dicos, e preciso salvar os pdf's no banco para n�o perder.
Consegui v�rias dicas mas nenhuma foi eficiente.

Grato.

Responder

Gostei + 0

11/06/2016

Eder Rocha

preciso desse tipo de sistema, por�m utilizando paradox,

Alguem sabe o c�digo para salvar em paradox ou mysql?

Responder

Gostei + 0