Discussion :

[Eric.H]

Bonjour

Depuis qq années on utilise l'activeX d'Acrobat Reader pour afficher les PDF, ceci sans problème jusque version 11.0.06.
Depuis la dernière mise a jour d'adobe en version 11.0.07 cela ne fonctionne plus.
L'erreur étant une "access violation..."

J'ai donc réimporté l'active X AcroPDF.dll... et cela explose des que l'on met le compo sur une form ou que l'on fasse un .create...

J'ai cherché ici, sur net et edn...rien trouvé de concluant.
Là je débug les sources delphi... si qq'un a une idée....

[Edit : forums Adobe : cela touche également, au minimum, delphi 2007 et VB6]

[Ph. B.]

Depuis qq années on utilise l'activeX d'Acrobat Reader pour afficher les PDF

S'il s'agit d'un simple affichage, il est possible de se reporter à cette suggestion que j'ai proposée récemment : Problème avec ActiveX Acrobat et Delphi XE 5.0

[Edit : forums Adobe : cela touche également, au minimum, delphi 2007 et VB6]

Cependant, si j'en crois cette discussion sur les forums Adobe, il faudrait sélectionner la bonne dll (32 ou 64 bits), ce que ne sauraient pas faire certains EDI qui prennent la 1° dll trouvée...

Toutefois, un intervenant a donné la solution suivante qui semble fonctionnelle (à vérifier) :

1. Copier oleCtrls.pas en oleCtrlsAdobe.pas
2. Dans le fichier copié, retirer de la classe TOleControl :
   
   • IServiceProvider
   • function QueryService(...): HResult; stdcall;
   • function TOleControl.QueryService(..): HResult;
   
   La déclaration devrait ressembler à :
   TOleControl = class (Twin Control, IUnknown, IOleClientSite, IOleControlSite, IOleInPlaceSite, IOleInPlaceFrame, IDispatch, IPropertyNotifySink, ISimpleFrameSite)
3. Dans la clause uses de l'unité AcroPDFLib_TLB.pas, remplacer OleCtrls par OleCtrlsAdobe

[Eric.H]

Je viens juste de lire la soluce sur le forum d'adobe, et je m’apprêtait à l'indiquer ici.... trop tard ;-), merci

Pas encore testé en XE5, une fois testé je clôturerai...
Pour ceux que cela intéresse :
https://forums.adobe.com/message/6400731#6400731
N.B. Lu dans un autre Forum, cela semble fonctionner en delphi 2007 et XE2

[Eric.H]

J'ai opté pour une autre solution moins lourde, trouvé sur forum adobe, où on surcharge QueryInterface:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
   TAcroPDF = class(TOleControl)
   ...
   protected
     function QueryInterface(const IID: TGUID; out Obj): HResult; override;
 
function TAcroPDF.QueryInterface(const IID: TGUID; out Obj): HResult;
begin
  if IID = IServiceProvider then
    Result := E_NOINTERFACE
  else
    inherited;
end;

Fonctionne avec version 11.0.07 et .06 sous W7 et XE5 32b

[castorcharly]

Bonjour,

Pour info ce problème est aussi présent sur mon XE2.
Pour l'instant, je suis repassé sous Adobe 10 en attendant de trouver vos solutions.

Ma question est, une fois que vous faites la correction proposée par Eric.H en surchargeant QueryInterface,
rencontre t on des problèmes si le programme est utilisé sur un poste qui a une version d'Adobe
inférieure à la 11 ?