1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| SI HTTPDestination(sFic_test) ALORS
SI HTTPRequête(sUrl) ALORS
fic_test_res = SansEspace(fChargeTexte(sFic_test))
SI fic_test_res <> "" ALORS
Info("url récupéré")
FIN
SINON
Ouvre(FEN_msg_erreur,"L'url doit être sous la forme : http://www.nom_du_site.domaine"+RC+RC+"Erreur 0014" ,ErreurInfo(errComplet),"Erreur")
sVal_renvoyer = "-1"
RENVOYER sVal_renvoyer
FIN
SINON
SI ErreurDétectée ALORS
Ouvre(FEN_msg_erreur,"Erreur sur fichier"+RC+RC+"Erreur 0001" ,ErreurInfo(errComplet),"Erreur")
sVal_renvoyer = "-1"
RENVOYER sVal_renvoyer
FIN
FIN |
Partager