Fórum Ler Arquivos pdf dentro de uma aplicação delphi #259988

Colega,

Existem várias maneiras, muitas já discutidas e exemplificadas aqui no fórum. A de menor esforço é usando a API do acrobat.

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;

Caro amigo...

utilize o componente XPdfviewer. Não é gratuito mas vale a pena comprar pois funciona muito bem.

Faça uma pesquisa no google