Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-11-2014
osmeg osmeg is offline
Miembro
NULL
 
Registrado: may 2014
Posts: 18
Poder: 0
osmeg Va por buen camino
Error al abrir PDF con WebBrowser: El archivo no empieza por '%PDF-'

Buenas noches, Saludos a todos

Estoy empezando a programar en Delphi y uno de los primeros programas que me interesa realizar consiste en abrir un pdf cualquiera desde una aplicación en Delphi. He leído algunos hilos muy interesantes con relación a esto y he intentado utilizar el componente WebBrowser tal como lo sugieren allí, pero no he tenido éxito.

Me aparece el siguiente error al intentar abrir un archivo pdf para ser mostrado en el WebBrowser: El archivo no empieza por '%PDF-'.

Me he basado en el código facilitado por nlsgarcia en uno de los hilos consultados:

Código Delphi [-]

procedure TForm1.Button1Click(Sender: TObject);    
var      
openDialog : TOpenDialog;     
begin        
openDialog := TOpenDialog.Create(self);        
openDialog.InitialDir := GetCurrentDir;        
openDialog.Options := [ofFileMustExist];        
openDialog.Filter := 'PDF files|*.pdf';        
openDialog.FilterIndex := 1;        
if openDialog.Execute then       
begin          
WebBrowser1.Silent := True;           
WebBrowser1.Navigate('file://' + openDialog.FileName + '#toolbar=0&navpanes=0&scrollbar=1');    
end;     
end;

Estoy utilizando la version de DELPHI XE2 en Windows 7 32 bits. No sé si el problema se deba a una mala instalación del componente TWebBrowser. Quizá a alguien le haya ocurrido ese error con anterioridad y me pueda colaborar. Por lo menos en el foro no he encontrado alguna referencia a ese problema.

Agradezco de antemano su colaboración.
Responder Con Cita
  #2  
Antiguo 19-11-2014
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Poder: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
osmeg,

Cita:
Empezado por osmeg
...Estoy empezando a programar en Delphi y uno de los primeros programas que me interesa realizar consiste en abrir un pdf...


¡Bienvenido al Club Delphi!

Revisa este código:
Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Load PDF Files
procedure TForm1.Button1Click(Sender: TObject);
var
   openDialog : TOpenDialog;
begin
   openDialog := TOpenDialog.Create(self);
   openDialog.InitialDir := GetCurrentDir;
   openDialog.Options := [ofFileMustExist];
   openDialog.Filter := 'PDF files|*.pdf';
   openDialog.FilterIndex := 1;
   if openDialog.Execute then
   begin
      WebBrowser1.Silent := True;
      WebBrowser1.Navigate('file://' + openDialog.FileName + '#toolbar=0&navpanes=0&scrollbar=1');
   end;
end;

// UnLoad PDF Files
procedure TForm1.Button2Click(Sender: TObject);
begin
   WebBrowser1.Stop;
end;

end.
El código anterior en Delphi XE6 bajo Windows 7 Professional x32, permite visualizar un documento PDF por medio del componente TWebBrowser, como se muestra en la siguiente imagen:



Te comento:

1- El código anterior funciona según lo esperado en Delphi 7, Delphi 2010 y Delphi XE6, asumo que debe funcionar en Delphi XE2.

2- Te sugiero probar el código propuesto, para ver si el error descrito en el Msg #1 persiste.

3- En caso de que haya algún problema con la instalación, puedes reinstalar Delphi XE2 por medio de la opción Repair.

Revisa esta información:
Espero sea útil

Nelson.
Responder Con Cita
  #3  
Antiguo 21-11-2014
orodriguezca orodriguezca is offline
Miembro
 
Registrado: ene 2009
Posts: 221
Poder: 16
orodriguezca Va por buen camino
Esto más que un problema del TWEBBrowser parece ser un problema de Acrobat/Adobe reader. Finalmente IExplorer utiliza un plugin de Adobe para visualizar los PDFs. Yo reintalaría Adobe Reader.
Responder Con Cita
  #4  
Antiguo 22-11-2014
osmeg osmeg is offline
Miembro
NULL
 
Registrado: may 2014
Posts: 18
Poder: 0
osmeg Va por buen camino
Cita:
Empezado por orodriguezca Ver Mensaje
Esto más que un problema del TWEBBrowser parece ser un problema de Acrobat/Adobe reader. Finalmente IExplorer utiliza un plugin de Adobe para visualizar los PDFs. Yo reintalaría Adobe Reader.
Como indica orodriguezca parece ser un problema de Adobe Reader. Lo reinstale a la versión mas reciente y funciona perfectamente.Funciona también con Sumatra PDF. Excelente alternativa.

Muchas gracias nlsgarcia y orodriguezca por su ayuda
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Cambia pagina de error de WebBrowser? wolfran_hack Internet 1 03-07-2013 16:53:31
Error al querer re-visitar un sitio en un webbrowser mediante un listview. wolfran_hack Internet 1 20-06-2013 07:23:22
Problema RLINK32 error al abrir el archivo principal.dfm lasevaweb Varios 1 12-02-2008 19:25:52
no puedo abrir un archivo con ShellExecute si el archivo es variable belpab API de Windows 2 28-11-2007 17:24:22
Error de parametros al intentar abrir un archivo Word ilichhernandez OOP 7 20-05-2007 22:31:02


La franja horaria es GMT +2. Ahora son las 11:19:42.


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