I wrote a code to send file as below:
Dim objXMLDoc As New XmlDocument objXMLDoc.Load("C:\Inetpub\wwwroot\XMLSchema_Test\XML\1773777.xml") Dim blnResponse As Boolean Dim objURI As Uri = New Uri("https://172.16.17.2/XMLSchema_Tests1/Web%20Forms/frmXML_Receive.aspx") Dim objWR As HttpWebRequest = HttpWebRequest.Create(objURI) blnResponse = objWR.HaveResponse Dim strXML As String = objXMLDoc.OuterXml objWR.Method = "POST" Dim encoding As New System.Text.ASCIIEncoding Dim btXMLLen() As Byte = encoding.UTF8.GetBytes(strXML) objWR.ContentLength = btXMLLen.Length objWR.KeepAlive = False Dim streamToSend As IO.Stream = objWR.GetRequestStream Dim strMessage As String Dim strStatus As String Dim blnConnect As Boolean Try streamToSend.Write(btXMLLen, 0, btXMLLen.Length) Dim objWebResponse As HttpWebResponse = objWR.GetResponse blnResponse = objWR.HaveResponse Catch ex As Web.HttpException strMessage = ex.Message Catch ex As IO.IOException strMessage = ex.Message Catch ex As Net.WebException strMessage = ex.Message End Try streamToSend.Close()
When I tried to send file to the URI stated above, the server throw the status 400 back to me when I tried to get the response from the server, and the https server doesn't receive any file. While I changed the URI to point to another server, which is a http server, the code works fine and able to send file to the server.
I would like to know why the code above is not able to send the file to the https server?
The URI above is also the page that I developed. If I directly open the web page, there'll be a file dialog that enables
me to upload XML file. It works fine if I just upload a file in this way, but when I am using a function to send file to the
URI above, it does not works but it works fine on http server as I mentioned above.
Thanks in advanced.