1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71
| PROCÉDURE showPdf(nomchamp est une chaîne,nompdf est une chaîne,modeSVG=Vrai)
strMonpdf est une chaîne=nompdf
//locaux ou distants, le HTML ouvrira toujours un pdf situé dans le dossier du script (autorisation de location JS)
//on copiera donc le fichier à ouvrir sous nomchamp.pdf avant chargement
fSupprime(ComplèteRep(fRepExe())+"TMPPDF_*.pdf")
nomfic est une chaîne="TMPPDF_"+DateSys()+HeureSys()+nomchamp+".pdf"
tmpPDf est une chaîne=ComplèteRep(fRepExe())+""+nomfic
SI EnModeAndroid() ET PAS EnModeTest ALORS
//est-ce que les ressources de gestion pdf sont bien présentes ?
SI PAS fFichierExiste(ComplèteRep(fRepExe())+"viewersvg.html") OU PAS fFichierExiste(ComplèteRep(fRepExe())+"viewersvg.js") ALORS
fExtraitRessource("WD_pdfjs2.zip",fRepExe())
SI fFichierExiste(ComplèteRep(fRepExe())+"WD_pdfjs2.zip") ALORS
//decompactage de la ressource
myarch est un entier=zipOuvre("archpdf",ComplèteRep(fRepExe())+"WD_pdfjs2.zip")
SI myarch=0 ALORS
Info("archive ouverte")
zipExtraitTout("archpdf",ComplèteRep(fRepExe()))
zipFerme("archpdf")
FIN
FIN
FIN
SI PAS fFichierExiste(ComplèteRep(fRepExe())+"viewersvg.html") OU PAS fFichierExiste(ComplèteRep(fRepExe())+"viewersvg.js") ALORS
//aucun display possible, les ressources sont absentes.
Info("les archives sont absentes")
//retour
FIN
activerjavascript(nomchamp)
FIN
SI Gauche(strMonpdf,4)="http" ALORS
//1 recuperer le fichier en local avant ouverture
SI HTTPRequête(strMonpdf) ALORS
fSauveTexte(tmpPDf,HTTPDonneRésultat(httpRésultat))
FIN
SINON
Info("adresse du fichier sources: "+strMonpdf)
SI PAS fFichierExiste(strMonpdf) ALORS Info("Fichier introuvable")
Info("adresse du fichier destination: "+tmpPDf)
fCopieFichier(strMonpdf,tmpPDf)
FIN
bLocalDebug est un booléen=Vrai
SI EnModeTest() ALORS
//{nomchamp,indchamp}=strMonpdf
//test avec localhost
// si localDebug alors
// fCopieFichier(ComplèteRep(fRepExe())+"web\viewersvg.html","c:\wamp\www\pdfjstest\web\viewersvg.html")
// fCopieFichier(ComplèteRep(fRepExe())+"web\viewersvg.js","c:\wamp\www\pdfjstest\web\viewersvg.js")
// nomfic est une chaine="test.pdf"+datesys+heuresys
//
// fCopieFichier(tmpPDf,"c:\wamp\www\pdfjstest\web\"+nomfic)
//
// testurl est une chaine="http://localhost/pdfjstest/"+"web/viewersvg.html?url="+"./"+nomfic+"&ti="+datesys+heuresys
// //{nomchamp,indChamp}=testurl
// LanceAppliAssociée(testurl)
{nomchamp,indChamp}=nompdf
SINON
myurl est une chaîne
SI modeSVG ALORS
myurl="file://"+ComplèteRep(fRepExe)+"viewersvg.html?url="+"./"+nomfic+"&ti="+DateSys+HeureSys
SINON
myurl="file://"+ComplèteRep(fRepExe)+"viewer.html?url="+"./"+nomfic+"&ti="+DateSys+HeureSys
FIN
{nomchamp,indChamp}=myurl
FIN |
Partager