Socket-Problem

  • VB.NET

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

    Socket-Problem

    Hallo ich bin ziemlich neu in der Programmierung mit Sockets und komm einfach nicht weiter.
    Es soll eine Art Chat werden, wo der Benutzer der gerade eine Nachricht gesendet hat, eben auch seine Nachricht sieht.
    (So wies bei Skype & Co. ist.)
    Aus Beispielprojekten und Tut's hab ich mir folgenden Code zusammengebastelt:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Net
    3. Imports System.Threading
    5. Public Class Form1
    6. Private SenderSocket As Socket
    7. Private EmpfnagsSocket As Socket
    8. Private Const Port As Integer = 5004
    9. Private Function GetHistIp() As IPEndPoint
    10. For Each ipa In Dns.GetHostEntry("localhost").AddressList
    11. If ipa.AddressFamily = AddressFamily.InterNetwork Then
    12. Return New IPEndPoint(ipa, Port)
    13. End If
    14. Next
    15. Return (New IPEndPoint(IPAddress.IPv6Loopback, Port))
    16. End Function
    17. Private EndPoint As IPEndPoint = GetHistIp()
    18. Dim t2 As New Thread(AddressOf Empfangen)
    19. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    20. SenderSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
    21. EmpfnagsSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
    22. SenderSocket.Bind(EndPoint)
    23. SenderSocket.Listen(1)
    24. Dim t1 As New Thread(AddressOf Verbinden)
    25. t1.Start()
    26. EmpfnagsSocket = SenderSocket.Accept()
    27. t2.Start()
    28. Dim t3 As New Thread(AddressOf Alive)
    29. t3.Start()
    30. End Sub
    31. Private Sub Verbinden()
    32. EmpfnagsSocket.Connect(EndPoint)
    33. End Sub
    34. Private Sub Empfangen()
    35. Do
    36. Dim buff(EmpfnagsSocket.ReceiveBufferSize) As Byte
    37. EmpfnagsSocket.Receive(buff)
    38. If lb_nachrichten.InvokeRequired Then
    39. lb_nachrichten.Invoke(New ATLBH(AddressOf AddToLB), System.Text.Encoding.Default.GetString(buff))
    40. End If
    41. Loop
    42. End Sub
    43. Private Sub AddToLB(ByVal str As String)
    44. lb_nachrichten.Items.Add(str)
    45. End Sub
    46. Private Delegate Sub ATLBH(ByVal str As String)
    47. Sub Alive()
    48. If t2.IsAlive = False Then
    49. t2.Start()
    50. End If
    51. End Sub
    52. Private Sub btn_send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_send.Click
    53. SenderSocket.Send(System.Text.Encoding.Default.GetBytes(tb_text.Text), System.Text.Encoding.Default.GetBytes(tb_text.Text).Length, SocketFlags.None)
    54. End Sub
    55. End Class



    Und dann kommt beim Senden ein "mysteriöser" Fehler :cursing:
    Dateien

    • ChatEnglie.zip

      (67,4 kB, 37 mal heruntergeladen, zuletzt: )

    Es gibt doch mittlerweile soooo viele Thread und sogar min 2 oder 3 Tutorials zu einer TCP Verbindung und bei einer weiß ich ist schon halber MultiConnection Chat ähnlich.

    PS: und mach nicht solche endlosen Zeilen, ich steh zwar auch auf möglich wenige Variablennutzung wenn es unnötig ist, aber beim Konvertieren macht das aufjedenfall KEINEN Sinn, da bei dir die Konvertierung 2-Mal ausgeführt wird und das kostet definitiv mehr Zeit als nötig.

    VB.NET-Quellcode

    1. Dim buffer As Byte() = Encoding.GetBytes("text")
    3. Stream.Write(buffer, 0, buffer.length)

Facebook
Telefonspende