Clique para saber mais...
  Home     Download     Produtos / Cursos     Revista     Vídeo Aulas     Fórum     Contato   Clique aqui para logar | 05 de Outubro de 2026
  Login

Codinome
Senha
Salvar informações

 Esqueci minha senha
 Novo Cadastro

  Usuários
68 Usuários Online

  Revista ActiveDelphi
 Assine Já!
 Edições
 Sobre a Revista

  Conteúdo
 Apostilas
 Artigos
 Componentes
 Dicas
 News
 Programas / Exemplos
 Vídeo Aulas

  Serviços
 Active News
 Fórum
 Produtos / Cursos

  Outros
 Colunistas
 Contato
 Top 10

  Publicidade

  [Artigos]  Visualizando arquivos PDF em aplicações Delphi com ActiveX
Publicado por ActiveDelphi : Quinta, Março 17, 2005 - 11:01 GMT-3 (11430 leituras)
Comentários 5 Comentários   Enviar esta notícia a um amigo Enviar para um amigo   Versão para Impressão Versão para impressão
Wecsley Fey Salve, Salve moradores e turistas Delphianos !
Estamos com nosso segundo desafio em frente, visualizar documentos PDF em nossas aplicações sem precisar abrir um software externo, tendo a possibilidade de visualizar estes documentos em um simples formulário do Delphi.
Gostaria de agradecer a todos os e-mails e comentários recebidos devido ao artigo anterior (Geração de Arquivos PDF no Delphi), fico muito grato pelos elogios, espero que venhamos crescer a cada dia...

Então vamos por a mão na massa, veremos como visualizar arquivos PDF em nossas aplicações Delphi com a ajuda de ActiveX.

Visualizar PDF's no Delphi é uma tarefa muito simples, graças a tecnologia ActiveX poderemos fazer este procedimento de uma forma muito prática e fácil de se entender.


FERRAMENTA DE ACESSO

Para podermos visualizar documentos PDF no Delphi, teremos que importar um Controle ActiveX do Adobe Reader, o que siginifica que você precisará ter o Reader instalado em sua máquina, para baixar este software, procure-o no site do fabricante, aconselho a baixar um versão igual ou superior a 5.0 .

 

IMPORTANTO O CONTROLE ACTIVEX PARA O DELPHI

Siga os seguintes passos para importar o Controle ActiveX do Acrobat Reader para o Delphi:

1 - Abra o Delphi, clique em Component > Import ActiveX Control... ;
2 - Clique em Add... e procure o arquivo pdf.ocx qur fica dentro da pasta ActiveX do Reader;
3 - Clique em Install...;
4 - Clique em Ok;
5 – Clique em Sim (Yes) para a confirmação da compilação e Instalação da Package;

Se tudo der certo, acabamos de importar o componente ActiveX para visualização de documentos PDF, para verificar a instalação do componente, verifique se o mesmo foi adicionado na Palheta ActiveX de seu Delphi.


CRIANDO UMA APLICAÇÃO DE VISUALIZAÇÃO

Com o componente instalado, comece uma nova aplicação, clicando em File > New Application;

Defina as seguintes propriedades para seu form:
1 - Caption = ActiveDelphi - Visualizando Arquivos PDF com o Delphi ;
2 - Name = Frm_VisuPDF ;
3 - Height = 580 ;
4 - Width = 808 ;
5 - WindowState = wsMaximized ;


Adicione um componente GroupBox (localizado na palheta Standard) em seu formulário e defina as seguintes propriedades:
1 - Caption = '' ; (Vazio)
2 - Align = alTop ;


Adicione um componente Button (localizado na palheta Standard) dentro do GroupBox e defina as seguintes propriedades:
1 - Caption = Abrir PDF ;
2 - Clique com o botão direito sobre ele, depois em Align... e selecione a opção Center in Window. (centralizar o botão no meio do formulário) ;


Adicione um componente StatusBar (localizado na palheta Win32) em seu formulário;

Adicione um componente OpenDialog (localizado na palheta Dialogs) em seu formulário e defina a seguinte propriedade:
1 - Filter = Arquivos PDF|*.pdf ; (Somente procura por arquivos com a extensão .pdf)


Adicione o componente que importamos localizado na palheta ActiveX com o nome de PDF e altere as seguintes propriedades:
1 - Align = alClient;
2 - Name = PDF;


Após ter efetuado estas configurações, de um duplo clique em seu Button dando um procedimento para ele e digite as seguintes instruções:

procedure TFrm_VisuPDF.Button1Click(Sender: TObject);
begin
If OpenDialog1.Execute then //Executa a abertura do arquivo PDF
    PDF.LoadFile(OpenDialog1.FileName);
end;

ENTENDENDO O COMPONENTE

Como podemos observar em nosso código, só utilizamos uma propriedade do componente PDF, a LoadFile, para abrir o arquivo, mas podemos ir muito mais além, abaixo seguem algumas outras propriedades do componente:

GotoFirstPage > Navega para a primeira Página;
GotoLastPage > Navega para a última Página;
GotoNextPage > Navega para a próxima Página;
GotoPreviousPage > Dá um Preview no documento;
Print > Imprime o documento;
SetZoom > Altera o Zoom do documento;

O componente contém muitas outras propriedades, nos proporcionando o controle total do arquivo através do Delphi.


SALVANDO O PROJETO

Salve o projeto clicando em File > Save All.
Defina o nome da unit (.pas) como U_VisuPDF ;
Defina o nome do projeto (.dpr) como VisuPdf ;


COMPILANDO E TESTANDO O PROJETO
Agora compile o projeto pressionado a tecla F9.
Clique em Abrir PDF e selecione qualquer documento PDF, você verá a tela der apresentação do Reader e o documento aberto em nosso componente.


CONCLUSÃO

Visualizar arquivos PDF com o Delphi via ActiveX é uma tarefa muito simples, basta importarmos o componente e ampliarmos suas propriedades!
Se você encontrou algum problema para importar o componente, entender o código ou qualquer outra dúvida, entre em contato comigo.

Clique aqui para baixar o código fonte do exemplo.


Um grande abraço!
Wecsley Fey
suporte@progestor.com.br



Comentários Comentários
   Ordem:  
Comentários pertencem aos seus respectivos autores. Não somos responsáveis pelo seus conteúdos.


por: MarcoRipper : Abr 25, 2005 - 03:39
(Informações sobre o membro | Enviar uma mensagem)
Amigo!

Gostaria de saber se é possivel (e como posso) implementar uma consulta, via codigo, dentro do documento aberto?

Grato


por: hlongoni : Dez 07, 2005 - 04:35
(Informações sobre o membro | Enviar uma mensagem)
Gostei muito do seu artigo e suas explicações de como visualizar um arquivo pdf num form do delphi caiu como uma luva pra aplicação que esu estava desenvolvendo. Contudo está acontecendo um erro, que deve ser muito básico, mas que está me trazendo grandes dificulades. Tanto nesta aplicação como nas q acesso banco de dados, depois q compilo e q é gerado o executável da aplicação, no meu pc td funciona bem, mas em outros pcs (gravo o executável e algumas pastas de arquivos necessários) não acessam o activex ou o banco de dados. Como faço??


por: dnunesbr (dnunesbr@yahoo.com.br) : Fev 22, 2008 - 05:57
(Informações sobre o membro | Enviar uma mensagem)
Primeiramente, obrigado pela dica. Foi de grande utilidade.

Bom, eu tenho um campo BLOB onde gravo os arquivos PDF nesse campo no BD (Interbase), gostaria de saber como faço pra visualizar esses arquivos gravados no BD utilizando o Delphi.

Obrigado.


por: tarcisio.reis (tarcisio.reis@ig.com.br) : Jan 05, 2010 - 11:16
(Informações sobre o membro | Enviar uma mensagem)
Queria saber se tem como depois de visualizar o pdf salvar ele em formato txt.


Aguardo retorno.


Obrigado.
  Edição 112

Revista ActiveDelphi

  50 Programas Fontes


  Produtos

Conheça Nossos Produtos

Copyright© 2001-2016 – Active Delphi – Todos os direitos reservados