Discussion :

[road-runner]

Bonjour,
J'essaie de comprend comment fonctionne HttpClient, mais dans le code en annexe j'arrive pas à récupérer le contenu de la variable "retour" ni "urlContents" en dehors de la fonction. pq?

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
Imports System.Net.Http.HttpClient
 
Public Class Form1
    Public retour As String
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Call AccessTheWebAsync()
        MsgBox(retour)
    End Sub
 
 
 
    Async Function AccessTheWebAsync() As Task(Of String)
        Using client As New Net.Http.HttpClient()
 
            Dim getStringTask As Task(Of String) = client.GetStringAsync("https://www.exchange-rates.org/fr/historique/usd-eur")
            Dim urlContents As String = Await getStringTask
            retour = urlContents
            Return urlContents
 
        End Using
    End Function
End Class

[Pol63]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private async Sub Button1_Click

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox(await AccessTheWebAsync())

un méthode async ou une task quand on les appelles sont exécutées le plus souvent sur un autre thread, donc ton code passe à la ligne d'après (msgbox ici) alors que retour n'a pas encore été setté

[road-runner]

merci mais ça marche pas !!

[umfred]

Ton code fonctionne (bien que simplifiable en nombre de lignes), juste que le contenu de retour n'est pas affichage dans un msgbox (si tu mets un point d'arrêt sur la ligne du msgbox, tu verras que retour contient bien ton info), met le résultat dans un textbox sinon

Sinon, ta fonction étant de type Async, pour avoir le résultat directement, il faut l'utiliser avec Await et il faut que la fonction dans laquelle est appelé soit aussi Async

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
Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim resultat = Await AccessTheWebAsync()
    TextBox1.Text = retour
End Sub
 
Public retour As String
 
Async Function AccessTheWebAsync() As Task(Of String)
    Using client As New Net.Http.HttpClient()
        Dim urlContents As String = Await  client.GetStringAsync("https://www.exchange-rates.org/fr/historique/usd-eur")
        retour = urlContents
        Return urlContents
 
    End Using
End Function

[road-runner]

en effet avec le visionneur en mode débogage je vois bien le contenu, par contre le textbox ou le label (car j'ai essayé aussi) reste vide.(peut-être que je dépasse les 32737 caractères autorisés) pas de message d'erreur (compilation et exécution). il n'existe pas une autre approche pour récupérer du contenu d'une page web. merci

[umfred]

j'ai testé le code que j'ai mis, et j'ai bien l'affichage (je n'ai pas regardé si j'avais tout le code de la page)