AcroPDF na prática

Delphi

27/11/2013

Bom dia galera, preciso de ajuda para ler no meu form um arquivo PDF com o AcroPDF, vi um código na net>abaixo

unit ufrmLerPDF;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs,AcroPDFLib_TLB;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
aPDF_myPDF80 : TAcroPDF;
b_myPDF80Created : boolean;
s_param_Document, s_param_Location : string
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
s_param_Document := Paramstr(1);
s_param_Location := ParamStr(2);

try
s_param_Location := 'C:\';
s_param_Document := '01.PDF';
// ShellExecute(Handle,'open', PChar('AcroRd32.exe'), PChar('/A "nameddest='+ 'NameSpringpunkt' +'" "'+'NamePDFDokument+'"'),nil, SW_NORMAL);

aPDF_myPDF80 := TAcroPDF.Create(self);
aPDF_myPDF80.Parent := Form1;
aPDF_myPDF80.Align := alClient;

//aPDF_myPDF70.setView();

aPDF_myPDF80.setViewScroll('Fit',10.0);

aPDF_myPDF80.LoadFile(s_param_Document);

if (s_param_Location >= '0') and (s_param_Location <= '9') then
aPDF_myPDF80.setCurrentPage(strtoint(s_param_Location))
else
//* hier liegt das Problem. Es wird nicht ausgeführt!!
aPDF_myPDF80.setNamedDest(s_param_Location);
//aPDF_myPDF70.Show;

//aPDF_myPDF70.setView();
b_myPDF80Created := true;

except
b_myPDF80Created := false;
aPDF_myPDF80.Free;
ShowMessage('Keine gültigen Parameter');
end;
end;
end.



Mais não aparece nada, o que devo fazer?
Jeová Santos

Jeová Santos

Curtidas 0

Respostas

Alessandro Yamasaki

Alessandro Yamasaki

27/11/2013

Você precisa importar o controle activex do Adobe Reader (ou seja, precisa do reader instalado)

Importando o controle activex para o delphi:

- Abra o Delphi e vá em Component -> Import ActiveX Control

- Clique em Add e procure o arquivo pdf.ocx (fica dentro da pasta activex do reader)

- Clique em Install e, depois, em OK

- Confirme a compilação e instalação do pacote clicando em Yes

- Verifique se o componente foi instalado corretamente na aba ActiveX do Delphi

Visualizando o PDF

Insira o componente PDF e utilize o seguinte comando: PDF.LoadFile(<<name>> ) ;

[]´s
GOSTEI 0
Dércio Zanatta

Dércio Zanatta

27/11/2013

Você precisa importar o controle activex do Adobe Reader (ou seja, precisa do reader instalado)

Importando o controle activex para o delphi:

- Abra o Delphi e vá em Component -> Import ActiveX Control

- Clique em Add e procure o arquivo pdf.ocx (fica dentro da pasta activex do reader)

- Clique em Install e, depois, em OK

- Confirme a compilação e instalação do pacote clicando em Yes

- Verifique se o componente foi instalado corretamente na aba ActiveX do Delphi

Visualizando o PDF

Insira o componente PDF e utilize o seguinte comando: PDF.LoadFile(<<name>> ) ;

[]´s


Bom dia.
Estou tentado usar o componente do Ativex TAcroPDF. Funciona perfeitamente se eu executar pela IDE do Delphi, porém se eu rodar a aplicação (.exe) fora da IDE do Delphi, a função LoadFile Fica carregando eternamente. Alguém passou por esse problema ?

GOSTEI 0
POSTAR