Auteur: Patrick BikerDes exemples d'utilisation des fonctions du WLangage
Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.
Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.
DotNetAjouteEntete (en anglais DotNetAddHeader)
|
// Ajout d'un en-tête à la prochaine procédure DotNet exécutée
// Cet en-tête permet de vérifier le niveau de sécurité informatique // utilisée par le serveur // Si le niveau de sécurité maximum n'est pas utilisé, la prochaine // procédure DotNet ne sera pas exécutée DotNetAjouteEntête ("Sécurité", "SécuritéMax", "Sécurité-Niveau", Vrai )
|
DotNetDonneResultat (en anglais DotNetGetResult)
|
// Cet exemple est basé sur la présence du module eightball sur le site "www.gotdotnet.com".
// Si le module n'était plus disponible sur le site, l'exemple ne fonctionnerait plus DotNet.Valeur[1] = "mettre ici une question, en anglais de préférence"+ ... "pour le fun de l'exemple : que pourra-t-on nous répondre ?" DotNet.Nom[1] = "psQuestion" DotNet.Type[1] = DotNetTypeChaîne SI DotNetExécute("www.gotdotnet.com/playground/services/EightBall/eightballws.asmx", ... "Ask", "http://tempuri.org/","http://tempuri.org/Ask") ALORS Info( DotNetDonneRésultat ( DotNetRésultat )) SINON SI DotNetErreur( DotNetErrMessage ) ~= "" ALORS Erreur(ErreurInfo()) SINON Erreur("Erreur DotNet : "+ ... DotNetErreur( DotNetErrMessage )) FIN FIN
|
DotNetErreur (en anglais DotNetError)
|
// Cet exemple est basé sur la présence du module eightball sur le site "www.gotdotnet.com".
// Si le module n'était plus disponible sur le site, l'exemple ne fonctionnerait plus DotNet.Valeur[1] = "mettre ici une question, en anglais de préférence"+ ... "pour le fun de l'exemple : que pourra-t-on nous répondre ?" DotNet.Nom[1] = "psQuestion" DotNet.Type[1] = DotNetTypeChaîne SI DotNetExécute("www.gotdotnet.com/playground/services/EightBall/eightballws.asmx", ... "Ask", "http://tempuri.org/","http://tempuri.org/Ask") ALORS Info(DotNetDonneRésultat( DotNetRésultat )) SINON SI DotNetErreur ( DotNetErrMessage ) ~= "" ALORS Erreur(ErreurInfo()) SINON Erreur("Erreur DotNet : "+ ... DotNetErreur ( DotNetErrMessage )) FIN FIN
|
DotNetExecute (en anglais DotNetRun)
|
// Cet exemple est basé sur la présence du module eightball sur le site "www.gotdotnet.com".
// Si le module n'était plus disponible sur le site, l'exemple ne fonctionnerait plus DotNet.Valeur[1] = "mettre ici une question, en anglais de préférence"+ ... "pour le fun de l'exemple : que pourra-t-on nous répondre ?" DotNet.Nom[1] = "psQuestion" DotNet.Type[1] = DotNetTypeChaîne SI DotNetExécute ("www.gotdotnet.com/playground/services/EightBall/eightballws.asmx", ... "Ask", "http://tempuri.org/","http://tempuri.org/Ask") ALORS Info(DotNetDonneRésultat( DotNetRésultat )) SINON SI DotNetErreur( DotNetErrMessage ) ~= "" ALORS Erreur(ErreurInfo()) SINON Erreur("Erreur DotNet : "+ ... DotNetErreur( DotNetErrMessage )) FIN FIN
|
DotNetExecuteXML (en anglais DotNetRunXML)
|
// Définition du message XML de la procédure "getTemp" qui
// retourne la température d'une ville identifiée par son code postal MessageXML = ... "<SOAP-ENV:Envelope#800080"> ""http://schemas.xmlsoap.org/soap/envelope/"""+... "xmlns:xsi=""http://www.w3.org/1999/XMLSchema-instance"""+... "xmlns:xsd=""http://www.w3.org/1999/XMLSchema"">"+... "SOAP-ENV:Body> "+... "<ns1:getTempurn:xmethods-Temperature"" SOAP-"+... "ENV:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/"">"+... "<zipcode xsi:type=""xsd:string"">94041</zipcode> "+... "</ns1:getTemp> "+... "</SOAP-ENV:Body> "+... "</SOAP-ENV:Envelope>" // Exécution de la procédure "getTemp" ResExécution = DotNetExécuteXML ("http://services.xmethods.net:80"+... "/soap/servlet/rpcrouter", MessageXML)
|
