Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
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
  #2  
Antiguo 20-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
  #3  
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



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


La franja horaria es GMT +2. Ahora son las 10:46:26.


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