J'essaye de publier des données de l'application de vb.net au service Web asmx qui est situé sur le serveur!Afficher les données postales!
Pour l'affichage des données de l'application vb.net J'utilise ce code:
Public Function Post(ByVal url As String, ByVal data As String) As String
Dim vystup As String = Nothing
Try
'Our postvars
Dim buffer As Byte() = Encoding.ASCII.GetBytes(data)
'Initialisation, we use localhost, change if appliable
Dim WebReq As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
'Our method is post, otherwise the buffer (postvars) would be useless
WebReq.Method = "POST"
'We use form contentType, for the postvars.
WebReq.ContentType = "application/x-www-form-urlencoded"
'The length of the buffer (postvars) is used as contentlength.
WebReq.ContentLength = buffer.Length
'We open a stream for writing the postvars
Dim PostData As Stream = WebReq.GetRequestStream()
'Now we write, and afterwards, we close. Closing is always important!
PostData.Write(buffer, 0, buffer.Length)
PostData.Close()
'Get the response handle, we have no true response yet!
Dim WebResp As HttpWebResponse = DirectCast(WebReq.GetResponse(), HttpWebResponse)
'Let's show some information about the response
Console.WriteLine(WebResp.StatusCode)
Console.WriteLine(WebResp.Server)
'Now, we read the response (the string), and output it.
Dim Answer As Stream = WebResp.GetResponseStream()
Dim _Answer As New StreamReader(Answer)
'Congratulations, you just requested your first POST page, you
'can now start logging into most login forms, with your application
'Or other examples.
vystup = _Answer.ReadToEnd()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Return vystup.Trim() & vbLf
End Function
Maintenant, comment je peux récupérer ces données dans le service asmx?
Officieusement, mais pourriez-vous s'il vous plaît pas fin le titre de vos questions et presque chaque phrase avec un point d'exclamation (!)? Il semble très bruyant et est généralement considéré comme offensant. Merci :) – Webleeuw