Afficher une page d'un PDF sur une Form

Salut,

J'écris une procédure en utilisant les objets com - ole qui permet d'afficher une page d'un fichier pdf sur la fenêtre de mon application, le problème c'est que l'image apparait pendant une seconde puis elle disparait??????

voila mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Button3Click(Sender: TObject); var AVDoc,acrApp:variant; begin acrApp := CreateoleObject('AcroExch.App'); AVDoc := CreateOleObject('AcroExch.avDoc'); AVDoc.OpenInWindowex('C:\invariants2.pdf',form1.Handle,AV_PAGE_VIEW,0,1,1,1,1,0,0); avdoc:=Unassigned; acrapp.exit; end;

---

Merci d'avance :)

Je n'ai jamais essayé avec du PDF, mais si tu détruis ton objet OLE sans avoir copié réellement le contenu du PDF, comment tu fais pour le prochain Repaint ? ;)

En tout cas, avec Office et des données provenant de Word et d'Excel, j'effectue systématiquement une copie des données dans Delphi avant de fermer la liaison OLE... Et je n'ai jamais eu de soucis de ce genre.

Citation:

---

le problème c'est que l'image apparait pendant une seconde puis elle disparait??????

---

Ca ne m'étonne pas. Avec cette ligne :

Code:

---

acrapp.exit;

---

Tu dois fermer le reader et donc faire disparaitre le document.

Merci les amis, ça marche bien avec des variables globales et bien sur sans les "avdoc:=Unassigned;" et "acrapp.exit;" :D