FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Visualizar archivos PDF
Hola Club.
Estoy elaborando una aplicación para control de documentos y datos según la norma ISO-9000, pero para esto se necesita bloquear la impresión del documento, así como no permitir copiar el archivo desde el visualizador ya que son documentos controlados. Ya logré visualizar el archivo PDF y me permite Imprimir y salvar el archivo en otro directorio del disco. ¿Hay alguna forma de acceder a las propiedades del componente y deshabilitar los iconos de impresión y grabar? De antemano les doy las gracias por su valioso tiempo. Un saludo. P.D.: El componente para visualizar PDF lo instale utilizando el procedimiento que encontré en este mismo foro. 1.Tener instalado Adobe Acrobat, si no ir dejar de leer este truco. 2.Entrar a Delphi. 3.Ir a Component|Import ActiveX Control. 4.En la lista de los controles ActiveX escoger "Acrobat Control for ActiveX (Version X.X)". 5.Dar click en Install. 6.Escoger un paquete donde instalar o es preferible instalarlo en un paquete nuevo y click en OK. 7.Terminar. |
#2
|
|||
|
|||
Despues de varios intentos, galletas y cafes encontre las propiedades del componente los cuales son:
property src: WideString ; procedure setShowToolbar(On_: WordBool); procedure gotoFirstPage; procedure gotoLastPage; procedure gotoNextPage; procedure gotoPreviousPage; procedure setCurrentPage(n: Integer); procedure goForwardStack; procedure goBackwardStack; procedure Print; procedure printWithDialog; procedure setZoom(percent: Single); procedure setZoomScroll(percent, left, top: Single); procedure setView(const viewMode: WideString); procedure setViewRect(left, top, width, height: Single); procedure printPages(from, to_: Integer); procedure printPagesFit(from, to_: Integer; shrinkToFit: WordBool); procedure printAll; procedure printAllFit(shrinkToFit: WordBool); procedure setShowScrollbars(On_: WordBool); La propiedad que buscaba es: setshowtoolbar(false) con esto ya no se visualiza ningun boton( grabar, imprimir, etc), ahora si se necesita imprimir, desde un boton de la form ejecuto el procedure printWithDialog que me muestra el dialogo imprimir. Saludos y espero que esta información sea de utilidad para el foro. |
#3
|
||||
|
||||
Cita:
realice los pasos que mencionas antes para instalar el ActiveX del Acrobat... pero tengo una consulta, cuando pinchas un archivo de un componente ListBox o similar, como lo haces para visualizar dicho archivo ??? que componente utilizas ??
__________________
BlueSteel |
#4
|
||||
|
||||
Segun lo que dice QMartinez
se crea un componente en la palete Activex (Tpdf), el cual lo pegas en cualq. form de tu aplicacion. Por ejemplo: Solo pude dar con "4.En la lista de los controles ActiveX escoger "Acrobat Control for ActiveX (Version X.X)"." con la version 5.0 de Acrobat el cual tiene la version 1.3 de Activex Última edición por juanlaplata fecha: 08-04-2008 a las 18:48:46. |
#5
|
|||
|
|||
Hola! estoy intentando poner éste activex en delphi 2006 y no me llega a mostrar el componente....en que versión lo habeis instalado?
Gracias! |
#6
|
||||
|
||||
Cita:
Cuales son los pasos que realizas ??? te da algún error ??? en todo caso, esto te deja un componente en la vara de Active X... Salu2
__________________
BlueSteel |
#7
|
|||
|
|||
Hola! directamente desde delphi, importando el componente y no me deja nada en la paleta! lo he intentado con 6 y con 7 y funciona ok, pero parece que no está preparado para 2006...
|
#8
|
|||
|
|||
Hola lacovera, estoy siguiendo este hilo para meter un preview para pdf con una aplicación IntraWeb, lograste resolver esto para Delphi 2006?, alguno otra opción, gracias.
|
#9
|
|||
|
|||
Que tal foro, pues después de tanto buscar, lo había resuelto metiendo toda la unit del ActiveX porque dentro de la Intraweb no se activa este componente, pero no me gustó mucho la solución. Así que metí el componente de IWURLWindow y con eso pude levantar el archivo pdf.
IWURLWindow2.URI := 'http://localhost/AppServ/archivo.pdf'; Sólo que aquí busca un directorio virtual, porque si le pongo la ruta física no levanta el archivo. |
|
|
|