AcroPDF na prática
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?
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
Curtidas 0
Respostas
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
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
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
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