ASPX保存远程图片到本地的两种方法的函数

作者:袖梨 2022-06-30
 
Function UpRemoteFileToLocal(ByVal UpType As String, ByVal RemoteUrl As String, ByVal LocalFile As String) As Boolean
        Dim TmpResult As Boolean = False
        Select Case UpType
       Case "xmlhttp"
           'With MSXML2
           Dim myXmlHttp As New MSXML2.XMLHTTP40
           myXmlHttp.open("GET", RemoteUrl, False)
           myXmlHttp.send()
           Dim FS As FileStream = New FileStream(LocalFile, FileMode.CreateNew)
           Dim BW As BinaryWriter = New BinaryWriter(FS)
           BW.Write(myXmlHttp.responseBody)
           BW.Close()
           FS.Close()
           TmpResult = True
       Case "webclient"
           'With System.Net NameSpace
           Dim myWebClient As New WebClient
           myWebClient.DownloadFile(RemoteUrl, LocalFile)
           TmpResult = True
        End Select
    End Function

相关文章

精彩推荐