Discussion :

[omami]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mac LAK]

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.

[Franck SORIANO]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

acrapp.exit;

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

[omami]

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