Ver Mensaje Individual
  #1 (permalink)  
Antiguo 11/06/2010, 10:48
RichardTampico
 
Fecha de Ingreso: junio-2010
Mensajes: 2
Antigüedad: 13 años, 10 meses
Puntos: 0
Enviar XML a una URL y espera como respuesta otro XML.



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.