De antemano agredezco la ayuda que me puedan brindar.
Mi proble es que tengo una URL que me proporciona un tipo de servicio, el cual solicita un XML como entrada y me devolvera un XML de error o en su caso un XML con información procesada. Parámetro de entrada :xmlIn, parámetro de salida : xmlOut
He estado intentando de multiples formas y no obtengo el resultado correcto. Actulmente estoy intentando con HttpWebRequest.
El sig. código lo tengo en un botón:
Dim xml As String = "<?xml version=""1.0""?><GET_xxx><envio>xxxxxyyyyy</envio><folio>3016789185</folio><folio2>9999999002</folio2></GET_xxx>"
Dim xml2 As String = "<?xml version=""1.0""?>"
'---------------Envio-----------------------------------------
Dim request As HttpWebRequest = Nothing
request = CType(WebRequest.Create("http://server/invoke/xxxx.yyy/Metodo?xmlIn=" & xml), HttpWebRequest)
request.Method = "POST"
request.ContentType = "text/xml"
Dim bytee As Byte() = Text.Encoding.UTF8.GetBytes(xml)
request.ContentLength = xml.Length
Dim writeStream As Stream
writeStream = request.GetRequestStream()
Dim salida As Byte() = Text.Encoding.UTF8.GetBytes(xml)
writeStream.Write(salida, 0, salida.Length)
Dim result As String = String.Empty
Dim response As HttpWebResponse
response = CType(request.GetResponse(), HttpWebResponse)
Dim responseStream As Stream
responseStream = response.GetResponseStream()
Dim readStream As StreamReader = New StreamReader(responseStream, Text.Encoding.UTF8)
result = readStream.ReadToEnd()
'-------------------------------------------------------------
'--------------------------Recepcion--------------------------
Dim request2 As HttpWebRequest = Nothing
request2 = CType(WebRequest.Create("http://server/invoke/xxxx.yyy/Metodo?xmlIn=" & xml & "&xmlOut=" & xml2), HttpWebRequest)
request2.Method = "GET"
Dim result2 As String = String.Empty
Dim response2 As HttpWebResponse
response2 = CType(request2.GetResponse(), HttpWebResponse)
Dim responseStream2 As Stream
responseStream2 = response2.GetResponseStream()
Dim readStream2 As StreamReader = New StreamReader(responseStream2, Text.Encoding.UTF8)
result2 = readStream2.ReadToEnd()
'-------------------------------------------------------------
Ojala alguien tenga experiencia en estos temas y me pueda brindar su ayuda.
