Ler Arquivos pdf dentro de uma aplicação delphi
Já procurei em vários lugares e não encontrei nada que fosse realmente claro, gostaria de saber se tem como ler arquivos pdf dentro de uma aplicação delphi se for possível por favor me informem como.
Grato pela sua atenção.
Grato pela sua atenção.
00seth
Curtidas 0
Respostas
Aroldo Zanela
25/11/2004
Colega,
Existem várias maneiras, muitas já discutidas e exemplificadas aqui no fórum. A de menor esforço é usando a API do acrobat.
Existem várias maneiras, muitas já discutidas e exemplificadas aqui no fórum. A de menor esforço é usando a API do acrobat.
GOSTEI 0
00seth
25/11/2004
Bom vc diz usando a API, mas eu não quero que acrobat abra quero que o conteúdo do arquivo pdf seja visualizado na aplicação delphi.
Consegui fazer isso num memo mas a formatação do texto e imagens não aparecem, dá uma olhada nesse código:
coloque um opendialg, um button, e um memo
procedure TForm1.Button1Click(Sender: TObject);
var App,AVDoc:Variant;
begin
if not OpenDialog1.execute then
exit;
App:=CreateOleObject(´AcroExch.App´);
// App.Show; // Se quiser ver ele trabalhando ...
AVDoc:=App.GetActiveDoc; //doc handle
//AVDoc.Open(´C:\work\aoladdr.pdf´,´´);
//AVDoc.Open(´D:\Sistemas_Delphi_5\ODEBRECHT\SAGEO\docs\ORINONAVAJOPRINCESS0903FAT.PDF´,´´);//see note below
AVDoc.Open(OpenDialog1.filename,´´);//see note below
App.MenuItemExecute(´Edit´);
App.MenuItemExecute(´SelectAll´);
App.MenuItemExecute(´Edit´);
App.MenuItemExecute(´Copy´);
Memo1.PasteFromClipboard;
App.Exit; //a menos que queira deixar rodando...
end;
Consegui fazer isso num memo mas a formatação do texto e imagens não aparecem, dá uma olhada nesse código:
coloque um opendialg, um button, e um memo
procedure TForm1.Button1Click(Sender: TObject);
var App,AVDoc:Variant;
begin
if not OpenDialog1.execute then
exit;
App:=CreateOleObject(´AcroExch.App´);
// App.Show; // Se quiser ver ele trabalhando ...
AVDoc:=App.GetActiveDoc; //doc handle
//AVDoc.Open(´C:\work\aoladdr.pdf´,´´);
//AVDoc.Open(´D:\Sistemas_Delphi_5\ODEBRECHT\SAGEO\docs\ORINONAVAJOPRINCESS0903FAT.PDF´,´´);//see note below
AVDoc.Open(OpenDialog1.filename,´´);//see note below
App.MenuItemExecute(´Edit´);
App.MenuItemExecute(´SelectAll´);
App.MenuItemExecute(´Edit´);
App.MenuItemExecute(´Copy´);
Memo1.PasteFromClipboard;
App.Exit; //a menos que queira deixar rodando...
end;
GOSTEI 0
Reginaldo174
25/11/2004
Caro amigo...
utilize o componente XPdfviewer. Não é gratuito mas vale a pena comprar pois funciona muito bem.
Faça uma pesquisa no google
utilize o componente XPdfviewer. Não é gratuito mas vale a pena comprar pois funciona muito bem.
Faça uma pesquisa no google
GOSTEI 0