Hi,
mir wird angegeben: Der arithmetische Operator hat einen Überlauf verursacht!
Kann mir jemand helfen?
mir wird angegeben: Der arithmetische Operator hat einen Überlauf verursacht!
VB.NET-Quellcode
- Dim wr As HttpWebRequest = CType(HttpWebRequest.Create("http://ndrstream.ic.llnwd.net/stream/ndrstream_ndr2_hi_mp3"), HttpWebRequest)
- Dim ws As HttpWebResponse = CType(wr.GetResponse(), HttpWebResponse)
- Dim str As Stream = ws.GetResponseStream()
- Dim inBuf(2000) As Byte
- Dim bytesToRead As Integer = CInt(inBuf.Length)
- Dim bytesRead As Integer = 0
- Dim n As Integer = Str.Read(inBuf, bytesRead, bytesToRead)
- While n > 0
- If n = 0 Then
- Exit While
- End If
- bytesRead += n
- bytesToRead -= n
- End While
- Dim fstr As New FileStream(Application.StartupPath & "Aufnahme" & My.Settings.Aufnahmeanzahl & ".wma", FileMode.Append, FileAccess.Write)
- fstr.Write(inBuf, 0, bytesRead)
- Str.Close()
- fstr.Close()
- My.Settings.Aufnahmeanzahl += 1
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
Kann mir jemand helfen?