1) Asegurarte que tienes la última versión del programa "Adobe Acrobar Reader" (Se puede descargar gratuitamente desde la página de Adobe
2) Abrir Delphi e Importar el control ActiveX Adobe Acrobat
Menú Component->Import ActiveX Control...
Pulsa el botón "Install..." y aparecerá en la carpeta "Samples" un componente llamado TPdf.
3) Ahora ya podemos crear una nueva aplicación con un TButton, TOpenDialog y TPDF
Dentro del método Onclic del Tbutton pondremos el siguiente código:
OpenDialog1.Filter := 'PDF Files (*.pdf)*.pdf';
if OpenDialog1.Execute then Pdf1.src := OpenDialog1.FileName;
No olvidar que hay que redimensionar el componente tpdf para poder visualizar correctamente el documento pdf.
Se pueden añadir botones con las funciones: gotoFirstPage, gotoLastPage, setZoom(percent: Single) para ir a la primera, última página o para establecer un zoom.
pero si el archivo que quiero abrir ya tengo su dirección, es decir, cuando le de se abra dentro de una forma cierto archivo sin necesidad de seleccionar.
ResponderEliminarAcroPDF1.src:= Filename;
ResponderEliminarAcroPDF1.gotoFirstPage ;
Como cerrar el archivo pdf?
ResponderEliminarCon AcroPDF1.Close
ResponderEliminar