Discussion :

[free07]

Bonjour,

J'ai vu que l'on pouvait ouvrir une page d'un document pdf et l'afficher dans une fiche comme le montre cette discussion

Par contre, l'utilisation de

Code :

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

1
2
CreateoleObject('AcroExch.App');
CreateOleObject('AcroExch.avDoc')

ne peut se faire que si une version pro ( donc payante ) d'Acrobat est installée ? J'ai fait l'essai en ayant que la version Reader et je n'ai pas pu l'utiliser, l'objet n'éxiste pas.
J'ai vérifié en utilisant

Code :

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

IsCOMObjectExist('AcroExch.App')

et cela retourne False indiquant que l'objet n'éxiste pas...

En faisant des recherches, j'ai vu que cela pouvait fonctionner en installant le SDK Acrobat, j'ai essayé avec la version 7 du SDK mais cela ne fonctionne toujours pas...

Est ce quelqu'un peut me confirmer qu'il faut absolument la version pro d'Acrobat ?

Sinon, connaissez vous un composant ou une librairie pour afficher une page d'un document pdf et au mieux pour insérer une page pdf dans un autre document pdf ?

[anapurna]

salut


essai cela

Code :

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

CreateOleObject('AcroExch.Document');

[free07]

Salut,

Merci pour ton aide.

J'avais essayé car je l'ai vu que la liste se trouve dans la base de registre ( HKEY_CLASSES_ROOT ) mais j'ai une exception EOleError car la méthode OpenInWindowex n'est pas supporté par l'objet automation.

Code :

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

1
2
3
4
5
 
l_AVDoc : OleVariant;
 
l_AVDoc := CreateOleObject('AcroExch.Document');
l_AVDoc.OpenInWindowex(OpenDialog.FileName, Handle, 4, 0, 1, 1, 1, 1, 0, 0);

Je dois utiliser OpenInWindowex pour afficher la page pdf dans une fenêtre ( via son handle )

[anapurna]

salut


Fenêtre externe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
   l_AVDoc : OleVariant;
 
      l_AVDoc :=  CreateOleObject('AcroExch.Document');
      if VarIsEmpty(l_AVDoc) or VarIsNull(l_AVDoc)  Then
        ShellExecute(0, 'open',Pchar(OpenDialog.FileName), nil, nil, SW_SHOWNORMAL)
      else
      begin
        l_AVDoc.Open(OpenDialog.FileName);
        l_AVDoc.WindowState := xlMaximized;
        l_AVDoc.Visible := TRUE;
        l_AVDoc := Unassigned;
      end;

si tu utilise l'objet TOleContainer

Code :

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

1
2
3
4
   Ole  :  TOleContainer;
   ...
  Ole.CreateObjectFromFile(OpenDialog.FileName,False);
  Ole.Visible := true;

sinon effectivement la fonction OpenInWindowex n’apparaît que dans le sdk ... je suppose qu'il faut avoir une version plus évoluer pour accéder a ces fonctionnalité

[free07]

Bonjour

Et merci pour ton aide.

Le problème est que je dois ouvrir la 1ère page d'un PDF dans une fenêtre interne à l'application ( dans un TImage, ce serait le mieux mais je ne sais pas si cela est possible )

Je n'ai jamais utilisé TOleContainer, ce serait une solution dans mon cas ?

Thierry

[anapurna]

salut

si c'est pour de l'affichage simple je viens de vois que l'on peut directement appeler l’active x d'Acrobat reader

cherche l’unité "AcroPDFLib_TLB.pas" installe le composant et place le sur ta forme