pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


Le code suivant permet de récupérer une image sur le site "www.pcsoft.fr". Cette image sera enregistrée dans le fichier "C:\MesImages\Images.GIF".



// Définition des variables
ResAppel est un booléen
IdFichier est un entier

// Ouverture du fichier "C:\MesImages\Images.GIF"
IdFichier = fOuvre("C:\MesImages\Images.GIF", foCréation )
SI IdFichier <> -1 ALORS
   // Récupération de l'image
   ResAppel= HTTPRequête("http://www.pcsoft.fr/img/decor/bloc-h-g.gif")
   SI ResAppel = Vrai ALORS
      // Enregistrement de l'image récupérée dans le fichier
     
fEcrit(IdFichier, HTTPDonneRésultat (), Taille( HTTPDonneRésultat ()))
   FIN
   // Fermeture du fichier
   
fFerme(IdFichier)
FIN


Le code suivant permet de récupérer une image sur le site "www.pcsoft.fr". Cette image sera enregistrée dans le fichier "\MesImages\Images.GIF".



// Définition des variables
ResAppel est un booléen
IdFichier est un entier

// Ouverture du fichier "\MesImages\Images.GIF"
IdFichier = fOuvre("\MesImages\Images.GIF", foCréation )
SI IdFichier <> -1 ALORS
   // Récupération de l'image
   ResAppel = HTTPRequête("http://www.pcsoft.fr/img/decor/bloc-h-g.gif")
   SI ResAppel = Vrai ALORS
      // Enregistrement de l'image récupérée dans le fichier
     
fEcrit(IdFichier, HTTPDonneRésultat (), Taille( HTTPDonneRésultat ()))
   FIN
   // Fermeture du fichier
   
fFerme(IdFichier)
FIN