Auteur: Patrick BikerExemples évolués
Chaque exemple montre une utilisation pratique de la fonction du WLangage.
Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.
Le code suivant permet de réaliser une recherche sur différents moteurs de recherche internet.
|
||
|
sURL est une chaîne
// Url que l'on veut interroger
sParametres est une chaîne // Paramètres à passer (en "get" ici) sResultat est une chaîne // Résultat de la requête sValeurDeRecherche est une chaîne // Valeur à faire rechercher par me moteur // Nom de "l'agent" : "Mozilla/4.0...." pour simuler IE sNomAgent est une chaîne = "Mozilla/4.0 (compatible; MSIE 6.0; Win32)" sValeurDeRecherche = "PCSOFT WINDEV WEBDEV" // On remplace les espaces par + sValeurDeRecherche = Remplace ( sValeurDeRecherche , " " , "+" ) // OU on remplace les espaces par %20 // cas GOOGLE : // sURL = "http://www.google.com/search" // sParametres=ChaîneConstruit("q=%1&start=0",sValeurDeRecherche) // cas DIR // sURL = " http://www.dir.com/cgi/recherche " // sParametres=ChaîneConstruit("req=%1&submit=Nouvelle+recherche",sValeurDeRecherche)+RC // cas NOMADE // sURL = "http://rechercher.nomade.tiscali.fr/recherche.asp" // sParametres=ChaîneConstruit("MT=%1t&s=%1&opt=0",sValeurDeRecherche) // cas YAHOO // sURL = " http://fr.search.yahoo.com/search/fr " // sParametres=ChaîneConstruit("p=%1&n=10",sValeurDeRecherche)+RC // Récupération de la page résultat suite à une requête HTTP // avec les paramètres en ligne de commande SI PAS HTTPRequête ( sURL + "?" + sParametres , sNomAgent ) ALORS Erreur ( ErreurInfo ()) SINON // Pour voir le résultat dans un champ HTML sResultat = HTTPDonneRésultat ( HTTPRésultat ) CHPTEXTE = sResultat CHPHTML = sResultat // Ici on affecte pas l'URL au champ HTML, mais uniquement le code HTML, // le répertoire "en cours" n'est donc pas celui du site // Les images et scripts ne seront pas trouvées FIN
|
||
Le code suivant permet de récupérer une image sur le site "www.windev.com". Cette image sera enregistrée dans le fichier "C:\MesImages\Images.GIF".
|
||
|
// Définition des variables
|
||
Le code suivant permet de récupérer une image sur le site "www.windev.com". 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.windev.com/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
|
