Bild aus HttpWebResponse als String übertagen und Client-seitig wieder herstellen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Drahuverar.

    Bild aus HttpWebResponse als String übertagen und Client-seitig wieder herstellen

    Hallo zusammen,

    Ich möchte gern mit einem Server-Dienst das Bild einer IP-Kamera abfragen und dieses via TCP an verschiedene Clients verteilen.
    Hier ist der bisherige Code:

    VB.NET-Quellcode

    1. 'Request
    2. Dim request As WebRequest = WebRequest.Create("http://192.168.100.222/jpg/image.jpg")
    3. ' If required by the server, set the credentials.
    4. request.Credentials = New System.Net.NetworkCredential("admin", "admin")
    5. ' Get the response.
    6. Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
    7. ' Get the stream containing content returned by the server.
    8. 'Dim dataStream As Stream = response.GetResponseStream()
    10. Dim reader As New StreamReader(response.GetResponseStream)
    11. Dim AnswerToClient As String = reader.ReadToEnd
    13. 'Übertragen zum Client
    14. '...
    16. 'Client empfängt den string
    17. 'jetzt wieder in einen Stream umwandeln
    18. Dim Buffer() As Byte = Encoding.Default.GetBytes(AnswerToClient)
    19. Dim mstream As New MemoryStream(Buffer)
    21. ' Read the content.
    22. Dim picture As New System.Drawing.Bitmap(mstream)


    Wenn ich den ausgeklammerten Stream direkt an den Konstruktor des Bitmaps lege, funktioniert alles, wie wahrscheinlich alle hier schon wissen. Im oben gezeigtem Beispiel läuft der Debugger auf einen Fehler, den ich mir nicht erklären kann ("Ungültiger Parameter.").
    Hat von euch jemand eine Idee, woran das liegen kann?
    Ich bin neu hier, seid also bitte nicht böse, falls dieses Thema schon öfter behandelt wurde. ^^

    Habe die Lösung nun selbst gefunden. Falls es jemanden interessiert hier der geänderte Code:

    VB.NET-Quellcode

    1. ​
    2. 'Abfrage starten
    3. Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
    4. 'Stream erstellen
    5. Dim dataStream As Stream = response.GetResponseStream()
    7. 'Bytes holen
    8. Dim Buffer() As Byte = Nothing
    9. Dim Ende As Boolean = False
    10. Dim Offset As Long = 0
    11. Dim Buffersize As Long = 0
    12. While Not Ende
    13. Dim TempBuffer(1023) As Byte
    14. Dim Anzahl As Integer = dataStream.Read(TempBuffer, 0, 1024)
    15. If Anzahl <= 0 Then Exit While
    16. ReDim Preserve Buffer(Buffersize + Anzahl - 1)
    17. Buffersize += Anzahl
    18. Array.Copy(TempBuffer, 0, Buffer, Offset, Anzahl)
    19. Offset += Anzahl
    20. End While
    22. 'ByteArray zu einen Sting umwandeln
    23. Dim AnswerToClient As String = [String].Join(";", Buffer)
    25. 'Übertragen zum Client
    26. '...
    27. 'Client empfängt den string
    28. Dim AntwortStringArray() As String = Split(AnswerToClient, ";")
    29. Dim ByteArray() As Byte
    30. ByteArray = Array.ConvertAll(AntwortStringArray, Function(input As String) Byte.Parse(input))
    32. 'Stream wieder herstellen
    33. Dim mStream As New MemoryStream(ByteArray)
    35. 'Picture erstellen
    36. locPicture = New System.Drawing.Bitmap(mStream)

Facebook
Telefonspende