Bonjour à tous,

je me prends la tête depuis plusieurs jours déjà sur la manière dont je dois implémenter un moteur de recherche dans mon appli.
J'ai développé un moteur, mais je pense que Google et autres MSN ont des algorithmes plus calés que les miens.

Aussi j'ai étudié les solutions disponibles et quitte à faire du full Microsoft, autant utiliser l'API LiveSearch.
Celle-ci est directement intégrée au framework 3.5 avec un nouveau contrôle: le SearchDataSource. Je ne suis pas encore au 3.5 donc j'utilise le webservice.

Pour cela, je reference le web service grace a l'adresse:
http://soap.search.msn.com/webservices.asmx?wsdl
Cela me crée un repertoire MSNSearchService qui contient MSNSearchService.Discomap et MSNSearchService.wsdl

mon code fonctionne de la sorte:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 Protected Sub BTNSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNSearch.Click
        ' Création d'un objet msnSearch
        Dim SearchService As New MSNSearchService.MSNSearchService
        ' Instanciation de la recherche
        Dim SearchRequest As New MSNSearchService.SearchRequest
        SearchRequest.Query = TxtChercher.Text
        SearchRequest.AppID = "51B8EE99AA64E2B7B8E66E204B870551496A8A88"
        SearchRequest.CultureInfo = "en_US"
        SearchRequest.SafeSearch = MSNSearchService.SafeSearchOptions.Moderate
        'Instanciation du lieu de la recherche
        Dim arraySize As Integer = 0
        Dim SourceRequest As MSNSearchService.SourceRequest() = New MSNSearchService.SourceRequest(arraySize) {}
        SourceRequest(0) = New MSNSearchService.SourceRequest
        SourceRequest(0).Source = MSNSearchService.SourceType.Web
        SourceRequest(0).ResultFields = MSNSearchService.ResultFieldMask.All
        SourceRequest(0).Count = 10
 
        Dim SearchReponse As New MSNSearchService.SearchResponse
        Try
            SearchReponse = SearchService.Search(SearchRequest)
        Catch ex As Exception
            Dim TEST As String = ex.Message
        End Try
 
        AfficherResultatsRecherche(SearchReponse)
    End Sub
Je ne vois pas où je commets une erreur mais a chaque tentative, au moment de lancer la recherche (SearchReponse= SearchService.Search(SearchRequest)
j'obtiens un "Client Error", je ne peux plus debugger en pas à pas, et en gros la connexion avec le webservice est impossible.

Avez vous des idées ?

Merci d'avance