<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//FR"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fr" lang="fr"> <head>   <title>Exemple d'utilisation d'un WebService : Google - Club d'entraide des d&eacute;veloppeurs francophone</title>   <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />   <meta name="generator" content="developpez-com">   <meta name="description" content="Exemple d'utilisation d'un WebService : Google"/>   <meta name="keywords" content="WSDL, XML, WebService, SOAP, Google"/>   <link rel="stylesheet" TYPE="text/css" href="http://www.developpez.com/mainstyle.css">   <link rel="stylesheet" type="text/css" media="screen" href="./article.css" />  </head> <body lang="fr" style="font-family: Verdana" marginheight="0" marginwidth="0" leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0">  <table width="100%" border="0" cellspacing="4" cellpadding="0">   <tr>     <td align="center">      <table width="100%" border="0" bgcolor="#DDEEFF" cellspacing="0" cellpadding="0">      <tr><td>       <table width="100%" border="0" bgcolor="#DDEEFF" cellspacing="0" cellpadding="10">       <tr valign="middle">         <td height="15" valign="middle">           <a href="http://www.developpez.com"><img src="http://www.developpez.com/template/logo.gif" align="middle" alt="Accueil" border="0"></a>         </td>         <td height="15" align="center" valign="middle" rowspan="2">           <script language="javascript" src="http://www.developpez.biz/ban/devban.js"></script>         </td>       </tr>       <tr>           <td valign="bottom">              <!-- Search Google -->              <center>              <FORM method=GET action=http://www.google.com/custom target="_blank" CLASS="google">              <span class="mainmenu">Rechercher:</span>              <INPUT TYPE=text name=q size=20 maxlength=255 value="">              <INPUT type=submit name=sa VALUE="Go">              <INPUT type=hidden name=cof VALUE="L:http://www.developpez.com/template/logo.gif;AH:center;GL:0;S:http://www.developpez.com;AWFID:466bd8f66d98f56f;">              <font face=arial,sans-serif size=-1>              <input type=hidden name=domains value="developpez.com">              <input type=hidden name=sitesearch value="developpez.com">              </FORM>              <!-- Search Google -->              </center>           </td>        </tr>       </table>     </td>   </tr>   <tr><td>    <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="100%" BGCOLOR="#DDEEFF">     <TR>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>    </TR>    <TR>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bordg.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://www.developpez.com" CLASS="ntdrub">Accueil<BR></A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/seld.gif"></TD>       <TD ALIGN="center" BGCOLOR="#6389D8"><A HREF="http://delphi.developpez.com" CLASS="narub">Delphi<BR></A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/selg.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://c.developpez.com" CLASS="ntdrub">C<BR>C++</A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bord1.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://java.developpez.com" CLASS="ntdrub">Java<BR>J2EE</A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bord1.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://dotnet.developpez.com" CLASS="ntdrub">DotNET<BR>& C#</A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bord1.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://vb.developpez.com" CLASS="ntdrub">Visual<BR>Basic</A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bord1.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://access.developpez.com" CLASS="ntdrub">Access<BR></A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bord1.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://kylix.developpez.com" CLASS="ntdrub">Kylix<BR></A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bord1.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://pascal.developpez.com" CLASS="ntdrub">Pascal<BR></A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bord1.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://web.developpez.com" CLASS="ntdrub">Dev<BR>Web</A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bord1.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://php.developpez.com" CLASS="ntdrub">PHP<BR></A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bord1.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://asp.developpez.com" CLASS="ntdrub">ASP<BR></A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bord1.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://xml.developpez.com" CLASS="ntdrub">XML<BR></A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bord1.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://uml.developpez.com" CLASS="ntdrub">UML<BR></A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bord1.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://sgbd.developpez.com" CLASS="ntdrub">SQL<BR>SGBD</A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bord1.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://asm.developpez.com" CLASS="ntdrub">ASM<BR></A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bord1.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://windows.developpez.com" CLASS="ntdrub">Win<BR></A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bord1.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://linux.developpez.com" CLASS="ntdrub">Linux<BR></A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bord1.gif"></TD>       <TD ALIGN="center" BGCOLOR="#FFF8DD"><A HREF="http://www.developpez.com/cours/" CLASS="ntdrub">Autres<BR></A></div></TD>       <TD WIDTH="1" BGCOLOR="#FFEEDD"><IMG SRC="http://www.developpez.com/template/images/bordd.gif"></TD>    </TR>    <TR>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#6389D8"></TD>       <TD HEIGHT="1" BGCOLOR="#6389D8"></TD>       <TD HEIGHT="1" BGCOLOR="#6389D8"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>       <TD HEIGHT="1" BGCOLOR="#000000"></TD>    </TR>    <TR>      <TD HEIGHT="30" BGCOLOR="#6389D8" COLSPAN="42">      <P CLASS="titrelarge" ALIGN="Center"><FONT COLOR="#FFEEDD">Delphi</FONT></P>       </TD>    </TR> </TABLE>   </td></tr>   <tr valign="top">     <th colspan="4" width="100%" valign="top" align="center" bgcolor="#ffffff"> <!--          <link REL="stylesheet" TYPE="text/css" HREF="./article.css">-->           <TABLE class="cadrearticle" WIDTH="90%" CELLPADDING="10" CELLSPACING="0">             <TR>               <TD>          <br><P class="titreArticle">Exemple d'utilisation d'un WebService : Google</P><P class="dateArticle">17/11/2002</P><P ALIGN="CENTER">         Par          <a class="auteur" href="http://www.developpez.net/forums/profile.php?mode=viewprofile&amp;u=5412">LFE</a> <a class="homepage" href="http://lfe.developpez.com/">(autres articles)</a><br>&nbsp;</P><P class="synopsis">  		Ce document a pour but de pr&eacute;senter l'utilisation d'un WebService sous Delphi, en prenant l'exemple de celui   	    fourni par Google  	</P><br><a class="summaryIndent0" href="#L0">Avant-Propos</a><br><a class="summaryIndent0" href="#L1">1. Qu'est ce qu'un WebService ?</a><br><a class="summaryIndent0" href="#L2">2. Obtenir l'acc&egrave;s au service Google</a><br><a class="summaryIndent0" href="#L3">3. Importer le fichier WSDL </a><br><a class="summaryIndent0" href="#L4">4. Acc&eacute;der au Service</a><br><a class="summaryIndent0" href="#L5">5. Acc&eacute;der aux r&eacute;sultats</a><br><a class="summaryIndent0" href="#L6">6. Conclusion</a><br><br><br><a class="TitreSection0" name="L0"></a><div class="TitreSection0">Avant-Propos</div><br><br><div class="paragraph">  				Ce document a pour but de pr&eacute;senter d'une mani&egrave;re que j'esp&egrave;re simple l'utilisation d'un WebService.    				Il ne s'agit pas d'un cours de haute voltige mais d'une impl&eacute;mentation pratique.  			</div><br><div class="paragraph">  				Bien entendu, tout remarque <b>constructive</b> est la bienvenue.  			</div><br><div class="paragraph">  				Le code a &eacute;t&eacute; &eacute;crit et test&eacute; avec Borland Delphi 7 Architect Fran&ccedil;ais.  			</div><br><div class="paragraph">  				Le projet est t&eacute;l&eacute;chargeable <a href="http://www.developpez.be/downloads/delphi/DELPHISOAP.zip" class="lienArticle">ici</a>.  			</div><br><div class="paragraph">  				Pour pouvoir l'utiliser, enregistrer la cl&eacute; recue de Google dans le fichier <b>RegKey.txt</b>.  			</div><br><br><a class="TitreSection0" name="L1"></a><div class="TitreSection0">1. Qu'est ce qu'un WebService ?</div><br><br><div class="paragraph">  				En faisant l'analogie avec un programme d&eacute;velopp&eacute; par soi-m&ecirc;me, le WebService est une fonction, ou une librairie de   				fonctions mise &agrave; disposition non dans une librairie ou un code source, mais par un serveur Web.  			</div><br><div class="paragraph">  				Les prototypes de ces fonctions sont d&eacute;finis dans un fichier <b>WSDL</b>, qui peut &ecirc;tre compar&eacute; &agrave; un fichier d'en-t&ecirc;te.  			</div><br><div class="paragraph">  				D'un point de vue pratique, il s'agit d'un &eacute;change de fichiers <b>XML</b>, transport&eacute; par le protocole <b>HTTP</b>.    				L'application cliente encode dans un fichier XML, la fonction qu'elle d&eacute;sire appeler, ainsi que les param&egrave;tres.    				Ce fichier est envoy&eacute; au serveur.  Le serveur le d&eacute;code , &eacute;x&eacute;cute le traitement demand&eacute;, encode le r&eacute;sultat dans un   				fichier XML qui est renvoy&eacute;  au client.   			</div><br><div class="paragraph">  				J'imagine bien que cette description va faire hurler les puristes, mais il me semble qu'elle donne une id&eacute;e rapide et   				simple de ce qu'est un WebService.  			</div><br><br><a class="TitreSection0" name="L2"></a><div class="TitreSection0">2. Obtenir l'acc&egrave;s au service Google</div><br><br><div class="paragraph">  				Google fournit une API sous forme de WebSerice.  Cette API est une version b&eacute;ta mais est fonctionnelle et gratuite,   				disponible pour une utilisation non-commerciale.  			</div><br><div class="paragraph">  				Elle est t&eacute;l&eacute;chargeable &agrave; l'adresse suivante : <a href="http://www.google.fr/apis/" class="lienArticle">http://www.google.fr/apis/</a>.  			</div><br><div class="paragraph">  				Apr&egrave;s enregistrement, une cl&eacute; est envoy&eacute;e sur l'e-mail.  Cette cl&eacute; est n&eacute;cessaire pour chaque appel au service.  			</div><br><br><a class="TitreSection0" name="L3"></a><div class="TitreSection0">3. Importer le fichier WSDL </div><br><br><div class="paragraph">  				La premi&egrave;re &eacute;tape est de cr&eacute;er un nouveau projet et d'y importer le fichier WSDL afin de pouvoir acc&eacute;der   				aux fonctions export&eacute;es par le serveur.  			</div><br><div class="paragraph">  				Dans le menu <b>File/New/Other ...</b>, s&eacute;lectionner l'onglet <b>WebServices, WSDL Importer</b></div><br><p class="image"><img src="./img/WS1.gif"></p><div class="paragraph">  				Dans l'assitant qui appara&icirc;t, cliquer sur le bouton <b>Next</b></div><br><div class="paragraph">  				Doit alors appara&icirc;tre une fen&ecirc;tre semblable a celle qui suit, avec &agrave; gauche la liste des types et fonctions   				g&eacute;n&eacute;r&eacute;es et &agrave; droite, un aper&ccedil;u du code  			</div><br><p class="image"><img src="./img/WS2.gif"></p><div class="paragraph">  				Cliquer sur le bouton <b>Finish</b> et enregistrer le nouveau projet dans un r&eacute;pertoire.  			</div><br><br><a class="TitreSection0" name="L4"></a><div class="TitreSection0">4. Acc&eacute;der au Service</div><br><br><div class="paragraph">  				Dans le fichier qui va utiliser le WebService, ajouter la ligne suivante dans la clause Uses :  			</div><br><div class="delphi_code">  				Uses GoogleSearch;  			</div><br><div class="paragraph">  				Il faut ensuite d&eacute;clarer une interface permettant d'acc&eacute;der au service d&eacute;sire :   			</div><br><div class="delphi_code"><span class="delphi_keyword">var</span><br>&nbsp;&nbsp;&nbsp;   					GooglePort : GoogleSearchPort;  				<br><br></div><br><div class="paragraph">  				Et la variable qui contiendra la valeur de retour :  			</div><br><div class="delphi_code"><span class="delphi_keyword">var</span><br>&nbsp;&nbsp;&nbsp;   					SearchResult : GoogleSearchResult;  				<br><br></div><br><div class="paragraph">  				L'&eacute;tape suivante est d'acqu&eacute;rir l'interface vers le service d&eacute;sire.  			</div><br><div class="delphi_code">  				GooglePort := GetGoogleSearchPort();  			</div><br><div class="paragraph">  				L'appel au WebService se fait d&egrave;s lors comme une fonction tout &agrave; fait classique.     			</div><br><div class="delphi_code">  				SearchResult := GooglePort.doGoogleSearch(RegKey.Text,                                                EKeyWords.Text,                                                iStart,                                                StrToInt(EMaxRes.Text),                                                CBFilter.Checked,                                                ERestrict.Text,                                                CBSafeSearch.Checked,                                                Elr.Text,                                                <span class="delphi_ch">'dummy'</span>,                                                <span class="delphi_ch">'dummy'</span>);   			</div><br><div class="paragraph">  				Les param&egrave;tres sont dans l'ordre :  			</div><br><p class="liste"><ul><li>la cl&eacute; re&ccedil;ue lors de l'enregistrement aupr&egrave;s de Google</li><li>les mots cl&eacute;s</li><li>l'index du premier &eacute;l&eacute;ment de r&eacute;ponse desir&eacute;</li><li>le nombre de r&eacute;sultats d&eacute;sir&eacute;s</li><li>un bool&eacute;en indiquant si l'on veut tous les r&eacute;sutlats, ou si les r&eacute;sultats similaires sont filtr&eacute;s</li><li>une clause de restriction (langue, sujet, ....) </li><li>une option de filtrage des sites Adultes</li><li>une option de  filtre sur la langue des pages r&eacute;sutlant de la recherche</li><li>2 options qui doivent &ecirc;tre pr&eacute;sentes mais qui ne sont plus utilis&eacute;es et qui sont appel&eacute;es   						 &agrave; dispara&icirc;tre dans l'avenir)</li></ul></p><div class="paragraph">  				Pour une description plus compl&egrave;te des param&egrave;tres et les valeurs permises, je vous renvoie &agrave; la documentation   				fournie dans l'API.  			</div><br><br><a class="TitreSection0" name="L5"></a><div class="TitreSection0">5. Acc&eacute;der aux r&eacute;sultats</div><br><br><div class="paragraph">  				Le code suivant permet de lister les r&eacute;sutlats de la recherche dans une ListBox   			</div><br><div class="delphi_code"><span class="delphi_keyword">for</span>  i := SearchResult.startIndex - iStart <span class="delphi_keyword">to</span>  SearchResult.endIndex - iStart <span class="delphi_keyword">do</span> <span class="delphi_keyword">begin</span><br>&nbsp;&nbsp;&nbsp;   				    resElem := SearchResult.resultElements[i-1];<br>&nbsp;&nbsp;&nbsp;       				LBResult.Items.Add( <span class="delphi_ch">'&lt;' +IntToStr(iStart + i)+ '&gt; '</span>+ resElem.title);<br>&nbsp;&nbsp;&nbsp;       				LBResult.Items.Add(<span class="delphi_ch">' -&gt; '</span> + resElem.URL);  				<br><span class="delphi_keyword">end</span>;   </div><br><br><a class="TitreSection0" name="L6"></a><div class="TitreSection0">6. Conclusion</div><br><br><div class="paragraph">  				A l'exception de l'&eacute;tape d'importation du descritpif du WebService, l'utilisation est quasi identique &agrave; une fonction   				classique du programme  			</div><br><br><TABLE class="noteBasPage"></TABLE><hr><div class="licence">Ce document est issu de <a href="http://www.developpez.com" class="lienArticle">http://www.developpez.com</a> et reste la propri&eacute;t&eacute; exclusive de son auteur.<br>        	La copie, modification et/ou distribution par quelque moyen que ce soit est soumise &agrave; l'obtention pr&eacute;alable de         	l'autorisation de l'auteur.     	</div> <p align="center"> <script language="JavaScript1.1"> <!-- hsh = new Date(); hsd = document; hsi = '<a href="http://www.xiti.com/xiti.asp?s=102289"'; hsi += ' TARGET="_top"><img width="39" height="25" border=0 '; hsi += 'src="http://logv21.xiti.com/hit.xiti?s=102289'; hsi += '&='; hsi += '&hl=' + hsh.getHours() + 'x' + hsh.getMinutes() + 'x' + hsh.getSeconds(); if(parseFloat(navigator.appVersion)>=4) {Xiti_s=screen;hsi += '&r=' + Xiti_s.width + 'x' + Xiti_s.height + 'x' + Xiti_s.pixelDepth + 'x' + Xiti_s.colorDepth;} hsd.writeln(hsi + '&ref=' + hsd.referrer.replace('&', '$') + '" title="Mesurez votre audience"></a>'); //--> </script> <noscript> <a href="http://www.xiti.com/xiti.asp?s=102289" TARGET="_top"><img width="39" height="25" border=0  src="http://logv21.xiti.com/hit.xiti?s=102289&p=&" title="Mesurez votre audience"></a> </noscript> </p>            </TD>         </TR>       </TABLE>            </th>   </tr>   </table>   <tr>     <td>       <table width="100%" cellpadding="5" cellspacing="0">       <tr bgcolor="#DDEEFF">         <td align="center" height="57" class="titrepied">           Vos questions techniques : <b><a href="http://www.developpez.net/forums/viewforum.php?f=2" target="_blank">forum d'entraide Delphi</a></b> - Publiez vos articles, tutoriels et cours<br>           et rejoignez-nous dans l'&eacute;quipe de r&eacute;daction du club d'entraide des d&eacute;veloppeurs francophones <br> <a href="http://www.developpez.com/contacts/">Nous contacter</a>           - Copyright 2000..2003 www.developpez.com         </td>         <td align="center" height="57">           <script language="javascript1.1">             <!--               hsh = new Date();               hsd = document;               hsi = '<a href="http://www.xiti.com/xiti.asp?s=38420"'               hsi += ' target="_top"><img width="39" height="25" border=0 '               hsi += 'src="http://logv9.xiti.com/hit.xiti?s=38420'               hsi += '&p=&hl=' + hsh.getHours() + 'x' + hsh.getMinutes() + 'x' + hsh.getSeconds();               if(parseFloat(navigator.appVersion)>=4)               {Xiti_s=screen;hsi += '&r=' + Xiti_s.width + 'x' + Xiti_s.height + 'x' + Xiti_s.pixeldepth + 'x' + Xiti_s.colordepth;}               hsd.writeln(hsi + '&ref=' + hsd.referrer.replace('&', '$') + '" alt="mesurez votre audience"></a>');             //-->           </script>           <noscript>              <p><a href="http://www.xiti.com/xiti.asp?s=38420" target="_top"><img width="39" height="25" border="0" src="http://logv9.xiti.com/hit.xiti?s=38420&p=&" alt="mesurez votre audience"></a> </p>           </noscript>           <div align="center">           <a href="http://www.hit-parade.com/hp.asp?site=a49217" target="weborama"><img src="http://loga.hit-parade.com/logohp1.gif?site=a49217" alt="hit-parade" width="77" height="15" border="0" align="middle"></a>            </div>         </td>           <td height="57">           <div align="center">             <!--debut gold weborama-->             <script language="javascript">              <!--             webo_zone=2;              webo_page=1;              webogold_ok=0;               //-->             </script>             <script language="javascript" src="http://script.weborama.fr/gold.js"></script>             <script language="javascript">              <!--               if (webogold_ok==1) {                  webogold_zpi(webo_zone,webo_page,29843);               }             //-->             </script>             <!--fin gold weborama-->           </div>         </td>       </tr>       </table>     </td>   </tr>   </table> </body> </html>     
