Servus,
ich habe folgendes Problem: Mit der folgenden Sub kann ich eine Datei mit einem direkten Downloadlink downloaden. Allerdings nur mit der Pause (5s)
Wie kann ich das machen, dass ich diese Pause nicht brauche? Gibt es sowas wie: " Wenn der WebRequest fertig geladen hat, dann mache weiter? "
Hier der Code:
Ich hoffe, dass mir jemand weiterhelfen kann.
MFG Andi2572
ich habe folgendes Problem: Mit der folgenden Sub kann ich eine Datei mit einem direkten Downloadlink downloaden. Allerdings nur mit der Pause (5s)
Wie kann ich das machen, dass ich diese Pause nicht brauche? Gibt es sowas wie: " Wenn der WebRequest fertig geladen hat, dann mache weiter? "
Hier der Code:
VB.NET-Quellcode
- Private Sub Download(ByRef Uri, ByRef Speicherort, ByRef Size)
- Dim lRequest As Net.HttpWebRequest
- Dim lResponse As Net.HttpWebResponse
- Dim lUrl As New Uri(Uri)
- Dim lLocal As String = Speicherort
- lRequest = Net.HttpWebRequest.Create(lUrl)
- System.Threading.Thread.Sleep(5000)
- Try
- lResponse = lRequest.GetResponse()
- If lResponse.StatusCode = Net.HttpStatusCode.OK Then
- Dim lReader As IO.Stream = lResponse.GetResponseStream()
- Dim lWriter As New IO.FileStream(lLocal, IO.FileMode.Create)
- Dim lLength As Long
- Dim lBytes(256) As Byte
- Do
- lLength = lReader.Read(lBytes, 0, lBytes.Length)
- lWriter.Write(lBytes, 0, lLength)
- Loop While lLength > 0
- lWriter.Close()
- lReader.Close()
- Else
- MsgBox(String.Format("Fehler", lResponse.StatusCode, lResponse.StatusDescription))
- End If
- Catch exeption As Exception
- MsgBox(exeption.Message)
- End Try
- End Sub
Ich hoffe, dass mir jemand weiterhelfen kann.
MFG Andi2572