Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 25-05-2021
Fran Moreno Fran Moreno is offline
Registrado
 
Registrado: feb 2021
Posts: 6
Poder: 0
Fran Moreno Va por buen camino
Ayuda con el componente ActiveX de Adobe Reader

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.
Responder Con Cita
  #2  
Antiguo 25-05-2021
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
¿De qué mensaje se trata? para tener una idea de qué aconsejar.
Responder Con Cita
  #3  
Antiguo 26-05-2021
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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)
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #4  
Antiguo 26-05-2021
Fran Moreno Fran Moreno is offline
Registrado
 
Registrado: feb 2021
Posts: 6
Poder: 0
Fran Moreno Va por buen camino
Para Casimiro Notevi y Neftalí

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!
Responder Con Cita
  #5  
Antiguo 24-08-2021
Fran Moreno Fran Moreno is offline
Registrado
 
Registrado: feb 2021
Posts: 6
Poder: 0
Fran Moreno Va por buen camino
Problemas al utilizar SumatraPDF

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.
Responder Con Cita
  #6  
Antiguo 26-08-2021
Fran Moreno Fran Moreno is offline
Registrado
 
Registrado: feb 2021
Posts: 6
Poder: 0
Fran Moreno Va por buen camino
Solucionado

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!
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
barra de botones estilo Adobe Reader adebonis Varios 2 20-11-2015 19:44:54
Componente activex levache Internet 6 30-12-2006 06:01:11
Ver componente ActiveX piccolo2101 Varios 1 05-12-2005 10:59:23
ActiveX PDF.ocx de Acrobat Reader jafm Varios 0 17-05-2005 13:32:21
Impresión en Adobe Reader / Acrobat Athalon Varios 0 12-02-2004 12:36:36


La franja horaria es GMT +2. Ahora son las 01:38:57.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi