Re: ActiveX PDF | Sujet: Re: ActiveX PDF par Aqualung sur 30/1/2007 17:36:24
La référence de l'objet activex Acrobat reader dans la base de registre est Pdf.pdfCtrl.N N est égal à 1 pour la version 4, 5 pour la version 5, et 6 pour la version 6. La référence pour la version 7 est AcroPDF.PDF.1
Je te suggère ce code
VL_Objtest est un objet Automation dynamique
VL_TableVersion est chaîne="pdf.pdfctrl.1;pdf.pdfctrl.5;pdf.pdfctrl.6;AcroPDF.PDF.1;"
VL_Version est une chaîne
VL_VersionTrouvee est une chaîne
VL_i est entier
TANTQUE SansEspace(VL_VersionTrouvee)=""
VL_i++
VL_Version=SansEspace(ExtraitChaîne(VL_TableVersion,VL_i,";"))
SI VL_Version=EOT ALORS
VL_VersionTrouvee="AUCUNE"
SINON
SI VL_Version<>"" ALORS
QUAND EXCEPTION DANS
VL_Objtest=allouer un objet Automation VL_Version
FAIRE
libérer VL_Objtest
SINON
VL_VersionTrouvee=VL_Version
libérer VL_Objtest
FIN
FIN
FIN
FIN
Info(VL_VersionTrouvee)
et derrière tu reprends ce que tu avais avant. Tu peux mettre la chaine de controle dans un fichier de paramètres pour pouvoir la modifier si d'autres versions se présentent. Bon Dev,
|
|
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
|