当前位置: 首页>>代码示例>>VB.NET>>正文


VB.NET FileWebRequest.EndGetResponse方法代码示例

本文整理汇总了VB.NET中System.Net.FileWebRequest.EndGetResponse方法的典型用法代码示例。如果您正苦于以下问题:VB.NET FileWebRequest.EndGetResponse方法的具体用法?VB.NET FileWebRequest.EndGetResponse怎么用?VB.NET FileWebRequest.EndGetResponse使用的例子?那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在System.Net.FileWebRequest的用法示例。


在下文中一共展示了FileWebRequest.EndGetResponse方法的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。

示例1: RequestDeclare

Public Class RequestDeclare
    Public myFileWebRequest As FileWebRequest
     
    Public Sub New()
        myFileWebRequest = Nothing
    End Sub
End Class



Class FileWebRequest_resbeginend
    
    Public Shared allDone As New ManualResetEvent(False)
    
    ' Entry point which delegates to C-style main Private Function.
    Public Overloads Shared Sub Main()
        Main(GetCommandLineArgs())
    End Sub
    
    Overloads Shared Sub Main(args() As String)
        
        If args.Length < 2 Then
            Console.WriteLine(ControlChars.Cr + "Please enter the file name as command line parameter:")
            Console.WriteLine("Usage:FileWebRequest_resbeginend " + ChrW(60) + "systemname" + ChrW(62) + "/" + ChrW(60) + "sharedfoldername" + ChrW(62) + "/" + ChrW(60) + "filename" + ChrW(62) + ControlChars.Cr + "Example:FileWebRequest_resbeginend shafeeque/shaf/hello.txt")
        
        Else
            Try

                ' Place a webrequest.
                Dim myWebRequest As WebRequest = WebRequest.Create(("file://" + args(1)))
                ' Create an instance of the 'RequestDeclare' and associating the 'myWebRequest' to it.		
                Dim myRequestDeclare As New RequestDeclare()
                myRequestDeclare.myFileWebRequest = CType(myWebRequest, FileWebRequest)
                
                ' Begin the Asynchronous request for getting file content using 'BeginGetResponse()' method.	
                 Dim asyncResult As IAsyncResult = CType(myRequestDeclare.myFileWebRequest.BeginGetResponse(AddressOf RespCallback, myRequestDeclare), IAsyncResult)
                 allDone.WaitOne()

            
            Catch e As ArgumentNullException
                Console.WriteLine(("ArgumentNullException is :" + e.Message))
            Catch e As UriFormatException
                Console.WriteLine(("UriFormatException is :" + e.Message))
            End Try
        End If
    End Sub
    
    
    Private Shared Sub RespCallback(ar As IAsyncResult)



        ' State of request is asynchronous.
        Dim requestDeclare As RequestDeclare = CType(ar.AsyncState, RequestDeclare)
        
        Dim myFileWebRequest As FileWebRequest = requestDeclare.myFileWebRequest
        
        ' End the Asynchronus request by calling the 'EndGetResponse()' method.
        Dim myFileWebResponse As FileWebResponse = CType(myFileWebRequest.EndGetResponse(ar), FileWebResponse)
        
        ' Reade the response into Stream.
        Dim streamReader As New StreamReader(myFileWebResponse.GetResponseStream())

       
        Dim readBuffer(256) As [Char]
        
        Dim count As Integer = streamReader.Read(readBuffer, 0, 256)
        
        Console.WriteLine("The contents of the file are :"+ControlChars.Cr)
        
        While count > 0
            Dim str As New [String](readBuffer, 0, count)
            Console.WriteLine(str)
            count = streamReader.Read(readBuffer, 0, 256)
        End While
         streamReader.Close()
        ' Release the response object resources.
         myFileWebResponse.Close()
        allDone.Set()
        Console.WriteLine("File reading is over.")
    End Sub
End Class
开发者ID:VB.NET开发者,项目名称:System.Net,代码行数:82,代码来源:FileWebRequest.EndGetResponse


注:本文中的System.Net.FileWebRequest.EndGetResponse方法示例由纯净天空整理自Github/MSDocs等开源代码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。