Daten empfangen via TCP/IP

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von henny.

    Daten empfangen via TCP/IP

    Hallo,

    ich habe folgendes Problem.
    Ich habe einen Code, mit dem ich auf einem Port abhöre, ob Daten vorhanden sind.
    Falls ja, möchte ich diese empfangen. Das klappt auch super.
    Jetzt möchte ich, dass wenn ich von einem anderem PC Daten an diese IP-Adresse und dem Port schicke, diese auch empfangen.
    Das funktioniert nicht.

    Ich habe folgenden Code auf dem Server:

    Quellcode

    1. Imports MSCommLib
    2. Imports System.IO
    3. Imports System.IO.Path
    4. Imports System.Net.Sockets
    5. Imports System.Net
    9. Public Class Form1
    11. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    13. txt_Text.Text = ""
    15. Timer1.Start()
    17. End Sub
    21. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    22. 'Zuhörer startet
    23. Listener.Start()
    26. If Listener.Pending = True And Host.Connected = False Then
    27. Host = Listener.AcceptTcpClient()
    28. Networkstream1 = Host.GetStream
    29. End If
    32. If Host.Client.Available > 0 Then
    33. txt_Text.Text = ""
    34. Dim Buffer(Host.Client.Available) As Byte
    35. Networkstream1.Read(Buffer, 0, Host.Client.Available)
    37. For Each item As Byte In Buffer
    38. txt_Text.Text &= Microsoft.VisualBasic.Chr(item)
    40. Next
    41. End If
    44. End Sub
    47. End Class


    Hier das Modul:

    Quellcode

    1. Public Listener As New System.Net.Sockets.TcpListener(12345)
    2. Public Host As New System.Net.Sockets.TcpClient()
    3. Public Networkstream1 As System.Net.Sockets.NetworkStream



    Auf dem Client PC habe ich folgenden Code:

    Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Text
    3. Imports System.IO
    6. Public Class Form1
    8. Dim stream As NetworkStream
    9. Dim streamw As StreamWriter
    10. Dim streamr As StreamReader
    11. Dim Client As New TcpClient
    13. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    15. Timer1.Start()
    17. End Sub
    19. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    22. Dim Port As Integer = 12345
    24. Client.Connect(192.164.563.22, Port)
    25. Try
    26. If Client.Connected Then
    28. Stream = Client.GetStream ' Stream wird auf Client verwiesen
    29. streamw = New StreamWriter(Stream) ' Stream zum Senden
    30. streamr = New StreamReader(Stream) ' Stream zum Empfangen
    32. login()
    33. Else
    34. MsgBox("Verbidnung mit 192.164.563.22 konnte nicht" & _
    35. "aufgebaut werden!")
    36. End If
    37. Catch
    38. MsgBox("Client ist nicht verbunden")
    39. End Try
    41. End Sub
    43. Sub client_send(ByVal text As String)
    44. streamw.WriteLine(Text)
    45. streamw.Flush()
    46. End Sub
    48. Function client_recieve() As String
    49. client_recieve = streamr.ReadLine
    50. End Function
    52. ' Nach erfolgreicher Verbindung:
    53. Sub login()
    54. Try
    55. 'Senden/Empfangen:
    56. client_send("online")
    57. client_recieve()
    59. If client_recieve() = "ok" Then
    60. MsgBox("Übertragung funktioniert")
    61. Client.Close()
    62. Else
    63. MsgBox("Fehler bei der Übertragung")
    64. Exit Sub
    65. Client.Close()
    66. End If
    68. Catch
    69. MsgBox("fehler beim SubAufruf")
    70. Client.Close()
    71. End Try
    74. End Sub
    75. End Class


    Kann mir bitte bitte jemand weiterhelfen???


    Danke schon mal im Vorraus!

    Ich habe schon viel mit Dateien senden über TCP/IP herum probiert und habs auch geschafft.
    Ich hab heut nicht viel Zeit. Muss des Geburtstag von meine Bruder feiern :D.
    Also schrieb ich dir schnell ein Beispiel.

    Client:

    VB.NET-Quellcode

    1. Private Sub SendFile(ByVal pfad As String)
    3. Dim Buffer() As Byte = File.ReadAllBytes(pfad) 'List alle Byts das Datei aus
    4. Dim sbuffer As String = Convert.ToBase64String(Buffer) 'Wandelt das Byte-Array in einen String um
    5. streamw.WriteLine("client.send." + sbuffer) 'Das "client.send." ist mein erfundenes Protokoll das der Server weis was er damit machen soll
    6. streamw.Flush() 'Dürfte klar sein
    8. End Sub


    Bei Srever hab ich auch einen StreamWriter und StreamReader statt dem Networkstream benutzt also so wie beim Client und wenn du schon einen Timer benutzen wielst schau ob er beim Interval auf 1 ist.

    Server: (Gehört in die If Host.Client.Available > 0 abfrage)

    VB.NET-Quellcode

    1. If InStr(post, "client.send.") = 1 Then
    3. post = Mid(post, 13) 'Nimmt das "client.send." weg das wir nur die Byts haben
    4. Dim Buffer() As Byte = Convert.FromBase64String(post) 'Wandelt den String wieder zu Byte-Array um
    5. File.WriteAllBytes("Speicherort", Buffer) 'Schreibt die neue Datei
    7. End If


    Ich hoff es funkt.

    Edit: Hab noch was gefunden. Schau mal im Anhang :D!

    Gruss
    almdandi
    Dateien

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „almdandi“ ()

    also er hat schon ein Programm und ich will nicht, dass er jetzt einfach etwas kopiert(was evtl. das gleiche Problem hat wie seins...)
    außerdem würde ich die Bytes direkt übertragen und nicht als Base64 String, das ist nämlich langsam ;)
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Erstmal hat das nichts mit dem Router, sondern in erster Linie damit zu tun, was du von deinem Provider zur Verfügung gestellt bekommst, und zweitens ist ein ständiges kodieren und dekodieren von und in Base64 tatsächlich eher suboptimal...

    genau ist es auch nicht, wenn man die Bytes von einer Datei überträgt, dann kann man diese mit dem NetworkStream direkt in einen Buffer lesen und speichern...TCPClient/TCPListener sind auch nicht nötig, wofür gibt es Sockets ?!...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

Facebook
Telefonspende