Código: Seleccionar todo
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim xDoc As New System.Xml.XmlDocument
xDoc.Load("ejemplo con nuevo esquema.xml")
Dim bytes As Byte()
bytes = System.Text.Encoding.UTF8.GetBytes(xDoc.InnerXml)
Dim req As Net.HttpWebRequest = DirectCast(WebRequest.Create("https://timbrador.tralix.com:8081/"), HttpWebRequest)
req.Method = "POST"
req.Accept = "gzip,deflate"
req.ContentType = "text/xml;charset=utf-8"
req.Headers.Add("SOAPAction", "http://cancelacfd.sat.gob.mx/ICancelaCFDBinding/CancelaCFD")
req.ContentLength = bytes.Length()
req.Host = "timbrador.tralix.com:8081"
req.KeepAlive = True
req.UserAgent = "Apache-HttpClient/4.1.1"
Dim stm As Stream
stm = req.GetRequestStream() //errro 500
stm.Write(bytes, 0, bytes.Length)
stm.Close()
Dim resp As Net.WebResponse
resp = req.GetResponse()
stm = resp.GetResponseStream()
Dim r As New IO.StreamReader(stm)
Me.TextBox1.Text = r.ReadToEnd()
MsgBox("completed")
End Sub
el codigo anterior es para mandar el xml de cancelacion, el porblema es que me da el error 500 :S, probe la misma url, con la herramienta SOAP UI y funciona, pero al momento de programarlo
no u.u, sabran cual sera la razon, es que como si el servicio web no estubiera activo, aver si me pueden hechar la mano con eso
GRacias