VB.Net TCP client und Java SocketServer

  • VB.NET

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

    VB.Net TCP client und Java SocketServer

    Hallo zusammen,

    Ich versuche schon länger meinen VB.Net Client aus dem Multiserver(TCP) Therard mit einem Java Server zu Connecten und texte zu übermitteln.

    Mein Client:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. ​Imports System.Net.Sockets
    2. Imports System.IO
    3. Public Class Form1
    4. Private stream As NetworkStream
    5. Private streamw As StreamWriter
    6. Private streamr As StreamReader
    7. Private client As New TcpClient
    8. Private t As New Threading.Thread(AddressOf Listen)
    9. Private Delegate Sub DAddItem(ByVal s As String)
    10. Private nick As String = "unknown"
    11. Private Sub AddItem(ByVal s As String)
    12. ListBox1.Items.Add(s)
    13. End Sub
    14. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    15. Try
    16. client.Connect("192.168.1.45", 4444) ' hier die ip des servers eintragen.
    17. ' da dieser beim testen wohl lokal läuft, hier die loopback-ip 127.0.0.1.
    18. If client.Connected Then
    19. stream = client.GetStream
    20. streamw = New StreamWriter(stream)
    21. streamr = New StreamReader(stream)
    22. streamw.WriteLine(nick) ' das ist optional.
    23. streamw.Flush()
    24. t.Start()
    25. Else
    26. MessageBox.Show("Verbindung zum Server nicht möglich!")
    27. Application.Exit()
    28. End If
    29. Catch ex As Exception
    30. MessageBox.Show("Verbindung zum Server nicht möglich!")
    31. Application.Exit()
    32. End Try
    33. End Sub
    34. Private Sub Listen()
    35. While client.Connected
    36. Try
    37. Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
    38. Catch
    39. MessageBox.Show("Verbindung zum Server nicht möglich!")
    40. Application.Exit()
    41. End Try
    42. End While
    43. End Sub
    44. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    45. streamw.WriteLine(TextBox1.Text)
    46. streamw.Flush()
    47. TextBox1.Clear()
    48. End Sub
    49. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    50. nick = InputBox("Nickname: ", "Namen festlegen", "unknown")
    51. End Sub
    52. End Class


    Nun würde ich gerne einen JavaServer haben, leider kann ich nichts brachbares finden und bei java bin ich nicht so versiert.