Mon premier Web Service (SOAP)
Un serveur SOAP permet de rendre un ensemble de fonctions accessibles par Internet.
Il s'agit donc d'un projet simplifié sans interface contenant une ou plusieurs collections de procédures. Un exemple de serveur SOAP : Viamichelin, Google qui dispose de serveurs de fonctions qui via Internet vous retournent de l'information (itinéraire, résultat de recherche...)
Un exemple simple d'utilisation :
Votre logiciel ne peut être utilisé qu'avec une "code clé" (1 par utilisateur).
Pour éviter, d'envoyer par la poste, ou d'avoir à mettre en place un robot d'envoi d'email, votre programme appelle une (ou plusieurs) fonction(s) de votre serveur SOAP qui envoi ainsi la clé de déblocage.
Le serveur :
Le serveur doit pouvoir recevoir des demandes d'Internet, donc des requêtes http. Il doit donc avoir un serveur WEB comme Apache ou IIS. Il faut le compléter :
- des modules fournis avec WINDEV (DLL et exécutable de configuration). Sur ce point la documentation donne toutes les informations.
- d'une bibliothèque d'application WINDEV (.WDL) contenant votre collection de procédures.
Une illustration avec une serveur SOAP "Hello world !"
- créer une fonction "HELLO" dans la collection de procédure d'un projet nommé SERVEURWD :
Fonction HELLO(param)
RENVOYER "Hello World ! >> "+ param
- créer la bibliothèque (.WDL) : "Atelier…Bibliothèque…Générer la bibliothèque"
- installer le serveur
- copier la bibliothèque dans le répertoire que vous voulez
- copier dans ce répertoires les modules PC SOFT et WDSOAPCONFIG
- exécuter WDSOAPCONFIG pour donner les chemins d'accès,
- configurer le serveur WEB pour associer l'extension SOAP au module PC SOFT (se reporter à l'aide sur ce point).
Le client :
L'appel d'une fonction du serveur depuis le client se fait en donnant ses paramètres puis par un appel de la fonction "SOAPExécute()" et de la fonction "SOAPDonneRésutlat()".
- créer un projet : (c'est toujours du classique)
- une fenêtre de test avec un bouton et le code :
lsSOAPServAdr est chaîne
lsSOAPServNom est chaîne
lsFctNom est chaîne
lsRésultat est chaîne
// Initialisation des locales
lsSOAPServAdr = "<http://192.168.0.2/.SOAP>"
lsSOAPServNom = "SERVEURWD"
lsFctNom = "HELLO"
// Définition des paramètres d'appel de la fonction Soap
SOAP.Valeur[1] = "Paramètre pour le serveur !"
SOAP.Nom[1] = "MaChaine"
SOAP.Type[1] = SOAPTypeChaîne
SI PAS SOAPExécute(lsSOAPServAdr, lsFctNom, lsSOAPServNom) ALORS
Erreur("SOAPExécute('" + lsSOAPServAdr + "', '" + lsFctNom + "', '" + lsSOAPServNom + "'). '" + ...
SOAPErreur(SOAPErrMessage) + "'" + SOAPDonneRésultat(SOAPRésultatXML))
RETOUR
FIN
lsRésultat = SansEspace(SOAPDonneRésultat(SOAPRésultat))
SI lsRésultat = "" ALORS
Erreur("SOAPExecute vient d'échouer: '" + SOAPErreur(SOAPErrMessage) + "'")
SINON
Info(lsRésultat)
FIN
- lancer le test du projet qui au clic sur le bouton contactera le serveur !