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
|