■ Syntaxe : HTTPRequest( Type, URL$, [, Data$ [, Flags [, Headers()]]] )
- Type #PB_HTTP_Get, #PB_HTTP_Post, Etc ....
- URL$ Domaine et nom du script invoqué
- Data$ Variables qui seront envoyés aux script Php (Falcultatifs)
- Flags 0 pour le moment (Falcultatifs)
- Headers() Map contenant des entêtes HTTP (Falcultatifs)
■ Objectif : Envoyer une structure de contact à un script Php.
1 - Sécuriser le script PHP afin de ne pas pouvoir l'utiliser depuis un navigateur par exemple.
On se servira de la map Header() pour envoyer une information de sécurisation.
Le nom de l'application et un numéro de version par exemple.
Code : Tout sélectionner
NewMap Header.s()
Header("User-Agent") = "Application/5.0.0.1"
Code : Tout sélectionner
if ($_SERVER['HTTP_USER_AGENT'] == 'Application/5.0.0.1'){
}
Code : Tout sélectionner
; Contact
Structure NewContact
name.s
age.i
city.s
EndStructure
Define Contact.NewContact, UserData.s
With Contact
\name = "John"
\age = 31
\city = "New York"
EndWith
Code : Tout sélectionner
If CreateJSON(0)
InsertJSONStructure(JSONValue(0), @Contact, NewContact)
UserData = ComposeJSON(0, #PB_JSON_PrettyPrint)
EndIf
3 - Exécuter la requête HTTP
Code : Tout sélectionner
Url.s = "http://s242132022.onlinehome.fr/hr/demojson.php"
HTTPRequest(#PB_HTTP_Post, Url, UserData, 0, Header())