GARANTIR DESCONTO

Fórum Abrir PDF salvo no banco #596403

15/08/2018

0

ola boa tarde, sou novo no delphi e tenho uma duvida
eu tenho uma tabela no banco que guarda os seguintes registros

Tabela Ficha Produção
campos Codigo(integer) - Lote(varcahr) - Produto(varchar) - PDF(BLOB)

Eu consegui gerar e salvar o pdf no banco ata ai tudo bem
agora estou criando uma tela para poder ver os relatorios de todos os dados salvos
minha duvida e como faço para abrir o PDF salvo no banco pelo delphi.

obrigado.
Abner Carvalho

Abner Carvalho

Responder

Posts

04/10/2018

Marcus Pereira

Boa tarde, para abri-lo salvando ele como um arquivo externo como segue o exemplo:

with frmdm.querycondoc do
    begin

      close;
      sql.Clear;
      sql.Add(''select * from documentos_coletados where id = :id'');
      ParamByName(''id'').Value := iddocumento;
      open;

      SaveDialog1.FileName := FieldByName(''nome'').Text;

      if SaveDialog1.Execute Then
      begin
        TBlobField(FieldByName(''arquivo'')).SaveToFile(SaveDialog1.FileName);
      end;

    end;
    ShellExecute(Handle, nil, pwidechar(SaveDialog1.FileName) , nil, nil, SW_SHOWNORMAL);


Caso esteja utilizando componentes de terceiros para visualizar diretamente no seu formulario voce pode fazer este processo e ao invez de usar o shellexecute voce faz o load do pdf no componente. E caso este componente tenha a opção de loadfromstream voce pode faze-lo diretamente atravez do blob que vem do banco.

att.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar