Code du Bouton 1:
tabPersonnes est un tableau de ST_Personne
// Remplissage des données
TableauAjoute(tabPersonnes)
tabPersonnes[1].sIdentifiant = "Serge"
tabPersonnes[1].sMdP = "1234"
bufXML est un Buffer
Sérialise(tabPersonnes, bufXML, psdXML)
// Envoi du XML sur un site en POST
HTTPCréeFormulaire("FormulaireXML")
HTTPAjouteParamètre("FormulaireXML", "DonneesXML", bufXML)
HTTPEnvoieFormulaire("FormulaireXML","
http://monsite.com/handling.php",
httpPost)
bufResultat est un Buffer
sResultat est une chaîne UNICODE
SI ExtraitChaîne(HTTPDonneRésultat(httpEntête), 2, " ")[[1]] <> "2" ALORS
Erreur("Erreur HTTP :", HTTPDonneRésultat(httpRésultat))
SINON
bufResultat = HTTPDonneRésultat(httpRésultat)
sResultat= UTF8VersUnicode(bufResultat)
SAI_Reponse..Valeur = sResultat
FIN
Code du Bouton 2:
tabPersonnes est un tableau de ST_Personne
// Remplissage des données
TableauAjoute(tabPersonnes)
tabPersonnes[1].sIdentifiant = "Serge"
tabPersonnes[1].sMdP = "12345"
bufXML est un Buffer
Sérialise(tabPersonnes, bufXML, psdXML)
// Envoi du XML sur un site en POST
HTTPCréeFormulaire("FormulaireXML")
HTTPAjouteParamètre("FormulaireXML", "DonneesXML", bufXML)
HTTPEnvoieFormulaire("FormulaireXML","
http://monsite.com/handling.php",
httpPost)
bufResultat est un Buffer
sResultat est une chaîne UNICODE
SI ExtraitChaîne(HTTPDonneRésultat(httpEntête), 2, " ")[[1]] <> "2" ALORS
Erreur("Erreur HTTP :", HTTPDonneRésultat(httpRésultat))
SINON
bufResultat = HTTPDonneRésultat(httpRésultat)
sResultat= UTF8VersUnicode(bufResultat)
SAI_Reponse..Valeur = sResultat
FIN