Hallo zusammen,
ich habe folgendes Problem. Mein Backup Programm soll regelmäßig Updates erhalten. Funktioniert ohne Proxy alles ohne Probleme.
Sitze ich allerdings hinter einem Proxy wie z.B in meiner Firma kann er die Dateien nicht herunterladen und meldet Proxy Authentication erforderlich (407)
Hat jemand eine idee?
Das Problem scheint hier zu sein ich komme aber nicht dahinter was genau
CodeTags gesetzt ~VaporiZed
ich habe folgendes Problem. Mein Backup Programm soll regelmäßig Updates erhalten. Funktioniert ohne Proxy alles ohne Probleme.
Sitze ich allerdings hinter einem Proxy wie z.B in meiner Firma kann er die Dateien nicht herunterladen und meldet Proxy Authentication erforderlich (407)
Hat jemand eine idee?
Das Problem scheint hier zu sein ich komme aber nicht dahinter was genau
VB.NET-Quellcode
- wRemote.Proxy = New Proxy(New Uri(Proxy:1234))
- wRemote.Credentials = New NetworkCredential("User", "Passwort")
- Public Function DownloadFileWithProgress(ByVal URL As String, ByVal Location As String, ByVal Sleep As Integer) As Boolean
- Try
- mCurrentFile = GetFileName(URL)
- Dim wRemote As HttpWebRequest
- Dim bBuffer As Byte()
- ReDim bBuffer(1024) '256
- Dim iBytesRead As Integer
- Dim iTotalBytesRead As Integer
- FS = New FileStream(Location, FileMode.Create, FileAccess.Write)
- wRemote = WebRequest.Create(URL)
- wRemote.Proxy = New Proxy(New Uri(Proxy:1234))
- wRemote.Credentials = New NetworkCredential("User", "Passwort")
- Dim myWebResponse As WebResponse = wRemote.GetResponse
- RaiseEvent FileDownloadSizeObtained(myWebResponse.ContentLength)
- Dim sChunks As Stream = myWebResponse.GetResponseStream
- Do
- iBytesRead = sChunks.Read(bBuffer, 0, 1024)
- FS.Write(bBuffer, 0, iBytesRead)
- iTotalBytesRead += iBytesRead
- If myWebResponse.ContentLength < iTotalBytesRead Then
- RaiseEvent AmountDownloadedChanged(myWebResponse.ContentLength)
- Else
- RaiseEvent AmountDownloadedChanged(iTotalBytesRead)
- End If
- Application.DoEvents()
- System.Threading.Thread.Sleep(Sleep)
- Loop While Not iBytesRead = 0
- sChunks.Close()
- FS.Close()
- RaiseEvent FileDownloadComplete()
- Return True
- Catch ex As Exception
- If Not (FS Is Nothing) Then
- FS.Close()
- FS = Nothing
- End If
- RaiseEvent FileDownloadFailed(ex)
- Return False
- End Try
- FS.Close()
- End Function
CodeTags gesetzt ~VaporiZed
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()