Pdf Acrobat 11

[shoulder]

Hola primero de todo gracias por tu ayuda, probe la funcion y sigue todo igual la Barra 1 aparece a veces en la tercera vez que abro el documento o segunda es aleatorio.
Estoy pensando si no es una tonteria, no me convendria abrir primero un pdf de 1K en blanco y despues el verdadero asi nunca se repiten la misma secuencia de pdf?.

Gracias.

[[nlsgarcia]]

shoulder,

Empezado por shoulder

...Estoy pensando si no es una tonteria...

Te comento lo que no ha funcionado para eliminar el ToolBar del documento PDF:

1- Pruebas del WebBrowser en Delphi 7, Delphi 2010, Delphi XE6 y C# 2008 bajo Windows 7 Professional x32 y Adobe Acrobat Reader XI.

2- Pruebas del WebBrowser en Delphi 7 bajo Windows XP professional x32 con Adobe Acrobat X Pro.

3- Modificar la variable de visualización del Toolbar bBrowserDisplayInReadMode a False en el registro de Windows.

4- Realizar un KillTask a los procesos AdobeARM.exe y AcroRd32.exe que estuvieran activos durante el uso del WebBrowser.

5- Hacer un Copyfile del archivo a consultar a uno temporal que sería usado y eliminado después de la consulta.

6- Uso de la API DeleteUrlCacheEntry para eliminar el PDF consultado previamente del cache del WebBrowser.

7- Crear un archivo Blank.pdf que sería llamado al finalizar la consulta del PDF.

8- Uso del método WebBrowser1.ControlInterface.ExecWB para enviar comandos al WebBrowser.

9- Uso del método WebBrowser1.Navigate2 con los flags := navNoReadFromCache or navNoWriteToCache or navNoHistory.

En resumen: sin importar el lenguaje (Delphi ó C#), la versión de Adobe Acrobat (Reader XI ó Pro X), el SO (Windows XP Professional x32 ó Windows 7 Professional x32), los métodos que se usen en el WebBrowser (Navigate, Navigate2, ControlInterface.ExecWB), el uso de archivos temporales y modificadores de consulta del PDF, el ToolBar PDF siempre se visualiza en sucesivas llamadas del documento

Pregunto: ¿Por que es tan importante que no se visualice el ToolBar PDF?, ¿Que problema(s) ocasiona que se visualize?

Las preguntas anteriores son críticas dado que aunque se usen los modificadores de consulta del PDF: #toolbar=0&navpanes=0&scrollbar=1 en la llamada del WebBrowser, la barra se puede activar con F8 luego de que se haga el primer movimiento de scroll del documento o se llame al documento más de una vez, con el agravante de que el componente WebBrowser no permite interceptar las teclas pulsadas a pesar de estar establecido KeyPreview := True.

Conclusión: Así funciona aparentemente el componente WebBrowser

Espero sea útil

Nelson.

[shoulder]

Hola Nelson el problema es que una persona puede grabarse un documento, mientras tengan Acrobat 9 esta todo bien, pero si me instalan el XI aparece la barra 1, se hace una copia del documento en su PC.
Este es un tema de seguridad que falla entre Delphi y Acrobat.

Y ahi no se como solucionarlo.

[shoulder]

Nelson me quede pensando..no hay forma que muestre el PDF como una imagen y ahi lo protejo?. Sigo buscandoi por todos los foros y hablan del mismo problema.

[[nlsgarcia]]

shoulder,

Empezado por shoulder

...no hay forma que muestre el PDF como una imagen y ahi lo protejo...

Estoy analizando otra solución, hasta ahora se adapta a tus requerimientos y mucho más, actualmente estoy trabajando en los detalles de implementación, cuando tenga algo más concreto lo publico lo más pronto posible

Pregunto : ¿Cual es el objetivo de la aplicación que requiere el View PDF?, ¿En que área y país se ubica la empresa(s) que utilizaran la aplicación?

Saludos,

Nelson.

[shoulder]

Hola Nelson estoy en Argentina, el tema es que firman digitalmente por ejemplo una nota se guarda en el servidor ese pdf y es solamente para visualizar la imagen por eso use el webbrowser que funciona excelente. El unico tema fue el famoso F8 que me comentaste y la Barra1 que permite copiar la nota. El ejemplo concreto es visualizar el PDF nada mas anulando todas las barras que en el principio funciona bien.

Gracias!!.

[[nlsgarcia]]

shoulder,

Empezado por shoulder

...El ejemplo concreto es visualizar el PDF nada mas anulando todas las barras...

Te comento:

1- Para evitar los problema mencionados en tu caso particular en el Msg #19 opte por una solución alternativa : Sumatra PDF.

What is Sumatra PDF?

Sumatra PDF is a free PDF, eBook (ePub, Mobi), XPS, DjVu, CHM, Comic Book (CBZ and CBR) reader for Windows.

Sumatra PDF is powerful, small, portable and starts up very fast.

Simplicity of the user interface has a high priority.

2- Sumatra PDF permite parametrizar las opciones de visualización y funcionamiento de la aplicación, por medio de los archivos de configuración sumatrapdfrestrict.ini y SumatraPDF-settings.txt.

3- Sumatra PDF puede ser instalado de forma convencional o ser usado en su versión portable, para el código del ejemplo se utilizo la opción portable.

4- Sumatra PDF puede ser utilizado como un plugin dentro de un componente contenedor (TPanel, TForm), por medio de la opción: -plugin

5- Sumatra PDF es muy rápido, en pruebas realizadas en local un documento PDF de 857 páginas se cargo completamente en 2 segundos.

Revisa este código

Código Delphi [-]
  unit Unit1;
  
  interface
  
  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, Menus, ShellAPI, ExtCtrls, TlHelp32;
  
  type
    TForm1 = class(TForm)
      Panel1: TPanel;
      Button1: TButton;
      Button2: TButton;
      procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
      procedure FormCreate(Sender: TObject);
      procedure FormClose(Sender: TObject; var Action: TCloseAction);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
  
  const
    TitleViewer : String = 'Viewer of Documents PDF';
  
  var
    Form1: TForm1;
    ProcessID : THandle;
  
  implementation
  
  {$R *.dfm}
  
  // Ejecuta un Proceso Externo
  function ShellExecuteApp(const CmdLine : String) : THandle;
  var
     PI : PROCESS_INFORMATION;
     SI : STARTUPINFO;
     RP : LongBool;
  
  begin;
  
     ZeroMemory(@PI, SizeOf(PI));
     ZeroMemory(@SI, SizeOf(SI));
  
     SI.cb := SizeOf(SI);
  
     RP := CreateProcess(nil, PChar(CmdLine), nil, nil, False,
                         NORMAL_PRIORITY_CLASS, nil, nil, SI, PI);
  
     WaitForSingleObject(PI.hProcess, 150);
  
     if Integer(RP) <> 0 then
     begin
        CloseHandle(PI.hThread);
        CloseHandle(PI.hProcess);
        Result := PI.dwProcessID;
     end
     else
        Result := 0;
  
  end;
  
  // Finaliza un Proceso por su ProcessID
  function TerminateProcessByID(ProcessID: Cardinal): Boolean;
  var
     Process : THandle;
  
  begin
  
     Process := OpenProcess(PROCESS_TERMINATE,False,ProcessID);
  
     if Process > 0 then
     try
        Result := TerminateProcess(Process,0);
     finally
        CloseHandle(Process);
     end
     else
        Result := False;
  
  end;
  
  // Inicialización de ProcessID
  procedure TForm1.FormCreate(Sender: TObject);
  begin
     ProcessID := 0;
  end;
  
  // Visualiza un Documento PDF en un TPanel con SumatraPDF
  procedure TForm1.Button1Click(Sender: TObject);
  var
     CmdLine : String;
     openDialog : TOpenDialog;
     Msg : String;
  
  begin
  
     if (ProcessID = 0) then
     begin
  
        openDialog := TOpenDialog.Create(self);
        openDialog.InitialDir := GetCurrentDir;
        openDialog.Options := [ofFileMustExist];
        openDialog.Filter := 'PDF files|*.pdf';
        openDialog.FilterIndex := 1;
  
        if openDialog.Execute then
        begin
  
           CmdLine := ExtractFilePath(Application.ExeName) + 'SumatraPDF.exe'
                      + ' -plugin '
                      + IntToStr(Panel1.Handle)
                      + ' '
                      + '"' + openDialog.FileName + '"';
  
           ProcessID := ShellExecuteApp(CmdLine);
  
           if ProcessID = 0 then
           begin
              Msg := 'Error de Inicialización de View PDF';
              MessageBox(Handle, PChar(Msg), PChar('Error'), MB_OK + MB_ICONERROR);
           end
           else
              Caption := TitleViewer + ' : ' + ExtractFileName(openDialog.FileName);
  
        end
        else
        begin
           Msg := 'No Se Selecciono Ningún Archivo PDF a Visualizar';
           MessageBox(Handle, PChar(Msg), PChar('Information'), MB_OK + MB_ICONINFORMATION);
        end;
  
     end
     else
     begin
        Msg := 'Existe un Documento Activo en el View PDF';
        MessageBox(Handle, PChar(Msg), PChar('Information'), MB_OK + MB_ICONINFORMATION);
     end;
  
  end;
  
  // Finaliza Visualización un Documento PDF en un TPanel con SumatraPDF
  procedure TForm1.Button2Click(Sender: TObject);
  begin
     if (ProcessID > 0) then
     begin
        TerminateProcessByID(ProcessID);
        ProcessID := 0;
        Caption := TitleViewer;
     end;
  end;
  
  // Cierra y Libera los Recursos del Formmulario
  procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  begin
     Action := caFree;
  end;
  
  end.

El código anterior en Delphi 7 bajo Windows 7 Professional x32, permite visualizar documentos PDF por medio de Sumatra PDF en modo plugin dentro de un componente TPanel, con las opciones de salvar e imprimir documentos PDF inhabilitadas, como se muestra en la siguiente imagen:



El código del ejemplo con la versión portable de Sumatra PDF, esta disponible en: Viewer of Documents PDF with SumatraPDF.rar

Revisa la siguiente información:

1- Sumatra PDF

2- SumatraPDF command line options

3- Archivo de Configuración : sumatrapdfrestrict.ini

Nota: Te sugiero usar la versión portable de Sumatra PDF, la cual podrás distribuir con tu aplicación junto con los archivos de configuración (Puedes usar los del ejemplo) ó hacer la instalación (Copia) en el Servidor de dicha versión, todo depende del número de usuarios que utilicen tu aplicación.

Espero sea útil

Nelson.