Afficher un flux RSS dans une page aspx avec Visual Basic .Net

samedi 24 mars 2007 par Bertrand Degoy

L’appel d’un Web Service dans du code Asp .Net est un processus d’une certaine complexité, mais qui permet des applications d’une grande richesse. Le travail nécessaire à une première implémentation trouve sa justification dans des projets ambitieux. Quitter le monde LAMP pour celui de Microsoft est également une option qui doit être mûrement réfléchie, notamment parce qu’il faut une plateforme de développement et d’hébergement particulière. Notons toutefois que le processus décrit peut aisément être transposé dans le monde LAMP ou JAVA par un développeur averti. En effet, le Web Service, par principe, ne fait aucune hypothèse sur la nature du client.

Sommaire de l'article

Notons que dans cet exemple, c’est la version étendue du Web Service ExShopCatalog qui est mise en oeuvre, dont la plus grande richesse justifie (ou nécesssite ?) l’effort de programmation proposé ici.

La création de la classe proxy de ExShopCatalog

Heureusement, la classe proxy peut être générée automatiquement avec Wsdl.exe à partir de la description WSDL du Web Service. Pour ma part, je ne procède jamais autrement et je ne vois pas ce qui pourrait nécessiter de se lancer dans le fastidieux travail d’une écriture manuelle de cette classe. L’utilitaire wsdl.exe se trouve dans le SDK de Visual Studio. Il est installé par défaut dans le répertoire suivant :

C :\Program Files\Microsoft Visual Studio 8\SDK\v2.0\Bin\

Pour créer la classe proxy, il faut lancer la commande :

Wsdl.exe /language:VB

http://rss.bidiweb.com/proto/ExShop...

Le résultat sera inscrit dans le même répertoire. Il est possible d’en télécharger une version attachée à cet article, pas forçément parfaitement à jour des dernières évolution du WebService (vous êtes ici sur les exemples du mode d’emploi du Web Service ShopCatalog, pas sur la distribution).

La consommation du Web Service ExShopCatalog à l’aide de sa classe proxy

Un bon exemple valant mieux qu’un long discours, tout le code de l’application de test technique du Web Service ExShopCatalog est joint à cet article et peut être téléchargé. Voici cependant l’essentiel du code servant à appeler le Web Service pour tester l’accès à la base de données :

Protected Sub Submit1_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        ' Tester la connexion à la base de données.

        Dim ConnectionString As String

        ConnectionString = "DRIVER=MySQL ODBC 3.51 Driver;SERVER=" & TextBox1.Text & ";UID=" & TextBox3.Text & ";DATABASE=" & TextBox2.Text & ";PASSWORD=" & TextBox4.Text & ";"

        ' Créer une classe proxy. Voir /App_Code/proxy.txt

        Dim proxy As New pExShopCatalog

        Dim result As String = "No answer or error"

        Try

            result = proxy.TestDataBaseAccess(ConnectionString)

        Catch ex As Exception

            result = "Error at proxy level: " & ex.Message

        Finally

            If result = "" Then

                Answer.Text = "No answer or unknown error"

            Else

                Answer.Text = result

            End If

            

        End Try

    End Sub