portabilité de variable Async

Version imprimable

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:

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

15/04/2024, 12h09
Pol63

Code:

Private async Sub Button1_Click

et

Code:

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é
15/04/2024, 12h51
road-runner

merci mais ça marche pas !!

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:

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

15/04/2024, 13h34
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
15/04/2024, 15h59
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)