Public Sub PostStreamBytes As HttpResponseMessage
Try
Dim tmp As String = File.Combine(Main.srvr.StaticFilesFolder, "tmp")
Dim ins As InputStream = Request.InputStream
Dim out As OutputStream = File.OpenOutput(tmp, "upload.pdf", False)
File.Copy2(ins, out)
out.Close
HRM.ResponseCode = 200
Catch
Log(LastException)
HRM.ResponseCode = 400
HRM.ResponseError = "Error Input Stream"
End Try
Return HRM
End Sub