Discussion :

[bremer]

Bonjour,

J'utilise l'API d'acrobat pour récupérer des information de mon document PDF.

Voici ma routine réduite au minimum mais qui me génère le problème suivant.

J'ouvre mon PDF, je fais une acquisition (sélection de la page PDF) puis
je ferme le PDF.

Hors après ma fermeture de mon fichier et à l'affichage de mon showmessage,
mon fichier PDF n'est pas libéré (Pour le tester j'essaye de le renommer.
Windows m'informe que le fichier est déjà ouvert dans Acrobat.

Mon code retour de la fonction close me renvoie pour tant -1 qui indique que la fermeture s'est bien passée.

Merci de votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Var
  acrobat_PDDoc: TAcroPDDoc;
 
Begin
 
       acrobat_PDDoc:=TAcroPDDoc.Create(nil);
 
       Rep_Exe:=ExtractFilePath(Application.ExeName);
 
       if Not(acrobat_PDDoc.Open(Rep_Exe+'Production\in\temp.pdf')) then
       begin
         messagedlg('Impossible d''ouvrir le fichier Temp.pdf', mtWarning, [mbOK], 0);
         Exit;
       end;
 
       PDPage := acrobat_PDDoc.AcquirePage(0);
 
 
       acrobat_PDDoc.Close;
       acrobat_PDDoc.Destroy;
 
       showmessage('Fini');
end;

[ShaiLeTroll]

utilise plutôt Free que Destroy !
PDPage est le fameux variant ?
cela semble être une variable déclarée hors de la fonction ?
affecte sa valeur à Null ou Unassigned normalement cela libère le contenu

[bremer]

Pddpage est un variant

J'ai essayé

Free
Destroy et unassigned, mon fichier n'est toujours pas libéré.

C'est une histoire de fou.

[ShaiLeTroll]

Free et Destroy concerne acrobat_PDDoc
Null ou Unassigned concerne PDPage

ceci ne fonctionne pas ?

Code :

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

1
2
 PDPage := acrobat_PDDoc.AcquirePage(0);
 PDPage := Null;

Va te falloir chercher dans la documentation de cet ActiveX !

[bremer]

Cela fait pareil, le fichier n'est toujours pas libéré.

Actuellement c'est l'active X d'adobe qui est importé dans Delphi 2010

J'ai la doc pour les fonction mais comme toujours c'est très orienté C++

Nous sommes les parents pauvres en Delphi au niveau des docs.

Je ne sais quoi faire.

[ALWEBER]

Juste pour info de quel est l'Active X d'adobe qui contient cet objet ?