AcroPDF en Windows 7 64 bits

[camino]

Saludos.
He reinstalado Adobe Acrobat en la misma version de mi post anterior.Como no resulta les adjunto la Form que ejecuta el display del archivo PDF.
La variable global ArchivoPDF contiene el path y el nombre del archivo PDF que en una instancia anterior fue creado en c:\

Código Delphi [-]
unit Pdf;

interface

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

type
  TPdfForm = class(TForm)
    AcroPDF1: TAcroPDF;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PdfForm: TPdfForm;

implementation



Uses UnitGlobal;



{$R *.dfm}


procedure TPdfForm.FormActivate(Sender: TObject);
begin
 AcroPdf1.LoadFile(ArchivoPdf);
 AcroPdf1.setShowToolbar(true);
end;

procedure TPdfForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 SysUtils.DeleteFile(ArchivoPDF);
 ArchivoPdf := '';
end;


end.

y este es el resultado de la rutina:



PDFForm.jpg


El tamaño no es el real ya que tuve que reducirlo por la limitacion de peso.

Como pueden ver lo he hecho tal como Uds. lo harian sin embargo, no funciona



Gracias

[radenf]

Estimado Camino:

Como puedo ver en tu imagen, estás cargando el componente AcroPdf pero no el archivo, por lo que creo que el problema esta en la generación de la variable ArchivoPDF.
Por qué no pruebas con una ruta a un archivo conocido utilizando el código que te envié, con un OpenDialog, que te permita seleccionar cualquier archivo Pdf desde tu disco duro.
Por si acaso AcroPdf1.src:= (ArchivoPdf); hace mejor la misma función que AcroPdf1.LoadFile(ArchivoPdf);
Te sugiero que además utilices el evento onShow en vez de OnActivate.

Salu2

[ecfisa]

Hola.

Estoy de acuerdo con radenf. Y basta con agregar unas pocas líneas para comprobar que es un error de tipeo en la constante (o variable) "ArchivoPdf" o que el archivo fué eliminado:

Código Delphi [-]
...
  if FileExists(ArchivoPdf) then
    AcroPDF1.LoadFile(ArchivoPdf)
  else
    raise Exception.Create('El archivo no existe o escribió mal el nombre o la ruta al mismo');
...

Saludos

[radenf]

Hoy he podido comprobar que el componente ActiveX AcroPdf ha dejado de funcionar, enviando un mensaje de AccessViolation al abrir cualquier formulario que lo contenga.
La razón, cambios inducidos por la última actualización automática de Adobe Reader XI.
Al restaurar el sistema el componente ActiveX AcroPdf vuelve a funcionar como si nada y deja de hacerlo al actualizarse automáticamente el Adobe Reader.
¿Alguien tiene alguna información al respecto?
¿Es posible corregir este problema, ya que puede impedir el funcionamiento de programas que utilizen el componente?
De antemano agradezco cualquier información o ayuda.
Saludos

[Casimiro Notevi]

Sigue aquí: http://www.clubdelphi.com/foros/show...553#post476553

[bitbow]

Hola, por alguna causa el componente AcroPdf es dependiente de la version de Adobe Reader con que lo creaste, es necesario que tengas la misma version con que lo compilaste en el equipo donde lo instalaras, tambien deshabilita las actualizaciones automaticas para que la version no cambie.

Saludos.

[achamorroi]

Código Delphi [-]
   Numero := DM_ADO_GD.ADO_b_guia_despacho.FieldByName('Numero_Guia').AsString;
   AcroPDF1.LoadFile('\\servidor\Servidor-GDespacho\'+Numero+'.pdf');

en el evento oncreate