Appel web service API REST

Version imprimable

Bonjour la communauté,

Je fais appel à un Web Service en API Rest et mon code malgré mes recherches me renvoie toujours le message suivant :

Citation:

La demande a été abandonnée: impossible de créer le canal sécurisé SSL / TLS

J'ai bien rajouté les 2 lignes suivantes :

Code:

1
2
ServicePointManager.Expect100Continue = true
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls1

Je poste mon code, si quelqu'un d'entre vous a une idée ?

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
        Dim NewUrl As String = ""
        '
        Dim myheaders As WebHeaderCollection
        Dim postData As String = ""
        ' POST /areafse/extraireRSPs HTTP/1.1
 
 
        Dim NumeroFacture As String = ""
        '
        '
        NewUrl = "https://rcubkp........"
        '
        postData = ""
        '
        Dim request As HttpWebRequest = HttpWebRequest.Create(NewUrl)
 
        ' Set the Method property of the request to POST.
        request.Method = "POST"
        ' Create POST data and convert it to a byte array.
 
        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
        ' Set the ContentType property of the WebRequest.
        request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14"
        request.Accept = "*/*"
        request.ServicePoint.Expect100Continue = True
        ServicePointManager.DefaultConnectionLimit = 9999
        ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
 
        request.ContentType = "application/json"
        request.ContentLength = byteArray.Length
        '
        myheaders = request.Headers
        myheaders.Add("Pragma", "no-cache")
 
        ' Get the request stream.
        Dim dataStream As Stream = request.GetRequestStream()
        ' Write the data to the request stream.
        dataStream.Write(byteArray, 0, byteArray.Length)
        ' Close the Stream object.
        dataStream.Close()
        ' Get the response.
        Try
            Dim response As WebResponse = request.GetResponse()
            ' Display the status.
            '
            ' Get the stream containing content returned by the server.
            dataStream = response.GetResponseStream()
            ' Open the stream using a StreamReader for easy access.
            Dim reader As New StreamReader(dataStream)
            ' Read the content.
            Dim responseFromServer As String = reader.ReadToEnd()
            ' Display the content.
            '
            If CType(response, HttpWebResponse).StatusCode = 200 Then
                Accueil.ZtCode.Text = "0"
                Accueil.ZtLibelle.Text = "La Fonction s'est déroulée avec Succès"
            Else
                Accueil.ZtCode.Text = CType(response, HttpWebResponse).StatusCode
                Accueil.ZtLibelle.Text = "Problème d'Appel du Web Service lireCPS"
            End If
            '
            Accueil.ZtDescription.Text = responseFromServer
            '
            Dim objStreamWriter As StreamWriter
            objStreamWriter = New StreamWriter(Application.StartupPath & "\Ws_response_extraireRsps.xml")
            'Write a second line of text.
            objStreamWriter.WriteLine(responseFromServer)
 
            'Close the file.
            objStreamWriter.Close()
            ' Clean up the streams.
            reader.Close()
            dataStream.Close()
            response.Close()
            '
            Return True
            '
        Catch ex As Exception
            'Accueil.ZtCode.Text = "100"
            'Accueil.ZtLibelle.Text = "Erreur ws_ExtraireRsps"
            MsgBox(ex.Message, MsgBoxStyle.Critical, "ws_ExtraireRsps")
            'Accueil.ZtDescription.Text = ex.Message
            Return False
        End Try
        '
        Return Nothing
    End Function

Merci d'avance
Jimbolion

09/07/2020, 09h40
thovan

Hello,

Tu ne semble pas passer de login/mot de passe pour te connecter sur ton api ??

1 pièce(s) jointe(s)

API REST

Thovan bonjour,

Merci pour ta réponse

Le code complet ici, peut-être que la construction du Json dans le body n'est pas cohérent ?

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Function test_url_alliance()
        Dim NewUrl As String = ""
        '
        Dim myheaders As WebHeaderCollection
        Dim postData As String = ""
        '
        '
        NewUrl = "https://rcubkp.groupeall.fr:5443/Rcu/static/auth/j_spring_security_check"
        '
        postData = ""
        '
        Dim request As HttpWebRequest = HttpWebRequest.Create(NewUrl)
 
        ' Set the Method property of the request to POST.
        request.Method = "POST"
        ' Create POST data and convert it to a byte array.
        postData = "{" & Chr(34) & "j_username" & Chr(34) & ":" & Chr(34) & "username" & Chr(34) & "," & Chr(34) & "j_password" & Chr(34) & ":" & Chr(34) & "password" & Chr(34)
        postData = postData & "}"
        '
        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
        ' Set the ContentType property of the WebRequest.
        request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14"
        request.Accept = "*/*"
        request.ServicePoint.Expect100Continue = True
        ServicePointManager.DefaultConnectionLimit = 9999
        ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
 
        request.ContentType = "application/json"
        request.ContentLength = byteArray.Length
        '
        myheaders = request.Headers
        myheaders.Add("Pragma", "no-cache")
 
        ' Get the request stream.
        Dim dataStream As Stream = request.GetRequestStream()
        ' Write the data to the request stream.
        dataStream.Write(byteArray, 0, byteArray.Length)
        ' Close the Stream object.
        dataStream.Close()
        ' Get the response.
        Try
            Dim response As WebResponse = request.GetResponse()
            ' Display the status.
            '
            ' Get the stream containing content returned by the server.
            dataStream = response.GetResponseStream()
            ' Open the stream using a StreamReader for easy access.
            Dim reader As New StreamReader(dataStream)
            ' Read the content.
            Dim responseFromServer As String = reader.ReadToEnd()
            ' Display the content.
            '
            If CType(response, HttpWebResponse).StatusCode = 200 Then
                Accueil.ZtCode.Text = "0"
                Accueil.ZtLibelle.Text = "La Fonction s'est déroulée avec Succès"
            Else
                Accueil.ZtCode.Text = CType(response, HttpWebResponse).StatusCode
                Accueil.ZtLibelle.Text = "Problème d'Appel du Web Service lireCPS"
            End If
            '
            Accueil.ZtDescription.Text = responseFromServer
            '
            Dim objStreamWriter As StreamWriter
            objStreamWriter = New StreamWriter(Application.StartupPath & "\Ws_response.xml")
            'Write a second line of text.
            objStreamWriter.WriteLine(responseFromServer)
 
            'Close the file.
            objStreamWriter.Close()
            ' Clean up the streams.
            reader.Close()
            dataStream.Close()
            response.Close()
            '
            Return True
            '
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "ws_ExtraireRsps")
            Return False
        End Try
        '
        Return Nothing
    End Function

Bien à toi
Je joins au message le document décrivant l'appel de l'API Pièce jointe 574716
JimboLion

Ok,

Je ne vois nulle part de credentials... c'est déjà strange.

Moi je passe mes credentials comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 .....blabla..... Dim uri As New Uri(uristring) Dim req As HttpWebRequest = HttpWebRequest.Create(uri) req.Method = "GET" Dim encoded As String = System.Convert.ToBase64String(System.Text.Encoding.GetEncoding("ISO-8859-1").GetBytes(username + ":" + password)) req.Headers.Add("Authorization", "Basic " + encoded) Dim response As HttpWebResponse = req.GetResponse() .....blabla.....
Mais, ce que tu peux faire pour te débeugger déjà, c'est d'essayer manuellement ta requête avec postman et de voir ce que ça donne...
En fonction de la réussite et/ou des messages d'erreurs, tu devrais petit à petit te débloquer.

09/07/2020, 16h54
jimbolion

Thovan bonjour,

En utilisant ta méthode j'obtiens exactement le même message et le plus étonnant c'est que la requête fonctionne avec Postman :?

J'ai essayé aussi ceci mais même résultat :

Code:

request.Credentials = CredentialCache.DefaultCredentials

C'est une particularité du langage je pense et dans la construction du code.

Jimbolion
10/07/2020, 09h30
thovan

Ok, donc si avec Postman ça marche, c'est ton code qui foire...
Tape un point d'arrêt au début et exécute pas à pas pour voir à quelle ligne ça merde...