Objet OLE et PDF

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:

---

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:

---

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 ?

salut


essai cela

Code:

---

CreateOleObject('AcroExch.Document');

---

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:

---

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 )

salut


Fenêtre externe

Code:

---

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:

---

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é

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

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

Salut,

J'avais vu ce composant aussi et j'avais pris un moment pour l'essayer mais je ne me souviens plus vraiment pourquoi j'ai laissé tombé, cela ne correspondait pas vraiment à mon besoin.

De toute façon et dans l'idéal ce n'est pas vraiment pour de l'affichage simple, en fait, j'aimerais prendre la page d'un document pdf qui ne comporterait qu'une page et qui représente un plan de construction, cette page il me faut l'intégrer dans mon appli pour l'utiliser comme une image et pouvoir y ajouter du texte et aussi dessiner pour ensuite le sauvegarder dans un format image ( png, ou jpg ).

Je crois qu'il va falloir que je regarde plutot du côté de librairie ou composant ( même payant ) qui permettent de faire cela, c'est à dire la conversion d'une page pdf en une image ( png ou jpg ), je pensais aux api d'abode mais apparement ce n'est pas aussi simple que cela...

salut

regarde alors du coté de TPDFIMAGE il transforme un pdf en image
les sources sont en delphi

Citation:

---

Envoyé par anapurna

salut

regarde alors du coté de TPDFIMAGE il transforme un pdf en image
les sources sont en delphi

---

:king: Super merci, je vais regarder !

:plusser: