Fonctions J2EE

Des 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.

Aller à la page des exemples évolués

J2EEAjouteEntete (en anglais J2EEAddHeader)

// Ajout d'un en-tête à la prochaine procédure J2EE 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 J2EE ne sera pas exécutée
J2EEAjouteEntête ("Sécurité", "SécuritéMax", "Sécurité-Niveau", Vrai )

Début de la page

J2EEDonneResultat (en anglais J2EEGetResult)

// Cet exemple est basé sur la présence du module Text2Image Web Service
// sur le site dwdemos.alphaworks.ibm.com.
// Si le module n'était plus disponible sur le site, l'exemple ne fonctionnerait plus
// Interrogation du Web service sur le serveur WEB
SI J2EEExécute("http://dwdemos.alphaworks.ibm.com:8085/soap/servlet/rpcrouter", ...
                "createImage", "urn:text2image", ...
                "http://alphaworks.ibm.com/alphabeans/text2image/createImage/") ALORS
    // Le résultat est une image, on en fait un fichier temporaire
    nIdFic est un entier
    nIdFic = fOuvre(fRepExe()+"\temp.gif", foCréation )
    fEcrit(nIdFic, J2EEDonneRésultat ( J2EERésultat ))
    fFerme(nIdFic)
    // Affichage
    IMG_GEN=""
    IMG_GEN=fRepExe()+"\temp.gif"
    // Suppression du fichier temporaire
    fSupprime(IMG_GEN)
SINON
    // si le service ne retourne pas d'erreur (ex : Serveur inaccessible)
    SI J2EEErreur( J2EEerrMessage )~="" ALORS
        Erreur(ErreurInfo())
        // si le service a retourné une erreur (erreur du service)
    SINON
        Erreur("Erreur J2EE : "+J2EEErreur( J2EEerrMessage ))
    FIN
FIN

Début de la page

J2EEErreur (en anglais J2EEError)

// Renvoie le message d'erreur de la dernière procédure J2EE exécutée
ResMessageErreur = J2EEErreur ( J2EEerrMessage )

Début de la page

J2EEExecute (en anglais J2EERun)

// Cet exemple est basé sur la présence du module Text2Image Web Service
// sur le site dwdemos.alphaworks.ibm.com.
// Si le module n'était plus disponible sur le site, l'exemple ne fonctionnerait plus
// Paramètres à passer au service
// Largeur de l'image
J2EE.Valeur[1]=SAIS_LARGEUR
J2EE.Nom[1]="imageWidth"
J2EE.Type[1]= J2EETypeEntier
...
// Interrogation du Web service sur le serveur WEB
SI J2EEExécute("http://dwdemos.alphaworks.ibm.com:8085/soap/servlet/rpcrouter", ...
                "createImage", "urn:text2image", ...
                "http://alphaworks.ibm.com/alphabeans/text2image/createImage/") ALORS
    // Le résultat est une image, on en fait un fichier temporaire
    nIdFic est un entier
    nIdFic = fOuvre(fRepExe()+"\temp.gif", foCréation )
    fEcrit(nIdFic, J2EEDonneRésultat ( J2EERésultat ))
    fFerme(nIdFic)
    // Affichage
    IMG_GEN=""
    IMG_GEN=fRepExe()+"\temp.gif"
    // Suppression du fichier temporaire
    fSupprime(IMG_GEN)
SINON
    // si le service ne retourne pas d'erreur (ex : Serveur inaccessible)
    SI J2EEErreur( J2EEerrMessage )~="" ALORS
        Erreur(ErreurInfo())
        // si le service a retourné une erreur (erreur du service)
    SINON
        Erreur("Erreur J2EE : "+J2EEErreur( J2EEerrMessage ))
    FIN
FIN

Début de la page

J2EEExecuteXML (en anglais J2EERunXML)

// 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 = J2EEExécuteXML ("http://services.xmethods.net:80"+ ...
                          "/soap/servlet/rpcrouter", MessageXML)

Début de la page