本文整理汇总了VB.NET中System.Net.WebRequest.BeginGetRequestStream方法的典型用法代码示例。如果您正苦于以下问题：VB.NET WebRequest.BeginGetRequestStream方法的具体用法？VB.NET WebRequest.BeginGetRequestStream怎么用？VB.NET WebRequest.BeginGetRequestStream使用的例子？那么, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类System.Net.WebRequest的用法示例。
在下文中一共展示了WebRequest.BeginGetRequestStream方法的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: RequestState
' 导入命名空间
Imports System.Net
Imports System.IO
Imports System.Text
Imports System.Threading
Public Class RequestState
' This class stores the request state of the request.
Public request As WebRequest
Public Sub New()
request = Nothing
End Sub
End Class
Class WebRequest_BeginGetRequeststream
Public Shared allDone As New ManualResetEvent(False)
Shared Sub Main()
' Create a new request.
Dim myWebRequest As WebRequest = WebRequest.Create("http://www.contoso.com/codesnippets/next.asp")
' Create an instance of the RequestState and assign
' myWebRequest' to it's request field.
Dim myRequestState As New RequestState()
myRequestState.request = myWebRequest
myWebRequest.ContentType = "application/x-www-form-urlencoded"
' Set the 'Method' property to 'POST' to post data to a Uri.
myRequestState.request.Method = "POST"
' Start the asynchronous 'BeginGetRequestStream' method call.
Dim r As IAsyncResult = CType(myWebRequest.BeginGetRequestStream(AddressOf ReadCallback, myRequestState), IAsyncResult)
' Pause the current thread until the async operation completes.
allDone.WaitOne()
' Send the Post and get the response.
Dim myWebResponse As WebResponse = myWebRequest.GetResponse()
Console.WriteLine(ControlChars.Cr + "The string has been posted.")
Console.WriteLine("Please wait for the response....")
Dim streamResponse As Stream = myWebResponse.GetResponseStream()
Dim streamRead As New StreamReader(streamResponse)
Dim readBuff(256) As [Char]
Dim count As Integer = streamRead.Read(readBuff, 0, 256)
Console.WriteLine(ControlChars.Cr + "The contents of the HTML page are ")
While count > 0
Dim outputData As New [String](readBuff, 0, count)
Console.WriteLine(outputData)
count = streamRead.Read(readBuff, 0, 256)
End While
' Close the Stream Object.
streamResponse.Close()
streamRead.Close()
' Release the HttpWebResponse Resource.
myWebResponse.Close()
End Sub
Private Shared Sub ReadCallback(asynchronousResult As IAsyncResult)
Dim myRequestState As RequestState = CType(asynchronousResult.AsyncState, RequestState)
Dim myWebRequest As WebRequest = myRequestState.request
' End the request.
Dim streamResponse As Stream = myWebRequest.EndGetRequestStream(asynchronousResult)
' Create a string that is to be posted to the uri.
Console.WriteLine(ControlChars.Cr + "Please enter a string to be posted:")
Dim postData As String = Console.ReadLine()
Dim encoder As New ASCIIEncoding()
' Convert the string into a byte array.
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
' Write the data to the stream.
streamResponse.Write(byteArray, 0, postData.Length)
streamResponse.Close()
' Allow the main thread to resume.
allDone.Set()
End Sub
End Class