Ver Mensaje Individual
  #10  
Antiguo 05-02-2014
camino camino is offline
Miembro
 
Registrado: feb 2007
Posts: 48
Reputación: 0
camino Va por buen camino
AcroPDF en windows 7 64 bits

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