Discussion :

[baloub]

Bonjour,

Dans mon programme je télécharge de petites imagettes sur divers serveurs.
Je procède comme ça:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
private sub envoi_requete
 
    .......
 
         If InfosImages.Contains(url) = False Then
 
                Try
                  Dim uri As New Uri(url)
                  Dim clientListe As New WebClient
                  AddHandler clientListe2.DownloadDataCompleted, AddressOf clientListe_DownloadDataCompleted
                  clientListe.DownloadDataAsync(uri, n.ToString & "   " & indice.ToString & "   " & url)
                  Catch ex As Exception
 
                  End Try
         End If
 
    .......
end sub
 
    Private Sub clientListe_DownloadDataCompleted(ByVal sender As Object, ByVal e As System.Net.DownloadDataCompletedEventArgs)
        Try
            Dim r() As String = Split(e.UserState, "   ") 'r(0) position de l'image, r(1) indice dans AffEmmMarq, r(2) nom de l'image = url d'appel
 
            ListImages.Add(New MemoryStream(e.Result))     'ajouter l'image
            InfosImages.Add(r(2))                'ajouter le nom de l'image
            If ListImages.Count > 300 Then
                ListImages.RemoveAt(0)
                InfosImages.RemoveAt(0)
            End If
            Dim posIm As Integer = Val(r(0))
            Dim indice As Integer = Val(r(1))
 
           .....
 
        Catch ex As Exception
            affiche_log(ex.Message, False, 0)
            affiche_log("innerexception: " & e.Error.ToString, False, 0)
        End Try
 
    End Sub

La première routine adresse une demande au serveur et lorsque la réponse arrive la deuxième routine stocke l'image dans une liste.
Tout ça fonctionne très bien lorsque l'URL est en "http" mais foire avec une url en "https".
La routine affiche_log m'affiche le message d'erreur "La demande a été abandonnée*: Impossible de créer un canal sécurisé SSL/TLS"

Je cherche donc des infos pour établir ce canal sécurisé...

[wallace1]

Bonsoir,

La solution est ici (code c# à convertir en vbnet) :
https://www.developpez.net/forums/d1.../#post10372117

Bon codage.

++

[baloub]

Merci, ça fonctionne.
J'avais déjà vue et essayée cette procédure sur des exemples trouvés en cherchant ici ou là, mais ça n'avait pas fonctionné.
La cause était dans ton PS : "Il faut que ton projet cible la version 4.5 du framework"
J'utilisais toujours VB2010 express qui ne permet que le framework 4.0. (SecurityProtocolType.Tls uniquement)

Je suis obligé de me rabattre sur VS 2017 community que je n'aime pas.

Code qui fonctionne:

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
 
private sub envoi_requete
 
    .......
 
         If InfosImages.Contains(url) = False Then
 
                Try
                  Dim uri As New Uri(url)
                  ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls Or SecurityProtocolType.Tls11 Or SecurityProtocolType.Tls12
                  Dim clientListe As New WebClient
                  AddHandler clientListe.DownloadDataCompleted, AddressOf clientListe_DownloadDataCompleted
                  clientListe.DownloadDataAsync(uri, n.ToString & "   " & indice.ToString & "   " & url)
                Catch ex As Exception
 
                End Try
         End If
 
    .......
end sub

Merci encore