IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)

Exemple d'utilisation d'un WebService : Google

Ce document a pour but de présenter l'utilisation d'un WebService sous Delphi, en prenant l'exemple de celui fourni par Google

Article lu   fois.

L'auteur

Profil ProSite personnel

Liens sociaux

Viadeo Twitter Facebook Share on Google+   

Avant-propos

Ce document a pour but de présenter d'une manière que j'espère simple l'utilisation d'un WebService. Il ne s'agit pas d'un cours de haute voltige, mais d'une implémentation pratique.

Bien entendu, toute remarque constructive est la bienvenue.

Le code a été écrit et testé avec Borland Delphi 7 Architect français.

Le projet est téléchargeable ici.

Pour pouvoir l'utiliser, enregistrez la clé reçue de Google dans le fichier RegKey.txt.

I. Qu'est-ce qu'un WebService ?

En faisant l'analogie avec un programme développé par soi-même, le WebService est une fonction, ou une bibliothèque de fonctions mise à disposition non dans une bibliothèque ou un code source, mais par un serveur Web.

Les prototypes de ces fonctions sont définis dans un fichier WSDL, qui peut être comparé à un fichier d'en-tête.

D'un point de vue pratique, il s'agit d'un échange de fichiers XML, transporté par le protocole HTTP. L'application cliente encode dans un fichier XML, la fonction qu'elle désire appeler, ainsi que les paramètres. Ce fichier est envoyé au serveur. Le serveur le décode, exécute le traitement demandé, encode le résultat dans un fichier XML qui est renvoyé au client.

J'imagine bien que cette description va faire hurler les puristes, mais il me semble qu'elle donne une idée rapide et simple de ce qu'est un WebService.

II. Obtenir l'accès au service Google

Google fournit une API sous forme de WebSerice. Cette API est une version bêta, mais est fonctionnelle et gratuite, disponible pour une utilisation non commerciale.

Elle est téléchargeable à l'adresse suivante : http://www.google.fr/apis/.

Après enregistrement, une clé est envoyée sur l'e-mail. Cette clé est nécessaire pour chaque appel au service.

III. Importer le fichier WSDL

La première étape est de créer un nouveau projet et d'y importer le fichier WSDL afin de pouvoir accéder aux fonctions exportées par le serveur.

Dans le menu File/New/Other…, sélectionnez l'onglet WebServices, WSDL Importer

Image non disponible

Dans l'assistant qui apparaît, cliquez sur le bouton Next.

Doit alors apparaître une fenêtre semblable à celle qui suit, avec à gauche la liste des types et fonctions générées et à droite, un aperçu du code

Image non disponible

Cliquez sur le bouton Finish et enregistrez le nouveau projet dans un répertoire.

IV. Accéder au service

Dans le fichier qui va utiliser le WebService, ajoutez la ligne suivante dans la clause Uses :

 
Sélectionnez
Uses GoogleSearch;

Il faut ensuite déclarer une interface permettant d'accéder au service désiré :

 
Sélectionnez
var    
    GooglePort : GoogleSearchPort;

Et la variable qui contiendra la valeur de retour :

 
Sélectionnez
var
    SearchResult : GoogleSearchResult;

L'étape suivante est d'acquérir l'interface vers le service désiré.

 
Sélectionnez
GooglePort := GetGoogleSearchPort();

L'appel au WebService se fait dès lors comme une fonction tout à fait classique.

 
Sélectionnez
SearchResult := GooglePort.doGoogleSearch( RegKey.Text,
                                           EKeyWords.Text,
                                           iStart,
                                           StrToInt(EMaxRes.Text),
                                           CBFilter.Checked,
                                           ERestrict.Text,
                                           CBSafeSearch.Checked,
                                           Elr.Text,
                                           'dummy',
                                           'dummy');

Les paramètres sont dans l'ordre :

  • la clé reçue lors de l'enregistrement auprès de Google ;
  • les mots clés ;
  • l'index du premier élément de réponse désiré ;
  • le nombre de résultats désirés ;
  • un booléen indiquant si l'on veut tous les résultats, ou si les résultats similaires sont filtrés ;
  • une clause de restriction (langue, sujet…) ;
  • une option de filtrage des sites Adultes ;
  • une option de filtre sur la langue des pages résultant de la recherche ;
  • deux options qui doivent être présentes, mais qui ne sont plus utilisées et qui sont appelées à disparaître).

Pour une description plus complète des paramètres et les valeurs permises, je vous renvoie à la documentation fournie dans l'API.

V. Accéder aux résultats

Le code suivant permet de lister les résultats de la recherche dans une ListBox

 
Sélectionnez
for i := SearchResult.startIndex - iStart to SearchResult.endIndex - iStart do begin
    resElem := SearchResult.resultElements[i-1];
    LBResult.Items.Add( '<' +IntToStr(iStart + i)+ '> '+ resElem.title);
    LBResult.Items.Add(' -> ' + resElem.URL);
end;

VI. Conclusion

À l'exception de l'étape d'importation du descriptif du WebService, l'utilisation est quasi identique à une fonction classique du programme.

Vous avez aimé ce tutoriel ? Alors partagez-le en cliquant sur les boutons suivants : Viadeo Twitter Facebook Share on Google+   

Ce document est issu de https://www.developpez.com et reste la propriété exclusive de son auteur.
La copie, modification et/ou distribution par quelque moyen que ce soit est soumise à l'obtention préalable de l'autorisation de l'auteur.