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
| ErreurHTTP est une chaîne
RequeteConnexion est une chaîne
TitreSuivant("Connexion .....")
Sablier(Vrai)
HTTPDestination(fRepEnCours()+"\requeteHTTP.xml")
sMessagePost est une chaîne ="mail="+SAI_E_Mail+"&pass="+SAI_Mot_de_passe
RequeteConnexion = HTTPRequête("http://TONSITE/connexion.php", "", "", sMessagePost)
// Arrêt de la jauge infinie
Sablier(Faux)
TitreSuivant("")
//Si la requete a bien été envoyé
SI RequeteConnexion = Vrai ALORS
Info("Requête OK, résultat :", ...
HTMLVersTexte(HTTPDonneRésultat(httpRésultat)))
//Si il y a eu une erreur sur le serveur
SI Taille(RequeteConnexion) = 0 ALORS
// le détail de l'erreur est dans l'entête de la page
ErreurHTTP = HTTPDonneRésultat(httpEntête)
Erreur(ErreurHTTP)
SINON
sResCode est une chaîne = HTMLVersTexte(HTTPDonneRésultat(httpRésultat))
MaSourceXML est une chaîne = fChargeTexte(fRepEnCours()+"\requeteHTTP.xml")
// Création du document XML
XMLDocument("CdeXML", MaSourceXML)
SI ErreurDétectée = Vrai ALORS
Erreur("Erreur lors de la création du document XML")
FIN
// Positionne sur l'élément ""
XMLPremier("CdeXML")
// Descend d'un niveau et positionne sur l'élément ""
XMLFils("CdeXML")
// Récupère le numéro de la commande
NumCde est une chaîne = XMLDonnée("CdeXML")
XMLTermine("CdeXML")
Info(NumCde)
FIN
SINON
Erreur("Une erreur est survenue. Impossible de se connecter aux serveurs web")
FIN |
Partager