Discussion :

[djelloharmel]

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
Dim urlSms As String = "http://api.smsfactor.com"
Dim user As String = "login"
Dim password As String = "motdepasse"
Dim Msender As String = "test"
Dim smstext As String = "Message de test"
Dim gsm As String = "33600000000"
 
Dim uri As New Uri(urlSms)
 
Dim data As String = "XML=<sms><authentification><username>" & user & "</username><password>" & password & "</password></authentification><message><sender>" & Msender & "</sender><text>" & smstext & "</text></message><recipients><gsm gsmsmsid=""100"">" & gsm & "</gsm></recipients></sms>"
 
Dim Buffer As Byte() = System.Text.Encoding.UTF8.GetBytes(data)
 
Dim request As HttpWebRequest = HttpWebRequest.Create(uri)
request.Method = WebRequestMethods.Http.Post
request.ContentLength = Buffer.Length
request.ContentType = "application/x-www-form-urlencoded"
 
Using writer As Stream = request.GetRequestStream()
	writer.Write(Buffer, 0, Buffer.Length)
	writer.Flush()
	writer.Close()
End Using
 
Dim Response As HttpWebResponse = request.GetResponse()
Dim reader As New StreamReader(Response.GetResponseStream())
Dim tmp As String = reader.ReadToEnd()
Response.Close()
Response.Write(tmp)

Je suis entré en contact avec l'opérateur et voilà le code qu'il m'a fourni.
Le problème, c'est la dernière ligne

Code :

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

Response.Write(tmp)

qui ramène l'erreur suivante

Code :

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

'write' n'est pas un membre de 'System.Net.HttpWebResponse'

Si quelqu'un peut m'aider, je serai ravi

[jopopmk]

Salut,

attention à la casse, j'ai du DL leur exemple pour trouver ton PB : la méthode Close() est appelée par l'objet response (en minuscule, ta variable de type System.Net.HttpWebResponse). La méthode Write() est appelée par l'objet Response (avec une majuscule, objet global ASP.NET, de type System.Web.HttpResponse).

[djelloharmel]

C'est exact.
Merci de la remarque jopopmk.
Ce qui me coince maintenant, c'est d'où peut sortir cette nouvelle variable 'Response' dans

Code :

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

Response.Write

.
J'ai trouvé que 'Write' est un membre de 'System.Net.HttpResponse' et non 'System.Net.HttpWebResponse'.
Je suis totalement embrouillé.
J'ai encore et toujours besoin de vous

[jopopmk]

Response est une variable globale (tu ne la crées pas, tu en l'initialises pas) mise à disposition par le process pour pouvoir manipuler la réponse que tu renvoies au client dans le cadre d'un appel à une page ASP.NET.

En gros si tu fais du WinForm ou du WPF cette variable n'existe pas.
Ta variable tmp étant une simple string rien ne t'empêche de l'afficher dans une TextBox/MessageBox.

[djelloharmel]

Merci encore jopopmk.
J'ai réussi à récupérer la valeur de la variable tmp dans un messagebox. voilà ce qu'il dit:

Code :

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

1
2
3
4
5
6
<?xml version="1.0" encoding="UTF-8"?>
<response>
<status>-2</status>
<message>Erreur XML</message>
<details>Une erreur est survenue lors de la lecture de votre XML</details>
</response>

Dois je retourner vers l'opérateur pour correction ou bien c'est dans le code vb que y a problème?

[djelloharmel]

CA MARCHE.

Voici le bon code XML

Code :

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

Dim data As String = "XML=<sms><authentification><username>" & user & "</username><password>" & password & "</password></authentification><message><sender>" & Msender & "</sender><text>" & smstext & "</text></message><recipients><gsm gsmsmsid=""100"">" & gsm & "</gsm></recipients></sms>"

Merci encore une fois