webclient via tcpclient braucht lange

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Agita.

    webclient via tcpclient braucht lange

    bastel grad eine eigene webclass.
    nur eine frage auf die ich bisher keine antwort gefunden habe:
    so wie jetzt läuft alles bestens, wenn ich aber das komentierte anstelle von den 3 zeilen da drüber benutze, dann braucht die funktion an der gekennzeichneten stelle seeeehr lange (~10 sekunden).
    wieso?

    Quellcode

    1. Public Function SendGet(ByVal Path As String, Optional ByVal Port As Integer = 80) As String()
    2. SendGet = New String() {}
    3. Try
    5. Dim Host As String = New Uri(Path).Host
    6. Dim MyTcp = New TcpClient(Host, Port)
    7. If MyTcp.Connected Then
    8. Dim nStream As NetworkStream = MyTcp.GetStream()
    9. Dim sWriter As New StreamWriter(nStream)
    10. Dim sReader As New StreamReader(nStream)
    11. Dim regexLength As String = "Content-Length: (\d+)"
    12. Dim ReadContent As Boolean = False
    13. Dim ContentLength As Integer = 0
    15. sWriter.WriteLine("GET " & Path & " HTTP/1.1")
    16. sWriter.WriteLine("Host: " & Host)
    17. sWriter.WriteLine("")
    18. sWriter.Flush()
    20. Dim Response As String = ""
    21. Do
    22. Response = sReader.ReadLine()
    23. If (Regex.IsMatch(Response, regexLength)) Then
    24. Dim RegexMatch As Match = Regex.Match(Response, regexLength)
    25. ContentLength = CInt(RegexMatch.Groups(1).ToString)
    26. End If
    27. If Response = "" Then
    28. Exit Do
    29. End If
    30. Application.DoEvents()
    31. Loop Until Response Is Nothing
    33. Dim bytes(ContentLength) As Char
    34. sReader.Read(bytes, 0, ContentLength)
    35. SendGet = CStr(bytes).Split(CChar(vbCrLf))
    37. 'Dim ReturnStrings As new List(Of String)
    38. 'Do
    39. ' 'HIER STOCKT DAS PROGRAMM
    40. ' Response = sReader.ReadLine()
    41. ' ReturnStrings.Add(Response)
    42. 'Loop Until Response Is Nothing
    43. 'SendGet = ReturnStrings.ToArray()
    45. nStream.Close()
    46. sWriter.Close()
    47. sReader.Close()
    48. MyTcp.Close()
    49. End If
    50. Catch ex As Exception
    51. End Try
    52. End Function

    hab den fehler selbst gefunden.

    folgendes ist keine gute lösung, da der server den response auch ja auch in segmenten (keine ahnung wie man das genau nennt) senden kann:

    Quellcode

    1. sReader.Read(bytes, 0, ContentLength)


    felgendes funktioniert nun einwandfrei:

    Quellcode

    1. Do
    2. Response = sReader.ReadLine()
    3. Send &= Response & vbCrLf
    4. If (Send.Length >= ContentLength) Then Exit Do
    5. Loop Until Response Is Nothing


    Thema erledigt :)

Facebook