Recoger respuestas de un post
Publicado por Javier (13 intervenciones) el 20/11/2008 16:39:06
Hola,
Estoy realizando una aplicación que envía un post a un servidor, y este devuelve un texto xml que debo recuperar.
La función que estoy utilizando es la siguiente:
Public Function Envia_Post(ByVal vvIp As String, ByVal vvPort As String, ByVal vvData As String, Optional ByVal vvPagina As String = "") As String
Dim vlWeb As New System.Net.WebClient
vlWeb.Headers.Add("Content-Type", "text/xml")
vlWeb.Headers.Add(Net.HttpRequestHeader.KeepAlive, "False")
Dim vlData As Byte() = System.Text.Encoding.ASCII.GetBytes(vvData)
Try
Dim vlResult As Byte() = vlWeb.UploadData("http://" & vvIp & ":" & vvPort & vvPagina, "POST", vlData)
Return System.Text.Encoding.ASCII.GetString(vlResult)
Catch ex As Exception
MsgBox("Se produjo un error al conectar con el servidor")
Return ex.Message
End Try
End Function
Mi problema viene de que en vlResult no se me almacena nada, y el tamaño es 0. Sin embargo, utilizando el wideshark veo que si que me llega el texto en xml como respuesta del servidor al post.
¿Alguien podría decirme porque no me devuelve lo que espero la operación UploadData, y si tengo que hacer algo más o realizarlo de otra forma?.
Muchas Gracias por adelantado.
Un saludo.
Javi.
Estoy realizando una aplicación que envía un post a un servidor, y este devuelve un texto xml que debo recuperar.
La función que estoy utilizando es la siguiente:
Public Function Envia_Post(ByVal vvIp As String, ByVal vvPort As String, ByVal vvData As String, Optional ByVal vvPagina As String = "") As String
Dim vlWeb As New System.Net.WebClient
vlWeb.Headers.Add("Content-Type", "text/xml")
vlWeb.Headers.Add(Net.HttpRequestHeader.KeepAlive, "False")
Dim vlData As Byte() = System.Text.Encoding.ASCII.GetBytes(vvData)
Try
Dim vlResult As Byte() = vlWeb.UploadData("http://" & vvIp & ":" & vvPort & vvPagina, "POST", vlData)
Return System.Text.Encoding.ASCII.GetString(vlResult)
Catch ex As Exception
MsgBox("Se produjo un error al conectar con el servidor")
Return ex.Message
End Try
End Function
Mi problema viene de que en vlResult no se me almacena nada, y el tamaño es 0. Sin embargo, utilizando el wideshark veo que si que me llega el texto en xml como respuesta del servidor al post.
¿Alguien podría decirme porque no me devuelve lo que espero la operación UploadData, y si tengo que hacer algo más o realizarlo de otra forma?.
Muchas Gracias por adelantado.
Un saludo.
Javi.
Valora esta pregunta


0