Private Function getData(ByVal xmlReq As String) As DataSet Dim ds As New DataSet() Try Dim WReq As WebRequest = WebRequest.Create(WSURL) WReq.PreAuthenticate = False WReq.Method = "POST" WReq.ContentType = "application/xml; charset=utf-8" WReq.Headers.Add("SOAPAction", WSURL) WReq.Timeout = System.Threading.Timeout.Infinite WReq.ContentLength = xmlReq.Length Dim sw = New StreamWriter(WReq.GetRequestStream()) sw.Write(xmlReq) sw.Close() Dim objWebResponse As WebResponse = WReq.GetResponse() Dim objStream As Stream = objWebResponse.GetResponseStream() Dim xr As New XmlTextReader(objStream) ds.ReadXml(xr) Catch ex As Exception Return Nothing End Try Return ds End Function
Dim sw = New StreamWriter...
sw
Dim sw As New StreamWriter...
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)