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
public
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