Ayuda con el componente ActiveX de Adobe Reader

[Fran Moreno]

He instalado los componentes ActiveX de Adobe Reader en Delphi 10.3, para visualizar archivos PDF en una aplicación propia y funciona perfectamente. El problema es que aparece un aviso en la parte superior que no puedo quitar y la barra flotante que aparece al pasar el ratón por la zona superior, que tampoco he encontrado la forma de que no aparezca. Es imprescindible poder hacerlo, con objeto de que el usuario solo pueda leer el archivo PDF e imprimirlo, pero nada más. He estado probando con algunos de los procedimientos del componente AcroPDF1, pero no consigo deshacerme de lo citado y los demás procedimientos no tengo idea de como usarlos y no encuentro documentación al respecto.
Ya se que la visualización de archivos PDF podría hacerla de otras formas, pero es imprescindible que el archivo se visualice dentro de la aplicación y el uso de un componente de pago no entra dentro de mis posibilidades, ya que el programa, es más personal que otra cosa, aunque se venden algunos, pero no genera ingresos como para invertir en componentes de pago. A ver si alguien me puede ayudar con esto.

[Casimiro Notevi]

¿De qué mensaje se trata? para tener una idea de qué aconsejar.

[Neftali [Germán.Estévez]]

Es lo bueno y lo malo de utilizar un componente como el de Adobe; Que te facilita mucho las cosas, pero por el contrario estás obligado a determinadas cosas como la de la barra. Que tal vez no se pueda solucionar.
En cuanto a la pregunta no te puedo ayudar porque desconozco en profundidad el componente, lo que si te puedo dar algunas ideas y alternativas para poder abordarlo.

Por un lado se me ocurre probar con otros activeX, es posible que el de Adobe no sea el único que permita visualizar PDF's. Podrías buscar si hay algun otro.

También podrías probar con componentes tipo WebBrowser (que viene con delphi), que seguramente te permitirá visualizar el PDF sin instalar nada.
http://www.clubdelphi.com/foros/showthread.php?t=87133

Y por último se me ocurre que podrías utilizar una apliación externa para visualizar el PDF e incrustarla dentro de tu formulario de Delphi. Por ejemplo, yo utilizo SumatraPDF. Es gratuíta, muy liviana, carga muy rápido y ocupa poco espacio con un único ejecutable. Seguro que encuentras otras similares.
En este caso se trata de abrir el PDF con una de estas aplicaciones y luego incrustar el programa en tu formulario, el efecto es el mismo que si lo abrieras desde tu programa.
Revisa estos links:
https://www.clubdelphi.com/foros/showthread.php?t=81499
https://www.clubdelphi.com/foros/showthread.php?t=50300
https://www.clubdelphi.com/foros/showthread.php?t=88469
(si buscas en los foros encontrarás otros similares y me suena algún ejemplo dentro del FTP)

[Fran Moreno]

Antes que nada gracias por vuestro interés.
Respecto al mensaje de aviso que aparece, ya no es problema, se trata de una advertencia respecto al cumplimiento del estándar PDF/A, así que basta con crear el PDF sin ese estándar.
El problema más fastidioso es el de la barra flotante. Probaré lo que me dices, Neftalí, aunque no tengo ni idea de como integrar un programa externo en el formulario de mi programa, pero con los enlaces que me pones, no creo que tenga demasiado problema.
Gracias de nuevo. ¡Un saludo!

[Fran Moreno]

Vuelvo a entrar en este hilo después de unos meses, ya que pospuse las pruebas con SumatraPDF.
Ahora he hecho las pruebas, siguiendo los links que me dejó Neftalí y resulta que, o bien consigo visualizar SumatraPDF dentro de la ventana de mi aplicación, pero teniendo que abrir el archivo PDF manualmente, o bien consigo que se abra SumatraPDF y el archivo PDF, pero fuera de la aplicación.

El código que uso en el primer caso es este:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  Rec: TShellExecuteInfo; AFileName: String;
const
  AVerb = 'open';
  AParams = '';
  AFileName = 'C:\SumatraPDF\SumatraPDF.exe';
  ADir = '';
begin
  FillChar(Rec, SizeOf(Rec), #0);
  Rec.cbSize       := SizeOf(Rec);
  Rec.fMask        := SEE_MASK_NOCLOSEPROCESS;
  Rec.lpVerb       := PChar( AVerb );
  Rec.lpFile       := PChar( AfileName );
  Rec.lpParameters := PChar( AParams );
  Rec.lpDirectory  := PChar( Adir );
  Rec.nShow        := SW_HIDE;

  ShellExecuteEx(@Rec);
  WaitForInputIdle(Rec.hProcess, 5000);

  fSumatraHandle := FindWindow( nil, 'SumatraPDF' );
  Windows.SetParent( fSumatraHandle, Panel1.Handle );

  Resize;
  ShowWindow(fSumatraHandle, SW_SHOW);
  SetWindowPos(fSumatraHandle, 0, 0, 0, ClientWidth, ClientHeight, SWP_NOSENDCHANGING  );
end;

El código que uso en el segundo caso es este:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  ShellExecute(Handle, 'open',PChar('C:\SumatraPDF\SumatraPDF.exe'), PChar('c:\Ayuda.pdf'), nil, SW_SHOW) ;
  Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:=false;
  fSumatraHandle := FindWindow( nil, 'SumatraPDF' );
  Windows.SetParent( fSumatraHandle, Handle );
  Resize;
  ShowWindow(fSumatraHandle, SW_SHOW);
  SetWindowPos(fSumatraHandle, 0, 0, 0, ClientWidth, ClientHeight, SWP_NOSENDCHANGING  );
end;

Lo cierto es que necesito conseguir que se abra SumatraPDF, que lo haga dentro del formulario de mi aplicación y que se abra el archivo PDF, pero no hay forma de que ocurran las tres cosas juntas.
Con el primer código, entiendo que no se abra el archivo, porque no está especificado por ningún sitio, pero en los links que me indicó Neftalí, no se especifica como hacerlo. He probado varias cosas y buscado más información al respecto, pero nada.
Y en el segundo código, no entiendo porque no se muestra SumatraPDF en el formulario de la aplicación llevando la misma línea de código para asignarle el parent, que en el primero.
Probé a cambiar

Código Delphi [-]
ShellExecute(Handle, 'open',PChar('C:\SumatraPDF\SumatraPDF.exe'), PChar('c:\Ayuda.pdf'), nil, SW_SHOW) ;

por

Código Delphi [-]
ShellExecute(Handle, 'open',PChar('C:\SumatraPDF\SumatraPDF.exe'), PChar('c:\Ayuda.pdf'), nil, SW_Hide) ;

para no mostrar la ventana de SumatraPDF hasta la línea donde se le asigna el parent, tal como en el código primero, pero nada de nada. También probé a poner el ShellExecute en el evento onShow del formulario, para asegurarme que SumatraPDF se ejecutaba después de aparecer el formulario de la aplicación, pero tampoco.
El timer lo puse para darle tiempo al formulario a mostrarse.

Un poco de ayuda no me vendría mal.

[Fran Moreno]

Bueno, parece que esta vez tuve suerte y acabo de solucionar el problema con SumatraPDF.
El problema estaba en que, por alguna razón que desconozco, en el segundo código, no valía con obtener el Handle de la ventana de sumatraPDF, a través del caption de la ventana, como en el primer código, sino que había que obtenerlo indicando en la función FindWindow, la clase. Lo averigüé probando y suerte que tengo un programita que hice con un código que encontré por ahí, que obtiene un listado de las clases en ejecución. La puse en la función FindWindow y funcionó correctamente.
Si alguien necesita el código del programita listador de clases, solo tiene que pedírmelo.
¡Un saludo!